1004错误-SaveAs问题

Question

savePath = "\\local drive path"

myFileName = savePath & "Workbook Name " & saveDate

Application.DisplayAlerts = False

'MsgBox (myFileName)

wbTarget.Activate

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

使用上面的代码时，出现错误1004“ object_Workbook的方法SaveAs失败，无法弄清原因。我对excel还是比较陌生，但是我已经正确设置了所有内容。

更新：对不起，应该已经显示了更完整的代码。

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

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

Answer 1

问题可能出在ActiveWorkBook 。 当您可以直接直接引用对象时，应避免依赖.Active ， .Activate和.Select 。

删除wbTarget.Activate并尝试以下操作，

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

Answer 2

我可以看到您已尝试调试。 MsgBox myFileName （注意：no () ）应该已经显示了您要传递给save命令的内容。 从上面的代码中，它将是\\\\local drive pathWorkbook Name注意末尾也有一个空格。 您尚未定义saveDate ，尚未添加扩展名，也未指定文件格式。

有关SaveAs更多信息，请参见以下答案。

如何在vba代码中执行“另存为”，并用datestamp保存当前的Excel工作簿？