Excel VBA报错1004：_Workbook对象的SaveAs方法执行失败求助

常见触发原因 #

• 路径访问异常：先确认O盘网络驱动器已正常连接，且你对O:\Accounting\GFF-AP\OVERHEAD\LISA\VISA\Factoring Reports\路径有写入权限，同时路径文件夹真实存在，无拼写错误。
• 文件占用/冲突：如果当天已经生成过同名的Factor Report_xxxxxx.xlsx文件，且该文件正处于打开状态、被其他程序锁定，就会触发保存失败。
• 保存格式不匹配：原有代码未指定SaveAs的FileFormat参数，若新生成的工作簿包含宏、特殊图表sheet等不兼容普通xlsx的内容，会触发格式匹配报错。
• 变量声明隐性问题：原有代码中Dim dirPath, Filename As String只会将Filename声明为String类型，dirPath实际为Variant，特殊场景下会出现类型匹配异常。

修复后代码 #

Dim dirPath As String, Filename As String
Dim Ws As Worksheet
Dim newWb As Workbook
Dim saveFullPath As String

' 定义路径和文件名
dirPath = "O:\Accounting\GFF-AP\OVERHEAD\LISA\VISA\Factoring Reports\"
saveFullPath = dirPath & "Factor Report_" & Format(Date, "mmddyy") & ".xlsx"

' 先判断路径是否存在，不存在直接提示退出
If Dir(dirPath, vbDirectory) = "" Then
    MsgBox "保存路径不存在，请检查路径配置", vbCritical
    Exit Sub
End If

Application.ScreenUpdating = False
Application.DisplayAlerts = False

' 复制目标sheet生成新工作簿
Sheets("To Factor").Copy
Set newWb = ActiveWorkbook

' 处理新工作簿内容
For Each Ws In newWb.Worksheets
    Ws.Cells.Copy
    Ws.[A1].PasteSpecial Paste:=xlValues
    Ws.Cells.Hyperlinks.Delete
    Application.CutCopyMode = False
    Ws.Cells(1, 1).Select
Next Ws
newWb.Sheets(1).Cells(1, 1).Select

' 显式指定文件格式保存，xlOpenXMLWorkbook对应无宏xlsx格式
newWb.SaveAs Filename:=saveFullPath, FileFormat:=xlOpenXMLWorkbook

newWb.Close SaveChanges:=False
' 恢复应用设置
Application.ScreenUpdating = True
Application.DisplayAlerts = True

额外验证点 #

如果修改后仍然报错，可以在SaveAs代码行前加断点，打印saveFullPath的实际值，手动复制到资源管理器地址栏验证是否可以正常访问、是否有同名文件被占用。

内容的提问来源于stack exchange，提问作者HBWooten