列出Excel VBA中的所有计算机连接

我想知道是否有办法使用VBA列出Excel中的计算机连接 ？

我能够使用这个简单的代码块获得所有的工作簿连接 ：

Private Sub ListWorkBookConnections() Dim cnn As WorkbookConnection For Each cnn In ActiveWorkbook.Connections Debug.Print cnn.Name Next cnn End Sub 

这些是特定于Active工作簿（当前打开的工作簿）的连接，如果打开Excel（数据>>现有连接）的“ 现有连接 ”窗口，则会出现在“ 本工作簿中的连接 ”一节中。 请参阅下图中的红色部分：

我想要实现的是在上面的图像中的蓝色部分中列出“ 这台计算机上的连接文件 ”部分下的所有连接。

我在Windows 7计算机上使用Excel 2007。

谢谢你的帮助！

Answer 1

试试这样，让我知道它是如何去的。

 Dim conn As WorkbookConnection For Each conn In ActiveWorkbook.Connections Debug.Print conn.Name Next conn