如何通过应用程序级事件更新VBA GUI/UserForm元素？

针对你需要实现的「打开/切换工作簿时更新ComboBox/TextBox、实时显示Info-WB状态、响应S-WB选择操作」的需求，以及当前遇到的对象未定义错误，下面是经过验证的完整实现步骤：

1. 编写WithEvents类模块（命名为WorkbookUpdater） #

这个类负责监听目标工作簿的事件，并同步更新GUI控件。注意类模块的名称要和代码里的声明一致，且所有对象必须先Set再使用：

Option Explicit

' 声明要监听的工作簿和关联窗体
Private WithEvents m_InfoWB As Workbook
Private WithEvents m_SourceWB As Workbook
Private m_TargetForm As UserForm1 ' 替换成你的实际窗体类名

' 初始化：关联工作簿和窗体，首次更新控件
Public Sub Setup(infoWB As Workbook, sourceWB As Workbook, form As UserForm1)
    Set m_InfoWB = infoWB
    Set m_SourceWB = sourceWB
    Set m_TargetForm = form
    RefreshControls
End Sub

' 监听Info-WB的工作表切换事件
Private Sub m_InfoWB_SheetActivate(ByVal Sh As Object)
    RefreshControls
End Sub

' 监听S-WB的单元格选择变化事件
Private Sub m_SourceWB_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    RefreshControls
End Sub

' 监听工作簿关闭，清理对象避免内存泄漏
Private Sub m_InfoWB_BeforeClose(Cancel As Boolean)
    ClearObjects
End Sub

Private Sub m_SourceWB_BeforeClose(Cancel As Boolean)
    ClearObjects
End Sub

' 核心：更新GUI控件的逻辑
Private Sub RefreshControls()
    On Error Resume Next ' 临时捕获错误，防止弹窗打断操作
    
    ' 更新TextBox显示Info-WB状态
    m_TargetForm.TextBox_InfoStatus.Text = "Info-WB: " & m_InfoWB.Name & " | 当前工作表: " & m_InfoWB.ActiveSheet.Name
    
    ' 更新ComboBox加载S-WB当前工作表的有效范围
    m_TargetForm.ComboBox_SourceRanges.Clear
    Dim usedRng As Range
    Set usedRng = m_SourceWB.ActiveSheet.UsedRange
    m_TargetForm.ComboBox_SourceRanges.AddItem m_SourceWB.ActiveSheet.Name & "! " & usedRng.Address
    
    On Error GoTo 0
End Sub

' 清理对象，避免悬引用
Private Sub ClearObjects()
    Set m_InfoWB = Nothing
    Set m_SourceWB = Nothing
    Set m_TargetForm = Nothing
End Sub

2. 用户窗体（以UserForm1为例）的代码 #

窗体需要声明模块级的类实例，确保事件监听不会因变量被回收而失效：

Option Explicit

Private m_Updater As WorkbookUpdater ' 必须是模块级变量，不能放在过程里

Private Sub UserForm_Initialize()
    ' 先检查目标工作簿是否已打开
    Dim infoWB As Workbook, sourceWB As Workbook
    On Error Resume Next
    Set infoWB = Workbooks("Info-WB.xlsx") ' 替换成你的Info-WB实际文件名
    Set sourceWB = Workbooks("S-WB.xlsx") ' 替换成你的S-WB实际文件名
    On Error GoTo 0
    
    If infoWB Is Nothing Or sourceWB Is Nothing Then
        MsgBox "请先打开Info-WB和S-WB工作簿", vbExclamation
        Me.Hide
        Exit Sub
    End If
    
    ' 初始化更新类
    Set m_Updater = New WorkbookUpdater
    m_Updater.Setup infoWB, sourceWB, Me
End Sub

Private Sub UserForm_Terminate()
    ' 关闭窗体时清理类实例
    If Not m_Updater Is Nothing Then
        Set m_Updater = Nothing
    End If
End Sub

3. 错误排查的关键要点 #

你遇到的「Object-variable or With-block-variable not defined」错误，大概率是以下原因：

• 类实例是局部变量：如果在窗体的Initialize里把m_Updater声明成过程内的局部变量，过程结束后变量会被销毁，事件触发时找不到对象。必须声明为模块级变量。
• 工作簿未正确关联：Set m_InfoWB或Set m_SourceWB时没找到目标工作簿，导致对象为Nothing就触发了事件。一定要先检查工作簿是否存在再初始化。
• 类模块名称不匹配：类模块的名称必须和代码里New后面的名称一致（比如你把类命名为WBUpdater，就不能写New WorkbookUpdater）。

如果需要监听「切换到其他任意工作簿」的事件，可以把类里的监听对象改成Application：

Private WithEvents m_App As Application
' 在Setup方法里加上：Set m_App = Application
Private Sub m_App_WorkbookActivate(ByVal Wb As Workbook)
    If Wb Is m_InfoWB Or Wb Is m_SourceWB Then
        RefreshControls
    End If
End Sub

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