エクセルマクロで、フォルダを作成してブック保存するVBAコードをご紹介します。
このページのマクロコードは、コピペで使えます。
ぜひお試しください!
フォルダを作成してブック保存
以下のマクロを実行すると、自動作成したフォルダにファイルを保存します。
Sub 作成したフォルダにファイル保存()
Dim Save_Path As String
Dim MyDate As String
'作成するフォルダ())
MyDate = Format(Now(), "yyyymmdd_hhmmss")
'フォルダの作成先となるパス
Save_Path = ActiveWorkbook.Path & "\【テスト】_" & MyDate
'フォルダを作成
MkDir Save_Path
'名前をつけて保存
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Save_Path & "\" & "ファイル名を入れる", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
End Sub
マクロ実行前
「会議資料.xlsm」に、上記のマクロを組みます。
マクロ実行後
マクロを組んだ「会議資料.xlsm」と同じフォルダに、
「【テスト】_yyyymmdd_hhmmss」という名前のフォルダを自動作成します。
自動作成したフォルダの中に、
「会議資料.xlsm」を別名保存したファイルを保存します。
この記事がお役に立ちますと幸いです。
【エクセルマクロ】名前を付けて保存処理を自動化:超便利8選
...
「プログラマーの本気がExcelを覚醒させる 超絶ExcelVBA」
ExcelVBAでワンランクアップできる書籍
具体的で応用が利く技をたくさん掲載
リンク