フォルダ選択用のダイアログ表示_VBA

今回は単純なのでソースだけポイっと載せちゃいます。

ソースはこんな感じ

Public Function フォルダ選択_ダイアログ(Optional ByVal Dフォルダパス As String = “”) As String
‘===================================================
‘概要 | フォルダ選択用ダイアログで取得したパスを戻す
‘===================================================
With Application.FileDialog(msoFileDialogFolderPicker) .Title = "ダイアログ" .InitialFileName = Dフォルダパス '参照の基準地点を設定 If .Show = True Then フォルダ選択_ダイアログ = .SelectedItems(1) End If End With
End Function