VBA- 弹出对话框，选择文件夹，并获取文件夹路径

Sub SelectFolder()
    Dim Path As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then
        'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果按 OK）和 0（如果按 Cancel）
            Path = .SelectedItems(1)
            MsgBox "您选择的文件夹是：" & Path, vbOKOnly + vbInformation, "智能Excel"	
            '获取到的Path长这个样子："D:\VBA\Report\Format"，Format就是我选中的文件夹的名字
        End If
    End With
End Sub