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

質問

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

回答No.2

watabe007 · ベストアンサー

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

お礼

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

回答No.1

nao-y

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

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

補足

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