|
アクティブになっているExcelからマクロで新規ブックを作成し、
アクティブになっているExcelのシート1のセルを全選択しコピーしたデータを
新規ブックに貼り付けたいのですが、列の幅や、セルの背景色がコピーされません。
正確には、値があるセルに関してはコピーできる(色のみ、列や行幅は無理)
コピー元のファイルから開いているExcelに貼付けは出来るのですが(マクロでない)なぜこのようなことになるのでしょうか?
解決方法がありましたらよろしくお願いします。
以下に簡単にソースを書きました。
Dim objApp As Object
Dim objBook As Object
Dim objSheet As Object
objApp.Workbooks.Add
'非表示にする
objApp.Application.Visible = False
'確認ダイアログを表示させない
objApp.DisplayAlerts = False
Set objBook = objApp.ActiveWorkbook
'元となるExcelのデータをコピー
Cells.Select
Selection.Copy
'シート1の書き込み
Set objSheet = objBook.Sheets(1)
'セル全体の設定
With objSheet
.Paste
End With
|
|