vba - 如何删除此工作簿中未使用的 QueryTable 连接？

Question

我只打开了这一个工作簿(当时没有打开其他工作簿)，并注意到列出了一堆数据连接。经过进一步调查，它表明这些连接没有“在此工作簿中使用”(再次，奇怪的是我只打开了这个工作簿，所以如果这里没有使用连接，它们还用在哪里？)



使用以下代码，它显示 QueryTables.Count 在此工作簿的所有工作表中全为 0。那么有没有办法以编程方式(VBA，而不是 C#)来删除连接？真的很讨厌单独手动删除连接

Dim Worksheet As Object
For Each Worksheet In ThisWorkbook.Worksheets
    Debug.Print (Worksheet.QueryTables.Count)
Next

Answer 1

也许

Sub deleteConnections()
Dim conn As WorkbookConnection
For Each conn In ActiveWorkbook.Connections
    conn.Delete
Next conn
End Sub

这删除了我工作簿中实际活跃的一堆连接。还应该对未使用的连接进行处理。