在VBA中删除不需要的查询
在VBA中删除不需要的查询
提问于 2019-10-31 12:54:21
如何从工作簿中删除所有不需要的查询？
Sub DeleteQuery()
Dim queries As Variant
queries = Array("q1", "q2", "q3")
For Each qr In ThisWorkbook.queries
'Not sure about the syntax of the following line
If qr not in queries Then
qr.Delete
Next qr
End Sub如果查询不在列表中，则应将其删除
ActiveWorkbook.Queries("Query1").Delete将不起作用，因为不需要的查询的名称不明确
回答 2
Stack Overflow用户
回答已采纳
发布于 2019-10-31 13:11:33
您可以将Application.Match与查询名称一起使用。
If IsError(Application.Match(qr.Name, queries, 0)) Then ' query name is not in listStack Overflow用户
发布于 2019-10-31 13:18:51
您需要遍历查询，然后遍历整个数组以查找匹配项，如果不存在匹配项，则删除。
Sub testingPQ()
Dim vQuery As Variant
Dim arrQueries() As Variant
Dim i As Long
arrQueries = Array("q1", "q2", "q3")
For Each vQuery In ThisWorkbook.Queries
'loop through array to check for each query
For i = LBound(arrQueries) To UBound(arrQueries)
If vQuery.Name = arrQueries(i) Then
'do not delete
Exit For
End If
If i = UBound(arrQueries) Then
'delete - no match
vQuery.Delete
End If
Next i
Next vQuery
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/58643829
复制
相似问题
尝试在查询中删除不需要的记录
删除不需要的字符VBA (excel)
从查询响应中删除不需要的行
VBA删除未执行的查询
Excel VBA/宏从.txt文件中删除不需要的逗号
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
