是什么导致我的文件保存到我的文档而不是指定的路径？

我是新来的编码（学习在我自己和我去），并有一个小问题，我只是没有得到。我有一段代码已经工作了一段时间，现在似乎无法工作。我创建了一个服务工单，以帮助我们的服务部门保持准确的工作标签。代码非常简单，用户可以在他们需要的单元格中输入所有信息。完成后，他们可以按下更新单独文件的按钮。按另一个，它将活动工作表的副本保存到指定的联网位置，打印副本，根据指定的单元格保存工作表，然后清除指定的单元格并更新PO＃单元格。是什么导致我的文件保存到我的文档而不是指定的路径？

代码运行良好，直到它停止将文件副本保存到指定的目录中，我不知道它为什么更改。

Sub SaveWorkOrderByAddress() 
ChDir "\\BG-PC\SharedDocs\Service work orders\Service work orders" 
Dim NewFN As Variant 
Dim stFileName As String 

'Save a new copy 
NewFN = Range("C2").Value & ".xlsx" 
stFileName = Range("C2").Value & ".xlsx" 
If Dir(stFileName) <> "" Then 
     MsgBox "File already exists, please rename." 
Else 
     ActiveSheet.Copy 
     ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook 
     ActiveWorkbook.Close 
     PrintCurrentWO 
     NextWorkOrderNumber 
     ThisWorkbook.Save 
End If

任何帮助将不胜感激，再次我是新的，所以我很抱歉，如果这是一个新的错误。

来源

2016-02-12 DaveFullSail

更改工作目录在这里没有帮助。拨打ActiveWorkbook.SaveAs时，请将路径与文件名结合起来。

像这样：

NewFN = "\\BG-PC\SharedDocs\Service work orders\Service work orders\" & Range("C2").Value & ".xlsx"

来源

2016-02-12 14:41:06 dwo

是什么导致我的文件保存到我的文档而不是指定的路径？

回答

相关问题