|
>>貼り付け先のファイルは、他のソフトからの出力データ(EXCELファイル)でその都度連番数字がファイル名として割り当てられますので、VBA上でファイル名を特定することが出来ません。
>ということでしたので、このブックをアクティブにした状態でという事にしました。
>
>マクロを書くのがどのブックなのか解らないから、取りあえずコピー元のブックにしました。
マクロを書いているのは「個人用マクロブック」であり、どのブックという特定は有りません。あえて言うなら貼り付け先のブックに書いていると理解していただければ結構です。一つの方法として「4.0マクロ」の使用を考えました。
Worksheets("Sheet1").Activate ’貼り付け先のブックシート
Dim i As Long, j As Long
For i = 1 To 36
For j = 1 To 5
Cells(i, j) = ExecuteExcel4Macro("'C:\[ABC.xls]DEF'!R" & i & "C" & j)
Next j
Next i
しかし、これでは表の形がくずれてしまい、数式や書式、罫線はコピーされません。表を丸ごとコピーしたいのですが良い方法はないでしょうか。
ちなみに、貼り付け元のブックは実行時に開くようにします。
常時アクティブになっているのは貼り付け先のブックのみです。
いろいろ考えていただいて申し訳ありませんが、ご協力をお願いいたします。
|
|