嘿，我看到你在尝试用VBA保存带宏的工作簿时碰到了1004错误，这问题在路径拼接和文件名设置上很容易踩坑，咱们一步步拆解解决：

你的代码里的核心问题 #

先看你这段SaveAs代码：

SaveAs FileName:=StrPadHoofdDocument & "\Docs\" & "\n\" & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

这里有几个明显的错误：

• 无效的路径拼接："\n\"是错误的写法，VBA里\n不是合法的路径字符（换行符要用vbNewLine，但这里完全不该出现在路径里），这会生成系统无法识别的无效路径。
• 缺失实际文件名：最后直接写.xlsm，没有具体的文件名（比如"我的激励表单.xlsm"），系统不知道要把文件存成什么名字，这肯定会触发保存失败。
• 冗余的路径分隔符："\Docs\"后面又加"\n\"，会导致路径里出现连续的错误分隔符，进一步加剧路径无效的问题。

修正后的代码示例 #

先调整路径和文件名逻辑，确保每一部分都合规：

Sub motivatieFormOpmaken()
    Const StBestand As String = "你的常量定义内容" ' 补充你的常量值
    Dim targetFullPath As String
    Dim targetFileName As String
    
    ' 定义具体的目标文件名（替换成你需要的名称）
    targetFileName = "MotivatieFormulier.xlsm"
    ' 正确拼接完整路径：确保StrPadHoofdDocument是有效的根路径，比如"C:\Users\XXX\Work"
    targetFullPath = StrPadHoofdDocument & "\Docs\" & targetFileName
    
    ' 可选但很重要：检查目标文件夹是否存在，不存在则创建（避免因文件夹不存在报错）
    If Dir(StrPadHoofdDocument & "\Docs", vbDirectory) = "" Then
        MkDir StrPadHoofdDocument & "\Docs"
    End If
    
    ' 执行保存操作
    ThisWorkbook.SaveAs FileName:=targetFullPath, _
                        FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
                        CreateBackup:=False
End Sub

其他可能导致1004错误的排查点 #

如果修正路径后还是报错，你可以检查这几点：

• 文件夹权限：目标文件夹（StrPadHoofdDocument & "\Docs"）是否有写入权限？如果是系统文件夹或共享文件夹，可能需要管理员权限才能写入。
• 文件被锁定：要保存的文件是否已经在其他窗口打开？或者被其他进程占用（比如杀毒软件正在扫描）？
• FileFormat常量兼容性：有时候直接用数字常量更稳妥，xlOpenXMLWorkbookMacroEnabled对应的数字是52，你可以替换成FileFormat:=52试试。
• 路径长度限制：Windows传统路径长度不能超过260字符，如果你的路径太长，会导致保存失败。

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