由于错误，保存 excel xlsm 文件无法正常工作

Question

我有这个宏正在更新一些表，过去两周它一直运行良好，但是它突然开始给我 1004 运行时错误 - 最初它是运行时错误 1004 object _workbook failedub SaveAs() 的方法保存，现在是只需运行时错误 1004 “应用程序定义或对象定义错误。

我怀疑这与保存文件有关，因为这就是它给我错误的地方，其他一切正常。 我已将保存代码分隔在不同的宏中，但仍然出现此错误。

我试图将路径字符串整合为一个部分（Mth var 是一个变量，我们每个月都会更改报告，并从工作表值中获取，但必须手动添加它以进行测试）。 最初路径和文件名最后错过了（“S”），因为我认为这些名称可能与库中的某些内容冲突。

请注意，在代码使用 ActiveWorkbook.Saveas 并且工作正常之前，我不确定这是 Excel 知道要查看哪个工作表或工作簿的问题。

我该如何解决？ 请看下面的代码：

ThisWorkbook.Activate
Dim Mth As Integer
Mth = 4
Dim FileNames As String
Dim Paths As String
Dim Fullstring As String
Application.DisplayAlerts = False
Paths = "\\RL1VMFIL02\Finance$\Financial Management\SITES & SERVICES\Corporate\2020-21\C - Statements & Trends" & "\M" & Mth & "\"
FileNames = Format(Now(), "dd.mm.yy") & " Budget Statement & Trend M" & Mth & " - " & Format(Now(), "hh.mm") & ".xlsm"
Fullstring = Paths & FileNames
ThisWorkbook.Activate
ThisWorkbook.SaveAs Fullstring
Application.DisplayAlerts = True

End Sub

Answer 1

这已通过确保路径文件夹按照@RustyBucketBay 和@GMalc 的建议存在来解决。

明确地，月份路径包含一个 0，因此它应该是 Mth var = '04 而不是 4 或路径 "\M0" & Mth & ""

非常感谢你们的帮助！