Excel 2007：将文件保存在共享驱动器上的宏

Question

我正在 Excel 中编写宏，并尝试将 .txt 文件保存到共享驱动器。我已经尝试了下面的两组代码，但收到“运行时错误‘76’：未找到路径”。这是文件路径的正确语法吗？

FilePath = ThisWorkbook.Path & "\\server.name\$foldername"
sOutPutFile = "filename.txt"

FilePath = "\\server.name\$foldername"
sOutPutFile = "filename.txt"

我在以下行中收到错误：

Open FilePath & sOutPutFile For Output As #nFileNum

有什么想法吗？提前致谢。

Answer 1

看起来您需要在 FilePath 和 sOutPutFile 之间使用“\”：

Open FilePath & Application.PathSeparator & sOutPutFile For Output As #nFileNum

Answer 2

我认为@Doug Glancy 击中要害。您在 FilePath 和 sOutPutFile 之间缺少 \，他的解决方案适用于您的特定情况。然而，一般来说，FilePath 末尾是否已经有 \ 并不总是很明显，这需要在连接字符串之前进行测试。更一般的情况。

另一种方法是使用 FileSystemObject 的 BuildPath 方法，它自动执行此测试，即仅在必要时在现有路径和文件名之间插入附加路径分隔符。

Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")

Open FSO.BuildPath(FilePath, sOutPutFile) For Output As #nFileNum