Liste aller Computer Verbindung von Excel VBA

Question

Ich würde gerne wissen, ob es eine Möglichkeit gibt, die Computer Connections von Excel mit VBA aufzulisten?

Ich konnte alle Arbeitsmappe Verbindungen mit diesem einfachen Code-Block erhalten:

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

Diejenigen, die Verbindungen sind, die auf der aktiven Arbeitsmappe spezifisch sind (die zur Zeit geöffnet) und die erscheinen in Die "Verbindungen in dieser Arbeitsmappe" Abschnitt, wenn Sie das Fenster "Existierende Verbindung" von Excel (Daten >> Bestehende Verbindung) öffnen. Siehe die roten Abschnitte im Bild unten:

Was Ich mag würde zu erreichen, das alle ist, die Verbindung unter dem Abschnitt „Connection Files auf diesem Computer“, in Blau auf das Bild oben.

Ich verwende Excel 2007 auf einem Windows 7-Computer.

Danke für Ihre Hilfe!

Answer 1

Versuchen Sie es so und lassen Sie mich wissen, wie es geht.

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