[vba/excel]フォルダのパスを選択ダイアログで取得する

gistfile1.vb

'-------------------------------------------------------------------------------
'フォルダのパスを選択ダイアログで取得する
'-------------------------------------------------------------------------------
'【引数】
'【戻り値】出力先のフォルダのパス
'【備考】選択ダイアログの初期値はデスクトップ。
Private Function GetTargetFolderPath() As String
    Dim WSH As Object
    Dim strInitFolder As String
    Dim strOutput As String

    Set WSH = CreateObject("WScript.Shell")
    strInitFolder = WSH.SpecialFolders("Desktop") & "\"
    Set WSH = Nothing
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "フォルダを選択"
        .AllowMultiSelect = False
        .InitialFileName = strInitFolder
        If .Show = True Then
            strOutput = .SelectedItems(1)
        End If
    End With

    GetTargetFolderPath = strOutput
End Function