【エクセルマクロ】フォルダを作成してブック保存：自動化

エクセルマクロで、フォルダを作成してブック保存する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」を別名保存したファイルを保存します。

 
 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】名前を付けて保存処理を自動化：超便利８選

...

kirinote.com

2023.08.26