Question

EXCEL vba z中Application.FileDialog 如何指定某个文件夹？

Set fd = Application.FileDialog(msoFileDialogFolderPicker) '允许用户选择一个文件夹

With fd
.InitialFileName = "\\PIC\2015\" '定义默认路径
End With
这么写会弹出对话框然后到默认路径
能不能不弹出对话框直接调用这个路径

Answer 1

可以用dir函数获得这个工作簿名称,然后打开,打开之后就可以用变量来引用这个工作簿,不打开只能引用它的名称
还有种办法是使用FSO对象,可以引用文件的.

Answer 2

不会弹出对话框吧。代码可简化一下：
Set fd = Application.FileDialog(msoFileDialogFolderPicker) '允许用户选择一个文件夹
fd.InitialFileName = "\\PIC\2015\" '定义默认路径