excel vba 不遵循保存路径并保存在我的文档中

Posted 2023-05-07

【中文标题】excel vba 不遵循保存路径并保存在我的文档中

【英文标题】：excel vba doesnt follow save path and saves in my documents

【发布时间】：2018-05-23 12:00:23

【问题描述】：

我对 vba 很陌生。我写了一段代码来保存一个excel工作簿。原始保存路径有效，文件保存在那里，但是当我尝试更改它（到共享目录）时，它不听。相反，它只是保存在我的文档中。以下是有效的代码。

任何帮助将不胜感激

Sheets("Sheet1").Select
Sheets("Sheet1").Copy
ChDir "C:\Users\SI\Desktop\Generator"
ActiveWorkbook.SaveAs Filename:= _
    Range("B4").Value & " TRS - " & Range("E6").Value & " vs " _
    & Range("E7").Value & " - " & Format(Date, "dd-mm-yyyy"), FileFormat:= _
    xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Sheets("ST").Select

【问题讨论】：

是否要将特定工作表或工作簿保存到目录？

我从工作簿中提取了一张工作表并创建了一个新工作簿，所以我想我想保存新工作簿

您不能将 ChDir 与 UNC（网络）路径一起使用。

【参考方案1】：

只需在 SaveAs 的 Filename 参数中指定完整路径

Sheets("Sheet1").Select
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\SI\Desktop\Generator\" & Range("B4").Value & " TRS - " & Range("E6").Value & " vs " _
    & Range("E7").Value & " - " & Format(Date, "dd-mm-yyyy"), FileFormat:= _
    xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Sheets("ST").Select