删除工作簿中的所有查询

Question

我正在尝试编写一个子程序来删除工作簿中的所有查询。我有下面的代码：

Dim CN As Variant
Dim qTable As QueryTable



For Each CN In ThisWorkbook.Connections
    CN.Delete
Next CN

 For Each qTable In Sheets("Property Extract 1").QueryTables
qTable.Delete
Next qTable'

连接删除工作正常，但查询仍然存在。任何想法如何删除工作簿中的所有查询？

我计划复制 2 或 3 张查询删除。

谢谢

Answer 1

首先，除非您使用 Excel 2016/365，否则无法从 VBA 中删除 PQ 查询。即使安装了附加组件，PQ 也不会在早期版本中暴露给 VBA。如果您拥有正确版本的 Excel，您可以像清除连接一样删除 PQ 查询本身：

Dim pq As Object
For Each pq In ThisWorkbook.Queries
    pq.Delete
Next