任意のブックのシートをコピー

任意のブックのシートをコピーしたいのです。
たとえば、いつも使用するブック【ＡＡＡ】があるとして、そこに後から開いたブック【ＢＢＢ】のシート「あああ」をコピーしたいのです。
ここでの問題は、そのブックが常に【ＢＢＢ】ではなということです。
例えはブック【ＣＣＣ】のシート「あああ」であったり、ブック【ＤＤＤ】のシート「あああ」であったり。
シート名は常に「あああ」なのですが、ブック名が毎回違うのです。
ブック【ＡＡＡ】のマクロでなんとかできますでしょうか？

No.2 ベストアンサー 回答者： watabe007 回答日時： 2012/05/24 16:16

Sub Test()

　　Dim FN As Variant
　　Dim wb As Workbook
　　'そこに後から開いたブック【ＢＢＢ】
　　'ダイアログで任意のブックを選択してください。
　　FN = Application.GetOpenFilename(Title:="ファイル名を選択して下さい")
　　If FN = False Then Exit Sub
　　Set wb = Workbooks.Open(FN)
　　'アクティブシートの右隣にコピー
　　wb.Sheets("あああ").Copy After:=ThisWorkbook.ActiveSheet
End Sub

この回答へのお礼

思ったとおりになりました。
すごいです。
ありがとうございます。

お礼日時：2012/05/24 16:55

No.1 回答者： nao-y 回答日時： 2012/05/24 12:14

以下のロジックで、できると思います（未検証）

1.開きたいブックの名前（仮に【XXX】とする）を取得する。
　（Application.GetOpenFilenameを使うのが一般的ですね）
2.ブック【XXX】を開く。
　→このときにブック【XXX】がActiveになります。
3.ワークシート「あああ」（と指定するだけで、ブック【XXX】のワークシート「あああ」が
選択されます）のCopyメソッドを使い、ワークシート【ＡＡＡ】の任意のシートの後（または前）に
コピーする。

この回答への補足

うまくいきません。
私のレベルの低いせいです。
すみません。

補足日時：2012/05/24 13:24