באקסל 2010 ניתן לנהל את כל החיבורים לחוברת העבודה, בין אם הם חיבורי xml,חיבורים לSQL או חיבורים לאינטרנט.
כאשר אנחנו מנהלים אקסל שיש לו עשרות חיבורים, לפעמים אנחנו הולכים לאיבוד.
הקוד הפשוט הבא, סורק את כל החיבורים בחוברת העבודה, ומסיר רק את אילו שלא בשימוש.
Sub RemoveUnusedConnections()
Dim i As Long, consToRemove As Collection
Set consToRemove = New Collection
For i = 1 To Thisworkbook.Connections.Count
If Thisworkbook.Connections(i).Ranges.Count = 0 Then
consToRemove.Add Thisworkbook.Connections(i)
End If
Next i
For i = 1 To consToRemove.Count
consToRemove(i).Delete
Next i
End Sub
