小编Chr*_*ris的帖子

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

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 张查询删除。

谢谢