ExcelVBAでの異なるファイル間のセルのコピーについて

質問

ExcelVBAでの異なるファイル間のセルのコピーについて

セルのコピーでエラーが除去できなく困っています
同じファイル内のコピーでは、以下のコードが可能なのですが
-----------------------------------------------------------------
Set XL1 = CreateObject("Excel.Application")
Set WB1 = InXL1.Workbooks.Add
Set XL2 = CreateObject("Excel.Application")
Set WB2 = InXL2.Workbooks.Add
WB1.WorkSheets(1).Range("A1").Copy WB1.WorkSheets(1).Range("A2")
-----------------------------------------------------------------
別ファイルへのコピーではエラーになってしまいます
WB1.WorkSheets(1).Range("A1").Copy WB2.WorkSheets(1).Range("A2")

なぜそうなってしまうのかわかりません
別ファイルへのコピー方法をご存じの方は是非教えて下さると助かります

回答No.1

hana-hana3 · ベストアンサー

＞なぜそうなってしまうのかわかりません

別プロセス（ブックの派生が別々）で起動していることになるので、両者（ブック）の連携が取れないのです。
下記（ブックの派生が同一）ならＯＫです。

スタートメニューからエクセルを２つ機動（２回機動：別プロセス起動）するのと、一つのエクセルから新規にエクセルを複数機動（同一プロセス起動）した場合では、コピペ等の動作が制限されます。

Sub tes1()

Dim XL1, WB1, WB2

Set XL1 = CreateObject("Excel.Application")

XL1.Visible = True

Set WB1 = XL1.Workbooks.Add
Set WB2 = XL1.Workbooks.Add

WB1.Worksheets(1).Range("A1") = 1

WB1.Worksheets(1).Range("A1").Copy WB2.Worksheets(1).Range("A2")

End Sub

お礼

ご回答ありがとうございます。素晴らしいですね！
試してみましたら見事動作するようになりました。
この度はありがとうございました。