|
▼初心者 さん:
おはようございます。
>度々失礼致します。
>既存エクセルファイルと新規ブックの間でのデータコピーを試みています。
>さらに、この処理は何度も使用する箇所なので、
>クリップボードを使用しない方法を模索しています。
>
>とあるサイトで「クリップボードを使用しないブック間コピー」という
>サンプルを見つけたのですが、うまくいきません。
>以下、問題点を教えていただけないでしょうか。
>
>【概要】
> エクセルファイル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).Cells(3,1)
'してたらどうでしょうか?
> ↑ここでエラーになります。
>
>※Workbooks(NewBook).Worksheets(1).Activate
>処理ではエラーになりませんでしたので、新規ブックの認識はされているようです。
>
>宜しくお願い致します。
|
|