07/06/12 01:28:42
質問です。
Excel2000で以下のようにあるブックから新しいブックを作り
セルをCopyメソッドを使用してコピーしようとすると
「RangeクラスのCopyメソッドが失敗しました」と
エラーになってしまうのですが
CopyとPasteメソッドをつかってそれぞれのブックを
Activateにしてコピーしないと無理でしょうか？
Dim xlsApp As Excel.Application
Set newBook = Excel.Application
With newBook
Set newBk = .Workbooks.Add
～編集処理～
Workbooks(ブック１名称).Activate
Workbooks(ブック１名称).Application.Worksheets(シート名).Range("A1:A20").Copy _
.Workbooks(ブック２名称).Application.Worksheets(シート名).Range("A1")
End With