VBA运行报错：对象'_Workbook'的'SaveAs'方法失败 仅单台电脑触发

这个Method 'SaveAs' of Object '_Workbook' failed报错和日期格式无关，核心是ActiveWorkbook的引用依赖窗口焦点、存在竞态问题，叠加部分机器Excel配置差异导致的，和观察到的现象完全匹配：

• 执行Worksheets.Copy后，新生成的空白工作簿需要短暂时间完成加载、成为当前激活的工作簿，这个过程的耗时在不同机器上有差异，且一旦窗口焦点从Excel切走（比如加断点后VBA编辑器抢到前台焦点），ActiveWorkbook的指向会立刻变化，要么指向原宿主工作簿，要么指向未完成初始化的临时对象
• 出现文件正常生成、甚至弹出同名文件替换提示的现象，是因为SaveAs的文件写入逻辑已经执行完成，但方法最后要向调用方返回执行成功状态时，绑定的Workbook对象引用已经失配，因此会在文件落盘后抛出COM调用错误
• 网上提到的改用ThisWorkbook的方案不适用于当前场景：ThisWorkbook指向存放VBA代码的原宿主文件，直接替换会导致原文件被错误覆盖，完全不符合复制工作表另存为新文件的逻辑
• 首次运行报错出现在代码后续位置、加断点后才在SaveAs位置报错的现象，刚好印证焦点竞态的判断：首次连续运行时焦点始终在Excel窗口，ActiveWorkbook刚好指向复制生成的新工作簿，因此SaveAs步骤顺利通过；加断点后VBA编辑器抢占焦点，ActiveWorkbook指向发生变化，才会触发SaveAs位置的错误。

不要依赖ActiveWorkbook捕获复制生成的新工作簿，直接显式声明Workbook变量接收Copy方法生成的对象，同时显式指定保存文件格式，绕开不同机器默认保存格式配置差异的问题，修复后的代码如下：

Private Sub SaveAsNew(parseName As String, path As String)
    Dim sheetToCopy As String
    Dim newWb As Workbook ' 显式声明新工作簿对象，不依赖ActiveWorkbook
    sheetToCopy = "Sheet1"
    
    ' 复制工作表后直接把新生成的工作簿赋值给变量，全程不依赖焦点状态
    Worksheets(sheetToCopy).Copy
    Set newWb = ActiveWorkbook ' 这一步紧跟Copy执行，不要插入任何其他操作避免焦点变化
    Application.DisplayAlerts = False ' 自动覆盖同名文件，避免弹框阻塞流程
    With newWb
        ' 显式指定xlsx格式，避免不同机器默认格式配置导致的兼容错误
        .SaveAs Filename:=path & "\" & parseName & "StandardForm.xlsx", FileFormat:=xlOpenXMLWorkbook
        .Close savechanges:=False
    End With
    Application.DisplayAlerts = True ' 恢复系统提示
    Set newWb = Nothing ' 释放COM对象
End Sub

注：如果运行时提示xlOpenXMLWorkbook未定义，可直接将该参数替换为数值51，对应xlsx格式的官方枚举值。

如果替换代码后仍在该同事电脑上报错，按以下顺序排查：

• 打开Excel信任中心设置，检查是否开启了“阻止受信任位置外的文件保存”、是否拦截了VBA对象模型访问，这类权限拦截经常会在文件写入完成后才抛出错误，和当前遇到的现象一致
• 检查该机器是否存在多版本Office共存、Office与WPS共存的情况，COM组件注册冲突会导致Workbook方法调用返回状态异常
• 检查该机器的Excel是否加载了第三方插件（比如网盘同步插件、行业报表插件），部分插件会Hook Workbook的SaveAs事件，干扰正常保存流程

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