GetSaveAsFilename（）始终在我的文档中打开

Question

我在使用GetSaveAsFileName（）函数打开网络驱动器中的保存对话框而不是始终在我的文档中打开时遇到问题。  基本上，我已经实现了一种解决方法，可以通过以下方式更改网络驱动器的路径：

我工作模块的顶部：

 Private Declare Function SetCurrentDirectoryA Lib _
 "kernel32" (ByVal lpPathName As String) As Long

 Sub ChDirNet(szPath As String)
 Dim lReturn As Long
 lReturn = SetCurrentDirectoryA(szPath)
 If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path."
 End Sub

在我的SaveAs（）模块中，使用以下代码：

 ChDirNet "\\test\input"
 xFileName = Application.GetSaveAsFilename("\\test\input\filename.xls")

但是，我仍然无法在\ test \ input网络路径中打开另存为对话框。

有人可以建议吗？

任何帮助将不胜感激！

谢天谢地。

Answer 1

一些评论：

• 在致电
之前无需更改Dir
• 我刚做了一些 传递有效时，测试和GetSaveAsFilename完美无缺 UNC表示法中的文件夹或文件。
• 我怀疑你的 网络路径无效。你确定网络路径是 正确（你能用这条路径打开资源管理器吗？）