如何通过VBA删除活动工作表中的查询？代码报错求解

你的两段代码问题分析 #

第一段代码报错原因 #

你第一段代码第5行报object doesn't support this method，问题出在：

• Power Query的WorkbookQuery对象属于工作簿而非工作表，q.Parent.Name获取的是工作簿名称，和ActiveSheet.Name对比逻辑完全错误；
• 工作簿级的查询本身不属于某个工作表，是通过加载操作关联到工作表的，没法用Parent判断归属。

第二段代码报错原因 #

第二段代码第3行语法错误，还有逻辑硬伤：

• VBA里If语句必须跟Then，你漏写了，直接导致语法报错；
• Worksheet对象根本没有Queries属性，Queries是工作簿专属集合，调用Worksheet.Queries肯定报错。

正确的宏代码实现 #

要删除复制工作表里的所有关联查询，分两种情况处理（对应Power Query和旧版QueryTable）：

情况1：删除Power Query（工作簿级查询） #

遍历工作簿所有查询，判断它的加载目标是不是当前工作表，是的话就删除：

Sub DeleteSheetPowerQueries()
    Dim q As WorkbookQuery
    Dim targetWs As Worksheet
    Set targetWs = ActiveSheet ' 可改成指定工作表，比如Set targetWs = ThisWorkbook.Sheets("复制的live")
    
    ' 反向遍历，避免删除元素后集合索引混乱
    For i = ActiveWorkbook.Queries.Count To 1 Step -1
        Set q = ActiveWorkbook.Queries(i)
        On Error Resume Next ' 跳过没有加载到工作表的查询
        If q.ListObject.Parent.Name = targetWs.Name Then
            q.Delete
        End If
        On Error GoTo 0 ' 恢复错误捕获
    Next i
End Sub

情况2：删除旧版QueryTable（工作表级查询） #

如果你的查询是Excel旧版的QueryTable（不是Power Query），用这段代码：

Sub DeleteSheetQueryTables()
    Dim qt As QueryTable
    Dim targetWs As Worksheet
    Set targetWs = ActiveSheet
    
    ' 反向遍历防止索引混乱
    For i = targetWs.QueryTables.Count To 1 Step -1
        Set qt = targetWs.QueryTables(i)
        qt.Delete
    Next i
End Sub

注意事项 #

• 必须反向遍历：删除集合元素会改变索引顺序，正向遍历会跳过部分元素；
• 可以替换Set targetWs = ActiveSheet为指定工作表名称，实现自动定位复制后的工作表，不用手动激活。

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