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

Question

如何在打开FileDialog时将当前存放access DB的文件夹设为默认文件夹？我使用 "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

谢谢

Answer 1

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

.InitialFileName = (CurrentProject.Path)

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

Current folder as default in FileDialog in Access, VBA

ms-access

vba

filedialog