excel - 如何修复 wb.SaveAs 函数上的错误 1004

Question

这是我工作的第一个大型 VBA 项目。我正在自动归档来自多个来源的多个报告。上周我完成了我需要使用的两个报告的实现工作，并且 wb.SaveAs 函数正在工作。现在我已经添加了第三个来源，wb.SaveAs 不再起作用了。

我尝试引用映射的网络驱动器，尝试直接引用，并且尝试将路径放入变量中。这些都不起作用。我搜索了这个网站和其他网站，但我发现的类似问题的答案并不适用。

'This is only the code for the loading and saving part
Dim wbTime As Workbook
Dim wsTime As Worksheet
Dim wbRP As Workbook
Dim wsRPDic As Worksheet
Dim wbTdB As Workbook
Dim wsTdB As Worksheet
Dim wbMots As Workbook
Dim wsMots As Worksheet


'Setting all the workbooks and worksheets to be used
Set wbTime = Workbooks("Timesheets.xls")
Set wsTime = wbTime.Worksheets("TimeSheets")
Set wbRP = Workbooks.Open("\\BUR-SERV\Data\xxx\xxx\xxx xxx\Calculs-Analyses\Rapport Productivit? Prod 2019.xlsx")
Set wsRPDic = wbRP.Worksheets("Dictionary")
Set wbTdB = Workbooks.Open("\\BUR-SERV\Data\xxx\xxx\xxx xxx\Suivis, Rapport et TdB\Tableau de Bord.xlsx")
Set wsTdB = wbTdB.Worksheets("Tableau de Bord Complet - 2019")
Set wbMots = Workbooks.Open("\\BUR-SERV\Data\xxx\xxx\xxx xxx\Calculs-Analyses\Raw Reports\Rapport de productivit?.xls")
Set wsMots = wbMots.Worksheets("Sheet2")


'Save and close section. This is at the very end of the code and both wb.SaveAs don't work now
wbTime.SaveAs Filename:="\\BUR-SERV\Data\xxx\xxx\xxx xxx\Calculs-Analyses\Raw Reports\Done\Heures_" & Replace(curWeek, "/", "-") & ".xls", FileFormat:="xlExcel8"
wbMots.SaveAs Filename:="\\BUR-SERV\Data\xxx\xxx\xxx xxx\Calculs-Analyses\Raw Reports\Done\Rapport de Productivit?_" & Replace(curWeek, "/", "-") & ".xls", FileFormat:="xlExcel8"
wbRP.Save
wbTdB.Save
wbTime.Close
wbMots.Close
wbRP.Close
wbTdB.Close

我正在尝试将两个报告保存在已完成的文件夹中，并用报告的周重命名它们。相反，我得到错误代码:1004 - 由应用程序或对象定义的错误

Answer 1

一个失败的Workbook.SaveAs call 通常意味着路径或文件名有问题。

分开SaveAs从您需要调用该成员(member)电话的作品中收集成员(member)电话。

即拉Filename将参数表达式转换为新的局部变量:

Dim newFilename As String
newFilename = "\\BUR-SERV\Data\xxx\xxx\xxx xxx\Calculs-Analyses\Raw Reports\Done\Rapport de Productivit?_" & Replace(curWeek, "/", "-") & ".xls"
Debug.Print newFilename
Stop

现在运行它，当执行停止时，您应该会看到您为 Filename 传递的实际字符串值。参数(Ctrl+G 调出调试/立即 Pane )。这看起来像一个有效的路径和文件名吗？将其复制到剪贴板，返回 Excel 并按 F12/SaveAs 并尝试使用该名称保存文件。

您应该会收到一条详细的错误消息，告诉您它到底出了什么问题。
?字符高度可疑(在文件名中是非法的)， \xxx\xxx\xxx占位符看起来实际路径可能相当深 - 验证总长度是否低于 255 个字符。