Excel VBA宏本地运行正常，其他机器SaveAs报1004错误求助

问题概述 #

项目原本无宏功能，添加VBA宏后本地运行正常，但在同型号戴尔ThinkPad（均为最新Office365）的其他设备上测试时，宏在保存文档环节触发1004错误。宏代码意图通过创建桌面文件夹、使用Environ("UserName")获取用户路径统一保存位置，能正常创建工作表及格式，但执行到ActiveWorkbook.SaveAs SavePath & Filename, FileFormat:=xlOpenXMLWorkbookMacroEnabled时出错。已确认所有用户均本地保存源文件并启用宏，排除路径映射、日期格式替换等问题。

代码问题分析 #

原代码存在以下关键问题：

• 硬编码用户路径：C:\Users\并非所有Windows系统的固定用户目录（比如部分系统迁移到其他盘符、多语言系统路径存在差异），依赖该路径会导致兼容性问题。
• 路径拼接错误：SavePath末尾未添加路径分隔符\，与Filename拼接后会形成无效路径（例如变成C:\Users\XXX\Desktop\[MyFolderName]\[DocumentName] 01-01-2024.xlsm，缺少必要的路径分隔）。
• 变量未声明：Path变量未提前声明，属于隐式声明，可能引发意外类型错误。
• ActiveWorkbook冗余：在With ActiveWorkbook块内仍使用ActiveWorkbook调用方法，不符合代码规范，还可能引发上下文错误。
• 未恢复提示设置：关闭DisplayAlerts后未重新开启，会影响后续Excel操作的提示逻辑。

修复后的代码 #

Option Explicit ' 强制变量声明，避免隐式错误

Sub XWorkbook()
    Dim SavePath As String
    Dim File1 As String
    Dim Filename As String
    Dim DesktopPath As String
    Dim TargetFolder As String
    
    ' 统一获取桌面路径，避免硬编码
    DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    TargetFolder = DesktopPath & "\[MyFolderName]\"
                              
    ' 检查并创建目标文件夹
    If Dir(TargetFolder, vbDirectory) = "" Then MkDir TargetFolder

    Application.DisplayAlerts = False

    ' 复制工作表生成新工作簿
    Worksheets(Array("[Sheet1]", "[Sheet2]")).Copy
    
    ' 使用With块操作新工作簿，避免依赖ActiveWorkbook的上下文问题
    With ActiveWorkbook
        ' 构建完整保存路径，确保末尾有分隔符
        SavePath = TargetFolder & "[DocumentName]\"
        ' 检查并创建子文件夹（若[DocumentName]是子文件夹）
        If Dir(SavePath, vbDirectory) = "" Then MkDir SavePath
        
        File1 = "" ' 原代码的空格无意义，直接清空
        Filename = File1 & Format(Now(), "MM-DD-YYYY") & ".xlsm"

        ' 执行保存
        .SaveAs SavePath & Filename, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    End With
    
    ' 恢复提示设置
    Application.DisplayAlerts = True
End Sub

额外注意事项 #

• 需将[MyFolderName]和[DocumentName]替换为实际业务所需的真实名称，移除方括号。
• 如果[DocumentName]是文件名前缀而非子文件夹，需调整路径拼接逻辑：

  SavePath = TargetFolder
  Filename = "[DocumentName]" & Format(Now(), "MM-DD-YYYY") & ".xlsm"
  

• 坚持使用Option Explicit强制变量声明，可提前发现变量名拼写错误等问题。
• 测试时可在保存前添加MsgBox SavePath & Filename，查看最终生成的路径是否合法，排查特殊字符或格式错误。

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