Excel 2007：macros以共享驱动器上保存文件

我在Excel中写入macros，我试图将一个.txt文件保存到共享驱动器。 我已经尝试了下面的两组代码，我得到'运行时错误'76'：未findpath“。这是文件path的正确语法？

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之间缺less一个\ ，他的解决scheme在你的特定情况下工作。 然而，一般情况下， FilePath是否已经有一个“ \并不总是显而易见，并且这需要在将string连接成一个更一般的情况之前进行testing。

另一种方法是使用FileSystemObject的BuildPath方法 ，该方法自动执行此testing，即只在必要时在现有path和文件名之间插入额外的path分隔符。

 Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") Open FSO.BuildPath(FilePath, sOutPutFile) For Output As #nFileNum