エクセルのシート１枚だけ保存するマクロ

質問

いつもお世話になります。

エクセルのシート１枚だけを別ファイルに保存したいのです。
過去ログを見て、そのサブをモジュールに貼り付けて試しているのですが、うまく行きません。
アドバイスをお願いします。

状況は以下の通りです。

シート１に帳票のフォーマットを作成してあります。
シート２にデータが並んでいます。
シート２のデータを順番にシート１に表示して印刷するマクロは作成しました。ただセルの値をコピーするだけなので単純です。
そのシート１だけを保存したいのです。
Sheet1.SaveAs (ファイル名)
だとブック全体が保存されてしまいます。
ワークブックの保存になっていてもいいのですが、内容はシート１だけを保存したいのです。
シート１にはイメージコントロールが３個あり、画像も入れ替わりますが、式は入っていません。
ファイル名は帳票の個別名称を使用しますので重複はしません。
シート名にしなければならない場合でも処置できます。
皆様の助言をお願いいたします。
エクセル２００３を使用しています。

回答No.2

imogasi · ベストアンサー

マクロの記録でできるでしょう。ほかに考慮することは、名前やフォルダは前もってInputBoxで聞けばよい。
操作
保存したいシートのタブ部で右クリック
移動またはコピー
コピーを作成するにチェックを入れる
移動先ブック名
新しいブック
OK
保存しますか
はい
「名前をつけて保存」のウィンドウが出る
ブックの名前を入力
保存をクリック
ーーー
コードは
Sub Macro1()

Sheets("Sheet1").Select
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\xxxx\My Documents\Bookxx.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
End Sub

お礼

ありがとうございました。

記載していただいたコードのファイル名を、サブの引数で指定して連続保存も可能になりました。
６０００枚ほど作成する必要があったので、大変助かりました。
またこんな機会がありましたら、その時もよろしくお願いいたします。

回答No.1

nekotaru

いつもお世話になります。

教えてください。
機能を実現したいマクロは、そのシート１だけを保存したBOOKに作っていいのでしょうか？

お礼

ありがとうございました。
買い物に行っている間に２の方の回答で解決がつきました。
ときどき質問していますので、またそんな時はよろしくお願いいたします。