エクセルVBAでフォルダ指定しておいて名前を付けて保存する方法

エクセル

2024.03.052024.07.21

あなたはエクセルで名前を付けて保存するとき、フォルダを選ぶのが面倒だと思ったことはありませんか？

いちいちマウスで「ファイル　→フォルダを選択　→名前を付けて保存」とクリックするのは手間ですよね。

エクセルのマクロを使えば、ファイル保存するときのフォルダの選択を、あらかじめしておくことができます。

今回は「エクセルVBAでフォルダ指定しておいて名前を付けて保存する方法」を紹介します。

エクセルVBAでフォルダ指定しておいて名前を付けて保存する方法
実際の使用例
まとめ

エクセルVBAでフォルダ指定しておいて名前を付けて保存する方法

エクセルVBAでフォルダ指定しておいて名前を付けて保存する方法です。

今回はデスクトップに「保存」フォルダを作っておき、そのフォルダを保存先としてあらかじめ指定して、保存する方法で紹介します。

マクロを作るときは、「開発」タブを使います。
開発タブが出ていない方は、下のリンクで出し方を紹介していますので、まずは準備をお願いします。
→エクセルで開発タブを表示する方法

１．「開発」タブをクリック　→「挿入」をクリック　→「ボタン」をクリック

２．「新規作成」をクリック

３．コード入力画面が開く

４．コードを入力

コードを入力します。

ファイル保存の画面を開いて、デスクトップの「保存」フォルダに保存する、という意味です。

赤枠部のコードです。

    Dim desktopPath As String
    Dim fileName As String

    ' デスクトップのパスを取得
    desktopPath = Environ("USERPROFILE") & "\Desktop\保存\"

    ' ファイル保存ダイアログを表示
    fileName = Application.GetSaveAsFilename(FileFilter:="Excel ブック (*.xlsm), *.xlsm", InitialFileName:=desktopPath, Title:="保存先を指定してください")

    ' キャンセルボタンが押された場合は何もせずに終了
    If fileName = "False" Then
        Exit Sub
    End If

    ' ファイルを保存
    ThisWorkbook.SaveAs fileName

    MsgBox "ファイルが保存されました。", vbInformation

コードを入力したら、コードの入力画面を閉じて下さい。

５．ボタンができた　→ボタンをクリック

ボタンができました。

ボタンをクリックします。