マクロVBA特定フォルダーに次々に自動保存する方法

質問

マクロ初心者です。教えて下さい。

ループでお客様のコードが入力されている限りデータを作成するマクロを作っています。
現在の状態は
いちいちファイルを付けて保存のメッセージボックスで「保存」としなければなりません。

AAAのフォルダーに作成されたデータを次々に保存していくにはどうしたら良いですか？
（メッセージBOXを出さずに）

マクロ実行したら、何もしなくてもAAAフォルダーに全て保存されている状態にしたいです。
宜しくお願い致します。

'名前を付け保存するファイル名の初期設定
Dim Save_File, Save_Filename As String
Save_Filename = Sheets("企業別金額サマリ").Range("A3").Value & " 販売実績(5月).xls"

'「名前を付けて保存する」ダイアログボックスの表示
Save_File = Application.GetSaveAsFilename(Save_Filename, _
FileFilter:="Excelファイル,*.xls,すべてのファイル,*.*")

'名前を付けて保存する
ActiveWorkbook.SaveAs Filename:= _
Save_File, FileFormat:=xlNormal, _
Password:="mpd", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

回答No.2

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

Dim AA,BB

AA="特定フォルダのPath"
BB=Sheets("企業別金額サマリ").Range("A3").Value & " 販売実績(5月).xls"
'名前を付けて保存する
ActiveWorkbook.SaveAs Filename:=AA & "\" & BB,Password:="mpd"
'「名前を付けて保存する」ダイアログボックスを表示しないでファイルを閉じる。
ActiveWorkbook.Close False

お礼

出来ました！
そのまま使えました。
大変助かりましたありがとうございました。

回答No.1

excelist

次のようにすればいけると思われます！

１．以下の３行は削除（またはコメント）する

'「名前を付けて保存する」ダイアログボックスの表示
Save_File = Application.GetSaveAsFilename(Save_Filename, _
FileFilter:="Excelファイル,*.xls,すべてのファイル,*.*")

２．削除したところに次の１行を加える
Save_File = 【AAAフォルダのパス】 & "\" & Save_Filename

※【ＡＡＡフォルダのパス】にはC:\Documents and Settings・・・というような実際のパスを指定する。【ＡＡＡフォルダのパス】の末尾に円マーク（\）をつけるのであれば「& "\" &」の箇所は不要。

ちなみにですが
Dim Save_File, Save_Filename As String
という１行で２つの変数を同じ型で定義できてるように見えますが、実はＶＢＡではできませんので
Dim Save_File As String, Save_Filename As String
としてやる必要がありますです。

お礼

丁寧にご回答頂きありがとうございました。
エラーが出てしまいました。
（文字が赤くなる　最後がどうのとC:￥マークに言ってるようです）
参考になった！という方がいらっしゃるので
私のやり方が悪いと思います。
親切に教えて下さったのに、上手くいかずもうしわけありません。