Set fd = Application.FileDialog(msoFileDialogFolderPicker) '允许用户选择一个文件夹
With fd
.InitialFileName = "\\PIC\2015\" '定义默认路径
End With
这么写会弹出对话框然后到默认路径
能不能不弹出对话框直接调用这个路径
第1个回答 2018-03-11
可以用dir函数获得这个工作簿名称,然后打开,打开之后就可以用变量来引用这个工作簿,不打开只能引用它的名称
还有种办法是使用FSO对象,可以引用文件的.
还有种办法是使用FSO对象,可以引用文件的.
第2个回答 推荐于2018-03-11
不会弹出对话框吧。代码可简化一下:
Set fd = Application.FileDialog(msoFileDialogFolderPicker) '允许用户选择一个
fd.InitialFileName = "\\PIC\2015\" '定义默认路径本回答被提问者和网友采纳
Set fd = Application.FileDialog(msoFileDialogFolderPicker) '允许用户选择一个
fd.InitialFileName = "\\PIC\2015\" '定义默认路径本回答被提问者和网友采纳