如何在AfterRefresh过程中获取刚执行的QueryTable名称？

问题根源 #

类模块绑定QueryTable事件时，若未在类实例中持久保存对应QueryTable的引用，会导致事件触发时无法定位到具体的QueryTable对象，进而无法获取其名称。

解决方案步骤 #

1. 修正类模块clsQuery代码 #

在类模块中声明带事件的QueryTable变量，并直接在事件过程中访问该变量的属性：

Option Explicit
' 声明带事件的QueryTable变量，用于绑定事件
Public WithEvents qt As QueryTable

Private Sub qt_AfterRefresh(ByVal Success As Boolean)
    ' 直接获取当前触发事件的QueryTable名称
    Dim targetQueryName As String
    targetQueryName = Me.qt.Name
    
    ' 根据查询名称调用对应宏，按需扩展Case分支
    Select Case targetQueryName
        Case "销售数据查询"
            Call 处理销售数据宏
        Case "库存数据查询"
            Call 处理库存数据宏
        ' 其他查询对应的宏
    End Select
End Sub

2. 标准模块中管理类实例集合 #

创建集合保存所有clsQuery实例，防止实例被Excel垃圾回收机制销毁：

Option Explicit
' 声明私有集合，用于持久化保存QueryTable绑定的类实例
Private colQueryBindings As New Collection

' 初始化所有QueryTable的事件绑定
Public Sub 绑定所有查询事件()
    Dim ws As Worksheet
    Dim singleQuery As QueryTable
    Dim queryInstance As clsQuery
    
    ' 清空旧集合，避免重复绑定
    Set colQueryBindings = New Collection
    
    ' 遍历工作簿中所有工作表的QueryTable
    For Each ws In ThisWorkbook.Worksheets
        For Each singleQuery In ws.QueryTables
            Set queryInstance = New clsQuery
            Set queryInstance.qt = singleQuery
            ' 以QueryTable名称为键加入集合，确保唯一性
            colQueryBindings.Add queryInstance, Key:=singleQuery.Name
        Next singleQuery
    Next ws
End Sub

' 示例宏：根据实际业务逻辑修改
Sub 处理销售数据宏()
    MsgBox "销售数据查询已完成刷新"
    ' 这里写具体的业务处理代码
End Sub

Sub 处理库存数据宏()
    MsgBox "库存数据查询已完成刷新"
    ' 这里写具体的业务处理代码
End Sub

3. 自动初始化事件绑定 #

在ThisWorkbook模块中添加工作簿打开事件，确保每次打开工作簿时自动绑定事件：

Private Sub Workbook_Open()
    Call 绑定所有查询事件
End Sub

注意事项 #

• 若新增或删除了QueryTable，需手动执行绑定所有查询事件宏，重新完成绑定。
• 确保类模块名称为clsQuery，否则需对应修改标准模块中的类实例声明。
• 之前直接获取MyQuery.Name报错，大概率是因为未在类中正确保存QueryTable的引用，导致事件触发时引用对象已失效。

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