Vba 1004错误-SaveAs存在问题

当使用上述代码时，我得到一个错误1004“object_工作簿的方法SaveAs失败，无法找出原因。我对excel相对较新，但我相信我已将一切设置正确

更新：抱歉，应该显示更完整的代码

savePath = "\\local drive path"

myFileName = savePath & "Workbook Name " & saveDate

Application.DisplayAlerts = False

'MsgBox (myFileName)

wbTarget.Activate

ActiveWorkbook.SaveAs Filename:=myFileName, FileFormat:=xlOpenXMLWorkbook

---

我将最后一部分更新为“wbTarget.SaveAs”，但这似乎不起作用。

问题可能出在

ActiveWorkBook

上。您应该尽量避免依赖

.Active

、

.Activate

和

。当您可以直接引用对象时，请选择

删除wbTarget。激活并尝试以下操作

Sub SaveAs()


'Save As "Workbook Name"

Dim wbTarget            As Workbook
Dim wbThis              As Workbook
Dim strName             As String

Set wbTarget = Workbooks("Workbook Name")

wbTarget.Activate

Dim myFileName As String
Dim saveDate As String
Dim saveMonth As String
Dim monthNum As String
Dim savePath As String

Sheets("Raw").Select

saveDate = Range("A2").Value
saveMonth = Range("A2").Value
monthNum = Range("A2").Value


savePath = "\\local drive path"

myFileName = savePath & "Riskviews Data " & saveDate

Application.DisplayAlerts = False

'MsgBox (myFileName)

wbTarget.SaveAs Filename:=myFileName, FileFormat:=xlOpenXMLWorkbook



End Sub

---

我可以看出您已尝试调试。

MsgBox myFileName

（注意：无

（）

）应该已经显示了要传递给save命令的内容。从上面的代码来看，应该是

\\local drive path工作簿Name

-注意末尾也有一个空格。您没有定义

saveDate

，没有添加扩展名，也没有指定文件格式

有关

SaveAs

的更多信息，请参见以下答案

可能存在的副本

WbTarget.SaveAs Filename:=myFileName, FileFormat:=xlOpenXMLWorkbook