Access，VBA中FileDialog中的当前文件夹作为默认文件夹答案

【问题标题】：Current folder as default in FileDialog in Access, VBAAccess，VBA中FileDialog中的当前文件夹作为默认文件夹
【发布时间】：2016-06-18 20:51:09
【问题描述】：

如何在打开 FileDialog 时将当前存放访问数据库的文件夹设为默认文件夹？我使用了“CurrentProject.Path”，如下所示，但它使 c:\ 成为默认值

Dim fd As Object
Set fd = Application.FileDialog(3)
Dim vrtSelectedItem As Variant

With fd
.InitialFileName = Environ("CurrentProject.Path") & "\"
.Filters.Clear
.Filters.Add "Microsoft Excel(*.xlsx)", "*.xlsx", 1
.AllowMultiSelect = False
.Show 
End With

谢谢

【问题讨论】：

不使用Environ 部分：.InitialFileName = CurrentProject.Path & "\"

标签： vba ms-access filedialog

【解决方案1】：

我刚发现有什么问题，我必须这样说

.InitialFileName = (CurrentProject.Path)

【讨论】：