マクロ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
お礼
ありがとうございましたっ!! 左下のeditor typeを3Dviewにしたら元の画面になりました! これで無事再開できます!