Advanced Search

Return to Snippet

Revision: 37846
at December 18, 2010 04:31 by dotNetkow
Initial Code 
Sub deleteConnections()

For i = 1 To ActiveWorkbook.Connections.Count
If ActiveWorkbook.Connections.Count = 0 Then Exit Sub
ActiveWorkbook.Connections.Item(i).Delete
i = i - 1
Next i

End Sub
Initial URL 









Initial Description





Code is VBA...









Initial Title





Remove all data connections from Excel Workbook









Initial Tags





excel









Initial Language





Visual Basic