マクロで別ファイルのシートコピーして、元ファイルに貼り付けを行なうには

質問

ＶＢＡ初心者です。こんなマクロを作りたいのですが・・・
(1)　Ａファイルのαシートから操作する。
(2)　Ｂファイルを開いて、βシートの一部をコピー
(3)　Ｂファイルを閉じる（保存なし・各種アラートなし）
(4)　Ａファイルに再び戻り、αシートに貼り付けする

といったものなのですが、
(2)まではできたのですが、(3)からうまくいかず、勝手に新規ファイルにβシートがコピーされてしまいます。
是非ご教授ください。

回答No.2

mitarashi · ベストアンサー

A No.1とかぶっちゃいましたが、サービスでコード付ということで投稿させていただきます。
(1)　Ａファイル（マクロを記述してある）から操作する。
(2)　Ｂファイルを開く
(3)　Ｂファイルのβシートの一部をコピーして、Ａファイルのαシートに貼り付けする
(4)　Ｂファイルを閉じる（保存なし・各種アラートなし）
というワークフローにすれば、
(3)は、
Sub test()
Workbooks("Ｂファイル.xls").Sheets("β").Range("A1:B4").Copy ThisWorkbook.Sheets("α").Range("a1")
End Sub
で実現できます。（複写先範囲は適当にいじって下さい）

お礼

ありがとうございます
うまく実現できました。
本当に助かりました

回答No.3

zap35

例えばこんなマクロでもできます

Sub Macro1()
Dim wb As Workbook
Dim psw As Boolean
Dim myPath As String
　myPath = ThisWorkbook.path
　For Each wb In Workbooks　'Ｂファイルが既に開いているか確認
　　If wb.Name = "Ｂファイル.xls" Then
　　　psw = True
　　　Exit For
　　End If
　Next wb
　If psw = False Then
　　Workbooks.Open (myPath & "\Ｂファイル.xls")
　End If
　Workbooks("Ｂファイル.xls").Sheets("βシート").Range("A1:A10").Copy
　Workbooks("Ｂファイル.xls").Close False
　Range("A1").Select
　ActiveSheet.Paste
End Sub

ただ複数のシートを操作する場合、
　Range("A1").Select
のような箇所は
　Workbooks("Ａブック.xls").Sheets("αシート").Range("A1").Select
のようにオブジェクトを明示する方が良いと思います。

回答No.1

n-jun

（３）と（４）を入替えてみては？

というか
(1)　Ａファイルのαシートから操作する。
(2)　Ｂファイルを開いて、βシートの一部をコピーしＡファイルのαシートに貼り付け
(3)　Ｂファイルを閉じる（保存なし・各種アラートなし）
でしょうか。