anton44
Verenigingslid
- Lid geworden
- 20 mei 2005
- Berichten
- 1.597
Via de werkbalk "Gegevens" en het menu "Verbindingen" worden de opgeslagen verbindingen getoond. In een specifieke worksheet is die inmiddels er lang geworden. Ik zou die willen onderhouden en te oude verbindingen middels VBA te verwijderen. Een macro-opname toont:
1. Kunnen deze verbindingen verwijderd worden zonder de functionaliteit aan te tasten en zo ja,
2. Wat zou de code daarvoor moeten zijn om verbindingen ouder dan 14 dagen van nu() te verwijderen waarbij een foutcode voor het niet aanwezig zijn verbindingen van het opgegeven format (Bestandsnaam_XXX) niet mag voorkomen.
Alternatief: Alle verbindingen met format verwijderen, zo die bestaan.
Code:
Sub Macro1()
' Macro1 Macro
ActiveWorkbook.Connections( _
"Bestandsnaam_XXX - 2016-12-15 - 2016-12-16" _
).Delete
ActiveWorkbook.Connections( _
"Bestandsnaam_XXX - 2016-12-19 - 2016-12-20" _
).Delete
End Sub
1. Kunnen deze verbindingen verwijderd worden zonder de functionaliteit aan te tasten en zo ja,
2. Wat zou de code daarvoor moeten zijn om verbindingen ouder dan 14 dagen van nu() te verwijderen waarbij een foutcode voor het niet aanwezig zijn verbindingen van het opgegeven format (Bestandsnaam_XXX) niet mag voorkomen.
Alternatief: Alle verbindingen met format verwijderen, zo die bestaan.
Laatst bewerkt: