【エクセルマクロ】フォルダを作成してブック保存:コピペで使えるコード

vba-フォルダー作してファイル移動-アイキャッチ ExcelVBA

エクセルマクロで、フォルダを作成してブック保存する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でワンランクアップできる書籍
具体的で応用が利く技をたくさん掲載