VBA 删除查询未执行

使用VBA删除未执行的查询

vba
Sub DeleteUnusedQueries()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim qt As QueryTable
    
    ' 设置要操作的工作簿
    Set wb = ThisWorkbook
    
    ' 设置要操作的工作表
    Set ws = wb.Worksheets("Sheet1")
    
    ' 遍历每个查询
    For Each qt In ws.QueryTables
        ' 如果查询未被执行，则删除
        If Not qt.Refreshing Then
            qt.Delete
        End If
    Next qt
    
    ' 提示删除成功
    MsgBox "未执行的查询已成功删除！"
    
End Sub