【VBA】保存先のフォルダパスを変数格納して使用(動画あり)

エクセルマクロで、保存先のフォルダパスを変数に代入して使用するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください！

保存先のフォルダパスを変数格納して使用

以下のマクロを実行すると、変数で指定したフォルダにファイルを保存します。

Sub ファイルの保存先を変数代入()

Dim Change_Name As String
Dim SavePath As String
    
    'フォルダパスとファイル名を変数に代入
    SavePath = "C:\テスト"
    Change_Name = "サンプル"
    
    'ファイル保存
    ActiveWorkbook.SaveAs Filename:=SavePath & "\" & Change_Name, _
     FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

マクロ実行後

変数に格納したパスにファイルを自動保存します。

保存先のフォルダパスを変数格納して使用（セルにパス入力）

以下のマクロを実行すると、保存先をセル値に入力してファイルを保存します。

Sub ファイルの保存先指定()

Dim Change_Name As String
Dim SavePath As String
    
    'セル値を変数に代入
    SavePath = Range("G1")
    Change_Name = Range("G2")
    
    'ファイル保存
    ActiveWorkbook.SaveAs Filename:=SavePath & "\" & Change_Name, _
     FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

マクロ実行後

変数に格納したパスにファイルを自動保存します。

保存したファイルです。

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

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

...

kirinote.com

2023.08.26