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

Sub SelectFolder()Dim Path As StringWith 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 IfEnd WithEnd Sub