Question

excel vba 如何弹出选择路径的对话框并把用户选择的路径储存到变量

Private Sub CommandButton9_Click()

Dim Message, Title, Default, Mypath, message2, C

Message = "输入路径格式如 D:\业务单位\ 请注意最后一定要以\结束否则会出错" ' 设置提示信息。
Title = "输入路径" ' 设置标题
Default = "输入路径如 D:\表\" ' 设置缺省值\

Mypath = InputBox(Message, Title, Default, 5000, 7000)
If Mypath = "" Then
Exit Sub
Else
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
这里输入路径用的是input对话框来实现的，感觉很不方便，可不可以直接弹出选择路劲的界面并把路劲存到mypath变量中去？

Answer 1

Set objFD = Application.FileDialog(msoFileDialogFolderPicker)
With objFD
If .Show = -1 Then
' 如果单击了确定按钮，则将选取的路径保存在变量中
sPath = .SelectedItems(1)
End If
End With