如何在VBA中取消查询与结构化表格关联并删除查询

我来给你整一个完全贴合需求的VBA宏，彻底解决删除查询后出现的孤立连接和刷新报错问题：

核心思路就是先找到目标查询关联的所有结构化表格，逐个取消关联，再删除查询，而且全程基于ActiveWorkbook.Queries集合操作，完全不依赖工作表名称（毕竟工作表名说改就改嘛）。

直接上可复用的代码：

Sub DeleteQueryCleanly()
    Dim targetQueryName As String
    Dim qry As WorkbookQuery
    Dim ws As Worksheet
    Dim lo As ListObject
    
    ' 这里替换成你要删除的查询名称
    targetQueryName = "aaa"
    
    ' 先检查目标查询是否存在
    On Error Resume Next
    Set qry = ActiveWorkbook.Queries(targetQueryName)
    On Error GoTo 0
    
    If qry Is Nothing Then
        MsgBox "查询 '" & targetQueryName & "' 找不到哦！", vbExclamation
        Exit Sub
    End If
    
    ' 遍历所有工作表，找到关联该查询的结构化表格并取消链接
    For Each ws In ActiveWorkbook.Worksheets
        For Each lo In ws.ListObjects
            ' 只处理关联了Power Query的表格
            If lo.QueryTable Is Not Nothing Then
                ' 匹配到目标查询就取消关联
                If lo.QueryTable.WorkbookQuery.Name = targetQueryName Then
                    lo.QueryTable.Unlink
                End If
            End If
        Next lo
    Next ws
    
    ' 最后安全删除查询
    qry.Delete
    
    MsgBox "查询 '" & targetQueryName & "' 已经干干净净删掉啦！", vbInformation
End Sub

关键细节说明： #

• 不依赖工作表名称：通过遍历工作簿所有工作表的ListObjects，自动定位到和目标查询绑定的结构化表格，哪怕工作表改名也不影响
• 先解关联再删除：彻底切断查询和表格的绑定关系，避免遗留孤立连接导致后续刷新报错
• 容错处理：先检查查询是否存在，避免因输入错误名称导致宏崩溃

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