|
度々失礼致します。
既存エクセルファイルと新規ブックの間でのデータコピーを試みています。
さらに、この処理は何度も使用する箇所なので、
クリップボードを使用しない方法を模索しています。
とあるサイトで「クリップボードを使用しないブック間コピー」という
サンプルを見つけたのですが、うまくいきません。
以下、問題点を教えていただけないでしょうか。
【概要】
エクセルファイルAと新規ブックの2つのファイルを開き、Aのデータを新規ブックにコピーする。
【処理】
Dim NewBook as String
Workbooks.Open FileName:= (Excel形式のファイルAの絶対パス)
Workbooks.Add
NewBook = ActiveWorkbook.Name ←"Book1"のような名前が入ります。
Workbooks("A.xls").Worksheets("Sample").Range("A1").Copy _
Workbooks(NewBook).Worksheets(1).Range(Cells(3,1))
↑ここでエラーになります。
※Workbooks(NewBook).Worksheets(1).Activate
処理ではエラーになりませんでしたので、新規ブックの認識はされているようです。
宜しくお願い致します。
|
|