Ihr Excel steckt voller Datenverbindungen? Sie hätten das gern übersichtlich aufgeschrieben, mögen’s aber nicht abtippen?

Benutzen Sie folgenden VGA-Codeschnipsel, um Name und Beschreibung aller Datenverbindungen in den Direktbereich zu „drucken“ – von da geht’s ja ganz leicht mit Copy&Paste weiter in beispielsweise ein schönes Word-Dokument.

Sub Verbindungen()
Dim myConn As WorkbookConnection
For Each myConn In ActiveWorkbook.Connections
Debug.Print myConn.Name, myConn.Description
Next myConn
Set myConn = Nothing
End Sub