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