求助：如何通过VBA子过程删除Excel工作簿中所有查询？

嘿，我明白你现在的困扰——连接能删但查询还留着对吧？其实Excel里的**查询（WorkbookQuery）和连接（WorkbookConnection）**是两个独立的对象集合，所以得单独处理查询部分才行。下面给你一套完整的解决方案，还能轻松复用在多个工作表里：

核心删除逻辑：遍历并删除所有查询 #

要注意的是，删除集合里的元素时，一定要倒序遍历，不然正序删除会导致索引错乱，漏掉部分查询。代码如下：

Sub DeleteAllWorkbookQueries()
    Dim qry As WorkbookQuery
    Dim i As Integer
    
    ' 倒序遍历查询集合，避免索引偏移问题
    For i = ThisWorkbook.Queries.Count To 1 Step -1
        Set qry = ThisWorkbook.Queries(i)
        On Error Resume Next ' 防止因查询被锁定或关联报错
        qry.Delete
        On Error GoTo 0
    Next i
    
    ' 可选：如果需要同步清理残留的查询关联连接（你说已实现连接删除，可按需保留）
    Dim conn As WorkbookConnection
    For i = ThisWorkbook.Connections.Count To 1 Step -1
        Set conn = ThisWorkbook.Connections(i)
        ' 只删除和查询绑定的OLEDB连接，避免误删手动创建的连接
        If conn.Type = xlConnectionTypeOLEDB And conn.OLEDBConnection.CommandType = xlCmdSql Then
            conn.Delete
        End If
    Next i
    
    MsgBox "所有查询已清理完成！", vbInformation
End Sub

如何在多个工作表复用逻辑 #

既然你要在2-3个工作表里复用这个删除逻辑，最简单的方式就是把上面的DeleteAllWorkbookQueries作为一个独立的通用子过程放在标准模块里，然后在其他工作表的代码或按钮点击事件里直接调用就行：

比如在Sheet1的按钮点击事件里调用：

Private Sub CommandButton1_Click()
    ' 直接调用通用删除查询的子过程
    DeleteAllWorkbookQueries
End Sub

或者在Sheet2的激活事件里自动触发：

Private Sub Worksheet_Activate()
    ' 激活工作表时自动清理查询（按需使用）
    DeleteAllWorkbookQueries
End Sub

关键注意点 #

• 倒序遍历：这是删除集合元素的通用技巧，正序删除会导致后续元素索引前移，循环会跳过部分对象
• 错误处理：加上On Error Resume Next可以避免因查询被保护、正在使用等特殊情况导致代码崩溃
• 区分查询和连接：查询保存在ThisWorkbook.Queries集合，连接在ThisWorkbook.Connections，两者可能关联但属于不同对象

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