エクセルマクロに関してです。

シート指定で別ブックのをコピーしたいのですが・・・うまくいきません
例えばですけど
Ｂｏｏｋ1のＳｈｅｅｔ2　Ａ4：Ｄ28
から
Ｂｏｏｋ4のＳheet4　Ａ1：Ｄ24 とかの場合でなんですけど。
そんでＢｏｏＫ1に戻る・・・
最後に　　ActiveWorkbook　で終わってるのが間違いなんですよね？？
何で〆ればいいのか分かりません・・・教えてください・・・

No.2 ベストアンサー 回答者： t_fumiaki 回答日時： 2018/09/20 13:14

拡張子が.xlsだとすると

Workbooks("Book1.xls").Worksheets("Sheet2").Range("A4:D28").Copy _
Destination:=Workbooks("Book4.xls").Worksheets("Sheet4").Range("A1")

とするだけなんだけど・・・・。
Book1とBook4は立ち上げて置く。

No.3 回答者： WindFaller 回答日時： 2018/09/21 01:30

こんばんは。

今のポジションがどこにあるか、つまり　ActiveWorkbook、Activesheetは、どこだということですね。マクロコードがどこにあるにしても、今の位置が、

[Book1 のSheet2] をアクティブシートとなっているなら、

Range("A4:D28").Copy Workbooks("Book4").Worksheets("Sheet4").Range("A1")
ということになるわけですし、Book1 に戻るというコードは不要なのです。
左側の片方は、コンテナスタイル(住所のすべて)で書く必要もないわけです。

ただし、A4:D28 ->Book4,Sheet4 の　A1:D24 ではなく、A1:D25　になっているはずです。

No.1 回答者： poco_2 回答日時： 2018/09/20 13:13

最後にＢｏｏＫ1に戻るための〆のコードなら

Workbooks("ＢｏｏＫ1").Activate
でいかがでしょうか。