Excel VBA运行时错误'1004'：Workbook的SaveAs方法执行失败求助

看起来你在保存带宏的工作簿时踩了几个常见的坑，我帮你逐个排查解决：

1. 最可能的原因：文件格式参数不匹配 #

你要保存的是.xlsm格式（带宏的启用宏工作簿），但代码里用了FileFormat:=xlNormal——这个参数对应的是老式的.xls格式，格式不匹配肯定会触发报错。

修正代码：把xlNormal换成xlOpenXMLWorkbookMacroEnabled（或者直接用数值52，VBA里两种写法都有效）：

ActiveWorkbook.SaveAs fileName:=Path & fileName & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

2. 检查路径拼接是否有问题 #

如果Path变量的末尾没有添加斜杠（比如Path = "C:\物料订单"而不是"C:\物料订单\"），拼接后会变成C:\物料订单文件名.xlsm，这是完全无效的路径。

解决办法：在拼接前确保Path末尾有斜杠，可以加个判断逻辑：

' 确保路径末尾带斜杠
If Right(Path, 1) <> "\" Then Path = Path & "\"
' 再执行保存操作
ActiveWorkbook.SaveAs fileName:=Path & fileName & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

3. 文件名是否包含非法字符 #

Windows文件名不允许包含/:*?"<>|这些字符，你得检查fileName变量从单元格取到的内容是不是带了这些非法字符。可以加个清理函数来处理：

Function CleanFileName(strName As String) As String
    Dim illegalChars As Variant
    Dim char As Variant
    illegalChars = Array("/", "\", ":", "*", "?", """", "<", ">", "|")
    For Each char In illegalChars
        strName = Replace(strName, char, "")
    Next char
    CleanFileName = strName
End Function

然后调用它处理文件名：

fileName = CleanFileName(fileName)

4. 权限或文件锁定问题 #

如果目标文件夹没有写入权限，或者这个文件已经被其他程序打开（比如你之前手动打开过没关闭），也会导致保存失败。可以先手动尝试在目标文件夹新建文件，确认有没有权限；再检查文件是不是被锁定了。

最后，建议你在代码里加上错误捕获，方便快速定位具体问题：

Private Sub cmdNot_Click()
    On Error GoTo ErrorHandler ' 开启错误捕获
    
    ' 你的其他业务代码...
    
    ' 处理路径和文件名
    If Right(Path, 1) <> "\" Then Path = Path & "\"
    fileName = CleanFileName(fileName)
    
    ' 执行保存
    ActiveWorkbook.SaveAs fileName:=Path & fileName & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
    
    Exit Sub ' 正常执行就跳过错误处理
ErrorHandler:
    MsgBox "保存失败：" & Err.Description ' 弹出错误详情，方便排查
End Sub

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