Abfrage & Verbindungen löschen
05.12.2018 15:14:52
Manuela
ich habe schon gegoogelt aber konnte keine Lösung finden. Und zwar möchte ich per VBA die "Abfrage & Verbindungen" löschen
Reiter:
Daten / Abfragen und Verbindungen
Ich habe zwar ein Code gefunden, aber der löscht mir dies nicht komplett.
Code aus dem INet:
Sub Verbindungen_Loeschen()
' Verbindungen in aktiver Arbeitsmappe Loeschen
Dim wb As Workbook, objConnection As Variant, varAuswahl As Long
Set wb = ActiveWorkbook
For Each objConnection In wb.Connections
varAuswahl = MsgBox(prompt:="Name: " & objConnection.Name & vbLf & vbLf _
& "Diese Verbindung löschen?", _
Buttons:=vbQuestion + vbYesNoCancel, Title:="Daten-Verbindungen löschen")
Select Case varAuswahl
Case vbYes
Application.DisplayAlerts = False
objConnection.Delete
Application.DisplayAlerts = True
Case vbNo
'do nothing
Case vbCancel
Exit For
End Select
Next
End Sub
