Excel VBA フォルダ選択ダイアログはユーザー操作でフォルダ選択に使用

以下のようなシーンで利用されます。

1.ファイルの保存先指定
レポートやデータファイルの保存先フォルダを指定させたいとき。

2.ファイルの読み込み元指定
CSVやテキストファイルなどの一括インポートを行うフォルダを指定する。

3.一括処理対象フォルダの選定
選択したフォルダ内の全ファイルに対して処理を実行したい。

Option Explicit

Sub フォルダ選択ダイアログ()
    Dim フォルダダイアログ As FileDialog
    Dim 選択フォルダ As String
    
    ' フォルダ選択ダイアログを作成
    Set フォルダダイアログ = Application.FileDialog(msoFileDialogFolderPicker)
    
    ' ダイアログの初期フォルダ設定（オプション）
    フォルダダイアログ.InitialFileName = "C:\"
    
    ' ダイアログ表示し、フォルダが選択されたか確認
    If フォルダダイアログ.Show = -1 Then
        ' 選択されたフォルダパスを取得
        選択フォルダ = フォルダダイアログ.SelectedItems(1)
        MsgBox "選択されたフォルダ: " & 選択フォルダ
    Else
        MsgBox "フォルダ選択がキャンセルされました"
    End If
End Sub

フォルダ選択ダイアログは、ユーザーに特定のフォルダを選ばせる場面でとても便利です。レポート保存やファイル処理の対象フォルダを指定させるなど、業務でのファイル操作を自動化する際に役立ちます。