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

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

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

No.2 ベストアンサー 回答者： mitarashi 回答日時： 2008/08/15 00:20

A No.1とかぶっちゃいましたが、サービスでコード付ということで投稿させていただきます。

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

この回答へのお礼

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

お礼日時：2008/08/16 20:26

No.3 回答者： zap35 回答日時： 2008/08/15 16:48

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

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 回答日時： 2008/08/15 00:08

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

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