Connections anzeigen/löschen

[Rolf Beißner]

Hallo Forum,

habe festgestellt, dass in diversen Arbeitsmappen mit SQL-Abfragen zahlreiche Verbindungen auftauchen, die in der Mappe nicht mehr benötigt werden.
Hier ein Code, der Verbindungen anzeigt, und ggfs. löscht.
Ich hoffe, es ist für den ein oder anderen von Nutzen.

FG
Rolf

Option Explicit

'nicht benötigte Verbindungen der aktiven Arbeitsmappe löschen
Sub delConnetions()
    Dim objCon As WorkbookConnection
    For Each objCon In ActiveWorkbook.Connections
        If objCon.Ranges.Count = 0 Then objCon.Delete
    Next
End Sub

'Verbindungsdaten der aktiven Arbeitsmappe anzeigen
Sub showConnections()
  Dim objCon As WorkbookConnection
  Dim i%
 
  Sheets.Add
  For Each objCon In ActiveWorkbook.Connections
    i = i + 1
    Cells(i, 1) = objCon.Name
    Cells(i, 2) = objCon.ODBCConnection.CommandText
    Cells(i, 3) = objCon.Ranges.Count
  Next
End Sub