列出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

这些是特定于活动工作簿（当前打开的工作簿）的连接，如果打开Excel的“现有连接”窗口（数据>>现有连接），这些连接将显示在“此工作簿中的连接”部分。请参见下图中的红色部分：

我想实现的是在上面的图片上以蓝色列出“此计算机上的连接文件”部分下的所有连接

我正在Windows7计算机上使用Excel2007

---

谢谢你的帮助

这样试试，让我知道进展如何

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

---

我想那正是我第一次做的。它只显示活动工作簿中的连接。检查我在帖子中写的代码。这正是您提出的，唯一的区别是您将连接变量称为“conn”而不是“cnn”。谢谢你的帮助！