macOS版Excel：特定DB Query执行时触发VBA子程序的方法

完全可以实现，以下是具体的实现思路和实操步骤：

1. 借助QueryTable的AfterRefresh事件触发逻辑 #

Excel的QueryTable对象自带查询完成后的触发事件，刚好可以用来对接父查询与依赖查询的执行顺序。

具体操作流程： #

• 按下Alt+F11打开VBA编辑器，新建一个类模块（命名为QueryEventHandler），用来绑定查询事件。
• 在类模块中编写事件处理代码，监听父查询的刷新完成动作：

Public WithEvents TargetParentQuery As QueryTable

Private Sub TargetParentQuery_AfterRefresh(ByVal Success As Boolean)
    ' 仅在父查询执行成功时触发依赖查询
    If Success Then
        ' 按顺序执行依赖查询，确保前一个完成再执行下一个
        ExecuteDependentQuery "依赖查询1"
        ExecuteDependentQuery "依赖查询2"
        ' 可继续添加更多依赖查询
    End If
End Sub

' 封装依赖查询的执行逻辑
Private Sub ExecuteDependentQuery(queryName As String)
    ' 假设依赖查询是工作表中的ListObject（表格）
    ThisWorkbook.Worksheets("数据汇总").ListObjects(queryName).QueryTable.Refresh BackgroundQuery:=False
End Sub

• 在ThisWorkbook模块中添加工作簿打开时的初始化代码，绑定父查询与事件处理类：

Private Sub Workbook_Open()
    Dim queryHandler As New QueryEventHandler
    ' 将父查询的QueryTable对象绑定到事件处理类
    Set queryHandler.TargetParentQuery = ThisWorkbook.Worksheets("父查询数据源").ListObjects("核心父查询").QueryTable
    ' 若有多个父查询，可创建多个handler实例分别绑定
End Sub

2. 关键注意事项 #

• 强制同步执行：调用Refresh时设置BackgroundQuery:=False，避免依赖查询异步执行导致顺序混乱。
• 错误容错处理：建议给依赖查询的执行逻辑加上错误捕获，防止单个查询失败中断整个流程：

Private Sub ExecuteDependentQuery(queryName As String)
    On Error Resume Next
    ThisWorkbook.Worksheets("数据汇总").ListObjects(queryName).QueryTable.Refresh BackgroundQuery:=False
    If Err.Number <> 0 Then
        ' 将错误信息写入日志表，方便排查
        ThisWorkbook.Worksheets("运行日志").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Now() & " | " & queryName & "执行失败：" & Err.Description
        Err.Clear
    End If
    On Error GoTo 0
End Sub

• Power Query兼容：如果你的查询是通过Power Query创建的，需要确认ListObject.QueryTable的引用有效性，部分Power Query连接可能需要通过Workbook.Connections(queryName).Refresh来触发刷新。

3. 备选方案：标记触发法 #

若不想使用事件绑定，也可以在父查询的结果区域设置一个“刷新标记”（比如每次刷新后写入当前时间戳），再用一个定时运行的VBA子程序轮询该标记，当标记更新时触发依赖查询。不过这种方式的响应及时性不如事件触发。

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