シートをコピーする方法

質問

エクセルのVBAで教えてください。

エクセルファイルAとエクセルファイルBがあります。
・エクセルファイルAを、複製してエクセルファイルCを作成。
・エクセルファイルBの「あ」シートをエクセルファイルＣにコピー
　※「あ」シートは、エクセルファイルＣに存在しない
のですが、どのようにVBAを作成すればよいでしょうか？

私が素人過ぎて、誠に申し訳ないのですが、
具体的なソースで頂ければ大変助かりますので
宜しくお願いします。

回答No.1

米沢 栄蔵（@YON56） · ベストアンサー

次の条件にて、マクロ構文(B)を書きます。

Bからマクロを実行する。
AとBが共に開かれている。
CをBと同じフォルダに保存する。
Bのシート「あ」をCの最左に貼り付ける。

Workbook("A").SaveAs Filename:=Workbook("B").Path & "\C.xls"
'Aをコピーして、Bと同じフォルダにCを作成します。
Workbook("B").Activate
'Bをアクティブします。
Sheets("あ").Copy Befor:=Workbook.("C").Sheets(1)
'BのSheets("あ")をコピーして、Cの最左に貼り付けます。
Workbook.("C").Save
'Sheets("あ")が貼り付けられたCを保存します。