Question

VBA问题，使用filedialog打开文件对话框的时候，怎样设置其默认打开的文件夹。

例如我希望打开文件对话框时，显示的是“E:\数据文件”里的文件，这个该怎么设置呢？

Answer 1

Sub aa()
Dim mm
Set mm = Application.FileDialog(msoFileDialogFolderPicker)
With mm
.InitialFileName = "E:\数据文件" '定义“E:\数据文件”为默认路径
End With
mm.Show
End Sub

Answer 2

如，加一句：myDialog.InitialFileName = ThisWorkbook.path :
或: myDialog.InitialFileName = "E:\数据文件\":
或: myDialog.InitialFileName = Range("D10") & "\" : '''根据单元格内容