【VBA】ダイアログで名前を付けて保存・同じフォルダに保存する方法

Excel VBAでファイルを保存する処理を作るとき、「ユーザーに保存先を選ばせたい」「元ファイルと同じフォルダに保存したい」といったケースは非常に多くあります。
例えば、帳票作成マクロやデータ出力マクロでは、保存場所を固定するよりも、ユーザーが状況に応じて保存先を指定できる方が実務では便利なこともあります。

しかし、VBAで保存処理を作る際にありがちな問題として、次のようなケースがあります。

・保存先フォルダが固定されていて使いづらい
・既存ファイルを上書きしてしまう
・保存場所が分からなくなる

こうした問題を避けるために、VBAでは保存ダイアログを表示してユーザーに保存場所を指定させる方法や、現在のブックと同じフォルダに保存する方法がよく使われます。

この記事では、VBAで「名前を付けて保存ダイアログを表示する方法」と「同じフォルダに保存する方法」を実務視点でわかりやすく解説します。

✅ VBAでダイアログを表示して名前を付けて保存する方法
・構文例：保存ダイアログを表示するVBAコード
・操作手順：マクロを実行する流れ
・なぜこの書き方にするのか（設計意図）
✅ VBAで現在のブックと同じフォルダに保存する方法
・構文例：同じフォルダに保存するVBAコード
・操作手順：同じフォルダに保存する流れ
・なぜThisWorkbook.Pathを使うのか
✅ 実務でよく使う保存ファイル名の作り方
・例：日付付きファイル名
✅ 上書きエラーを防ぐ実務テクニック
✅ VBAで保存処理を設計するときのポイント
✅ まとめ：VBAで保存処理を柔軟に設計しよう

✅ VBAでダイアログを表示して名前を付けて保存する方法

VBAでファイルを保存するとき、保存先を固定するのではなく、ユーザーに保存場所を選択してもらう方法があります。
この方法を使うと、ユーザーの環境や用途に合わせて保存場所を柔軟に変更できるため、実務では非常によく使われます。

しかし、単純に SaveAs を使うだけでは、ユーザーに保存場所を選ばせることはできません。
そのため、VBAでは FileDialogオブジェクトを使って保存ダイアログを表示します。

この仕組みを理解しておくと、次のような場面で役立ちます。

・帳票をユーザー指定フォルダに保存
・CSVやPDFを任意の場所に出力
・保存場所を確認してから処理する

・構文例：保存ダイアログを表示するVBAコード

まずは基本的なコード例を確認します。

Sub SaveFileWithDialog()

    Dim savePath As String
    Dim fileDialog As FileDialog

    '保存ダイアログを設定
    Set fileDialog = Application.FileDialog(msoFileDialogSaveAs)

    With fileDialog
        .Title = "保存先を選択してください"
        .InitialFileName = ThisWorkbook.Name

        If .Show = -1 Then
            savePath = .SelectedItems(1)
            ThisWorkbook.SaveAs savePath
        End If
    End With

End Sub

・操作手順：マクロを実行する流れ

VBAエディタを開く
標準モジュールを追加する
上記コードを貼り付ける
マクロを実行する

すると、「名前を付けて保存」ダイアログが表示されます。

ユーザーが保存場所を選択すると、その場所にブックが保存されます。

・なぜこの書き方にするのか（設計意図）

このコードでは、保存処理を直接書くのではなく、

保存ダイアログ → 保存処理

という流れにしています。

この設計にする理由は次の通りです。

・保存場所をユーザーに選ばせる
・誤ったフォルダへの保存を防ぐ
・処理の柔軟性を高める

実務では「デスクトップに保存したい」「共有フォルダに保存したい」など、ユーザーの環境が異なることが多いため、この方法がよく使われます。

✅ VBAで現在のブックと同じフォルダに保存する方法

保存ダイアログを使わずに、現在のExcelファイルと同じフォルダに保存する方法もあります。
この方法は、帳票出力やデータ書き出しなどで非常に便利です。

しかし、ここでよくある失敗として、

・保存先が分からなくなる
・フォルダパスを手入力してしまう
・環境によって動かない

といった問題があります。

これを防ぐために、VBAでは ThisWorkbook.Path を使います。

・構文例：同じフォルダに保存するVBAコード

Sub SaveSameFolder()

    Dim savePath As String
    Dim fileName As String

    fileName = "出力ファイル.xlsx"
    savePath = ThisWorkbook.Path & "\" & fileName

    ThisWorkbook.SaveAs savePath

End Sub

・操作手順：同じフォルダに保存する流れ

VBAエディタを開く
標準モジュールを追加
上記コードを貼り付ける
マクロを実行する

すると、

現在のブックと同じフォルダ

にファイルが保存されます。

・なぜThisWorkbook.Pathを使うのか

VBAでは、フォルダパスを直接書くこともできます。

例えば

C:\Users\Desktop\

しかし、この方法には問題があります。

・パソコン環境が違うと動かない
・ユーザー名が変わる
・フォルダ構成が違う

そこで、

ThisWorkbook.Path

を使うことで、

現在のブックが保存されているフォルダ

を自動取得できます。

これにより、環境が変わっても安全に動作します。

VBAでは、保存先フォルダを取得するときも ThisWorkbook のように対象ブックを明確に指定することが重要です。
アクティブ状態に依存したコードを書くと、意図しないブックやシートを操作してしまうことがあります。
VBAで安全にオブジェクトを指定する考え方については、
【VBA】アクティブセル・アクティブシートの考え方と安全な指定方法も参考にしてみてください。

✅ 実務でよく使う保存ファイル名の作り方

実務では、ファイル名を固定すると問題が起こることがあります。

例えば、

・上書きしてしまう
・どのファイルが最新か分からない

そのため、ファイル名に日付を入れることがよくあります。

・例：日付付きファイル名

Sub SaveWithDate()

    Dim savePath As String
    Dim fileName As String

    fileName = "売上データ_" & Format(Date, "yyyymmdd") & ".xlsx"
    savePath = ThisWorkbook.Path & "\" & fileName

    ThisWorkbook.SaveAs savePath

End Sub

この方法なら、

売上データ_20240601.xlsx
売上データ_20240602.xlsx

のようにファイルが保存されます。

実務では、ファイル名に日付を付けることで「どのデータが最新なのか」を分かりやすくすることがよくあります。
VBAで日付付きファイル名を使った自動保存の実装方法については、
【VBA】日付を含むファイル名で自動保存する方法｜上書き防止と実務設計まで解説で詳しく解説しています。

✅ 上書きエラーを防ぐ実務テクニック

同じ名前のファイルが存在すると、エラーが発生する場合があります。

この問題を防ぐ方法として、

DisplayAlertsの制御

があります。

Application.DisplayAlerts = False
ThisWorkbook.SaveAs savePath
Application.DisplayAlerts = True

これにより、上書き確認のダイアログを表示せずに保存できます。

ただし、この方法は

既存ファイルを上書きする

ため、使用には注意が必要です。

✅ VBAで保存処理を設計するときのポイント

保存処理は単純に見えますが、実務では次の点を考慮する必要があります。

・保存場所はユーザー指定か
・同じフォルダに保存するか
・上書きを許可するか
・ファイル名を自動生成するか

特に帳票マクロでは、

保存ルールを設計してからコードを書く

ことが重要です。

✅ まとめ：VBAで保存処理を柔軟に設計しよう

VBAでは、保存ダイアログやフォルダパスを活用することで、柔軟な保存処理を作ることができます。
単純にSaveAsを使うだけではなく、ユーザー操作や保存ルールを考慮した設計が重要です。

今回のポイントを整理すると次の通りです。

・保存ダイアログを使うと保存場所を選択できる
・FileDialogで名前を付けて保存が実装できる
・ThisWorkbook.Pathで同じフォルダに保存できる
・日付付きファイル名にすると管理しやすい
・保存処理は設計を考えて作ることが重要

VBAで保存処理をうまく設計できるようになると、帳票出力やデータ整理などの自動化が一気に便利になります。
ぜひ今回の方法を活用して、実務で使える保存マクロを作成してみてください。