如何用vba批量删除工作簿连接？

在excel中可以通过“数据”选项卡中的“获取外部数据”连接各种不同的数据源，然后可以在“连接”组中查看当前工作簿的所有连接。

如下图所示为一个工作簿中的连接：

在vba中WorkbookConnection对象代表上图中的工作簿连接，所有的工作簿连接组合成Connections集合对象。

有了以上的知识，我们就可以用删除其它集合对象中的成员的方法一样来删除工作簿连接，代码如下：

Sub QQ1722187970()
    Dim oWC As WorkbookConnection
    For Each oWC In Excel.ThisWorkbook.Connections
        With oWC
            .Delete
        End With
    Next
End Sub