对象'_Workbook'的方法'SaveAs'失败VBA

Question

我有一个连接到数据库的工作簿，当您刷新工作簿时，它会刷新工作簿中的数据。然后运行一个宏以将新的（原始）数据保存在两个不同的位置，然后宏将对该原始数据进行分析，并稍后将同一工作簿保存在其他 4 个位置。 当我尝试第一次保存原始数据时，我可以保存到第一个位置，但是当它移动到第二个位置时，我收到错误：运行时错误'1004'：方法'SaveAs'对象“_Workbook”失败。这两个位置都是有效的位置。

这是宏中的一个子程序，用于保存第一个文件：

Sub saveraw()

Dim rdate As String
Dim rawfilename As String, rawfilename1 As String
Dim mywb As Workbook

Set mywb = ActiveWorkbook

rdate = Format(Now(), "mm-dd-yy")

rawfilename = "\\sw\mes\PS\SC\SCM_Supply_Execution\Spares\This Weeks Number Database\This Weeks Numbers(raw) " & rdate & ".xlsm"
rawfilename1 = "\\sw\mes\PS\SC\SCM_Shared\Spares Reports\This Weeks Numbers(raw) " & rdate & ".xlsm"

mywb.Save

Worksheets("Sheet2").Range("A2") = Null

Application.DisplayAlerts = False

mywb.SaveAs Filename:=rawfilename
mywb.SaveAs Filename:=rawfilename1

Application.DisplayAlerts = True

End Sub

我也试过用的方法

ActiveWorkbook.SaveAs

代替两个 mywb.SaveAs，但这也不起作用。

Answer 1

作为测试，针对只有您有权访问的文件位置运行代码。我注意到第二个命令中提到了共享驱动器，因此可能有人已经在其中并且无法保存。

现在将显示警报设置为 true。

另外，当您运行测试宏时，请确保您没有打开任何 Windows 资源管理器窗口并在此处反馈结果，如果再次调试，我会提供帮助。

从表面上看，代码看起来不错。

Answer 2

试试这个

ActiveWorkbook.SaveAs Filename:="\\sw\mes\PS\SC\SCM_Supply_Execution\Spares\This Weeks Number Database\This Weeks Numbers(raw) " & rdate & ".xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled

如果文件已经存在，这可能会出现问题，因为随后会弹出一个窗口询问您是否要覆盖它

虽然我认为错误是由于该特定位置的权限问题或连接问题