能否在Excel VBA中创建OnCompile() Event事件过程？

Excel VBA本身并没有原生的OnCompile()事件，但可以通过两种方式实现类似需求：

方法一：借助VBE事件监控编译完成动作 #

利用VBA的Visual Basic编辑器（VBE）事件模型，能监听项目的编译状态：

1. 在VBE中新建类模块（命名为VBEEventMonitor），在类内声明：

   WithEvents VBE As VBIDE.VBE
   

2. 在类的VBE_CompileDone事件中触发你的初始化过程：

   Private Sub VBE_CompileDone(ByVal pProject As VBIDE.VBProject, ByVal pSuccess As Boolean)
       If pSuccess Then
           OnCompile ' 调用自定义初始化过程
       End If
   End Sub
   

3. 在ThisWorkbook或标准模块中初始化监听器，确保工作簿打开时启动监控：

   Dim VBE监听器 As VBEEventMonitor
   
   Sub 启动VBE监控()
       Set VBE监听器 = New VBEEventMonitor
       Set VBE监听器.VBE = Application.VBE
   End Sub
   
   Private Sub Workbook_Open()
       启动VBE监控
       OnCompile ' 打开时先执行一次初始化
   End Sub
   

   注意：需要在VBE的引用里勾选Microsoft Visual Basic for Applications Extensibility 5.3，才能使用VBIDE对象模型。

方法二：通过错误处理+全局标记触发重初始化 #

如果不想依赖VBE事件，可以在关键过程里加初始化检查：

1. 声明一个全局变量作为初始化标记：

   Public IsInitialized As Boolean
   

2. 在每个可能触发运行时错误的过程开头，检查标记状态，未初始化则调用OnCompile：

   Sub 示例业务过程()
       On Error GoTo ErrHandler
       If Not IsInitialized Then
           OnCompile
       End If
       
       ' 这里写你的业务逻辑...
   
   ErrHandler:
       If Err.Number <> 0 Then
           IsInitialized = False ' 出错后重置标记
           ' 其他错误处理逻辑
       End If
   End Sub
   
   Sub OnCompile()
       ' 在这里编写你的初始化逻辑
       IsInitialized = True
   End Sub
   

注意事项 #

• 方法一的VBE监控会在Excel关闭后失效，每次打开工作簿都要重新初始化
• 使用VBE对象模型可能触发安全提示，需要确保用户Excel的信任中心允许访问VBA项目对象模型
• VBE_CompileDone事件会在手动编译（VBE菜单→调试→编译VBA项目）、自动编译（输入代码后后台编译）成功时触发

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