ファイルの中のあるシートを別名のファイルに保存する方法

Excel VBAの質問です。

ファイル「A.xls」に複数シートがあります。このうちシート「e」のみを、Ｃドライブ直下
の「参照フォルダ」内にある、ファイル「Ｚ.xls」に「ｖ」というシート名で保存するのは、
VBAで可能ですか。

上記については、ファイルを閉じる時にVBAが自動実行される形が理想です。
ご指南よろしくお願いします。

No.1 回答者： hallo-2007 回答日時： 2016/02/23 20:50

まずは、マクロの記録でVBAを作成してみてください。

ファイル「A.xls」の特性のシート上に、ボタンを配置
マクロの記録を開始
新規ファイルにファイルを開いて
eのシート全体を選択、コピー
新規のファイルのシートに貼付け
シート名をｖに変更
Ｚ.xls　の名前で保存して閉じます。
マクロの記録の終了
VBエディターで操作した内容が確認できます。

この回答へのお礼

早速の回答ありがとうございました。
参考にしてみます。

お礼日時：2016/02/24 10:24

No.2 ベストアンサー 回答者： ママチャリ 回答日時： 2016/02/23 21:17

ThisWorkbookオブジェクトの下のWorkbook_BeforeCloseイベントプロシジャに、次のコードを書いてください。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("e").Copy
ActiveWorkbook.ActiveSheet.Name = "z"
ActiveWorkbook.SaveAs Filename:= _
"C:\参照フォルダ\z.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
End Sub

この回答へのお礼

ご回答ありがとうございます。
私が知識不足のため、なんとなくですが「あぁ、こうするんだ、凄い」と理解できました。
実際に試してみます。ほんとにありがとうございました。

お礼日時：2016/02/24 10:24