在新Excel应用程序中打开工作簿时Workbook_Open事件未触发问题

这个问题我之前也碰到过，核心原因是新Excel实例的运行环境和你手动打开的主实例存在差异，导致Workbook_Open事件没被正常触发。下面给你拆解原因和对应的解决方案：

为什么会出现这个问题？ #

• 宏安全拦截：通过代码创建的新Excel.Application实例，默认的宏安全设置可能和你日常手动打开的Excel不同——很多时候它会默认禁用所有宏，直接跳过Workbook_Open这类事件。
• 执行顺序问题：你先打开工作簿再设置实例可见，Excel在“后台无交互”的状态下，可能会认为不需要触发Workbook_Open这种面向用户的事件。

可行的解决方案 #

方案1：调整代码执行顺序（最简单有效） #

把myApp.Visible = True移到打开工作簿之前，让实例先处于可见状态，再加载文件，这样Workbook_Open事件会正常触发：

Dim myApp As New Excel.Application
myApp.Visible = True ' 先让实例可见，模拟手动打开的环境
myApp.Workbooks.Open sFileB ' 再加载目标工作簿

方案2：临时调整宏安全设置（需注意安全） #

如果必须保持实例先在后台运行，可以临时降低新实例的宏安全级别（只建议在你完全信任的文件上使用）：

Dim myApp As New Excel.Application
' 临时设置宏安全为低，允许所有宏运行
myApp.AutomationSecurity = msoAutomationSecurityLow
Set wbB = myApp.Workbooks.Open(sFileB)
myApp.Visible = True
' 用完记得恢复默认设置，避免安全风险
myApp.AutomationSecurity = msoAutomationSecurityByUI

方案3：手动触发Workbook_Open事件 #

如果前两种方法都不适用，可以在打开工作簿后，主动调用目标文件里的Workbook_Open过程：

Dim myApp As New Excel.Application
Dim wbB As Workbook
Set wbB = myApp.Workbooks.Open(sFileB)
myApp.Visible = True
' 手动触发事件，注意Workbook_Open不能是Private的
wbB.Application.Run wbB.Name & "!Workbook_Open"

额外提醒 #

• 要确保文件B里的Workbook_Open过程是公开的（不要加Private修饰符），否则手动调用时会提示找不到过程。
• 如果是在64位Excel中运行代码，注意相关API的兼容性（比如需要加PtrSafe声明，不过这个场景下一般不需要）。

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