VBA工程出现两个ThisWorkbook实例引发Automation Failure致命错误求助

核心原因分析 #

出现两个ThisWorkbook实例，本质是VBA项目内部结构损坏，或是Outlook自动化对象未正确释放导致的跨进程引用残留——长期运行的批量邮件代码容易积累这类隐性问题，首次打开时系统缓存未触发冲突，二次打开时残留的引用与新实例产生冲突，引发Automation Failure错误。

分步修复方案 #

1. 强制清理Outlook对象引用 #

检查你的VBA代码，确保所有Outlook相关对象都被显式释放，包括错误分支中的清理逻辑：

Sub SendReports()
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    Dim olNS As Outlook.Namespace
    
    On Error GoTo Cleanup ' 错误处理跳转至清理逻辑
    
    ' 你的原有邮件发送代码...
    
Cleanup:
    ' 按逆序释放所有对象
    Set olMail = Nothing
    Set olNS = Nothing
    Set olApp = Nothing
    If Err.Number <> 0 Then Err.Clear
End Sub

关键：必须覆盖所有代码路径（正常执行、报错中断）的对象释放，避免进程间引用残留。

2. 彻底重建工作簿（避免残留损坏信息） #

之前的重建方式可能未清除原工作簿的隐性损坏，正确步骤：

• 新建空白Excel工作簿，保存为.xlsm格式
• 打开原工作簿的VBA编辑器，右键所有标准模块/类模块，选择「导出文件」（保存为.bas/.cls格式）
• 在新工作簿的VBA编辑器中，右键「导入文件」，导入刚才导出的模块
• 手动重新编写ThisWorkbook中的事件代码（不要复制原工作簿的ThisWorkbook模块）
• 保存新工作簿，关闭后重新打开测试

3. 排查Office组件与信任设置 #

• 修复Office安装：打开控制面板→程序和功能→找到Microsoft Office→选择「更改」→「快速修复」，完成后重启电脑
• 调整宏信任设置：Excel选项→信任中心→信任中心设置→宏设置，勾选「启用所有宏」（或根据安全需求选择合适的选项），同时将工作簿所在文件夹添加为「受信任位置」

4. 验证版本兼容性 #

确保你的Outlook和Excel是同版本的Office套件（避免混用32位/64位版本），跨版本的自动化调用容易引发兼容性错误。

长期预防措施 #

• 每次运行完邮件发送代码后，手动关闭Outlook并重启Excel，清空进程间引用
• 定期导出VBA模块为文件备份，避免VBA项目损坏后丢失代码
• 避免在工作簿打开状态下同时运行多个自动化脚本，减少交叉引用冲突

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