Excel-bestanden dupliceren met een macro
Wilt u een Excel-werkmap kopiëren en een nieuwe naam geven? Dat kan natuurlijk via Windows, maar hoe automatiseer je dat in Excel? Een mogelijkheid is om de juiste werkmap te openen en deze vervolgens onder een nieuwe naam op te slaan.
Dit kost echter veel tijd en is omslachtig omdat Excel berekeningen uitvoert, koppelingen bijwerkt en dergelijke wanneer de werkmap wordt geopend. Het is gemakkelijker om het rechtstreeks te doen met de opdracht VBA FileCopy. De volgende macro kopieert een werkmap van de ene map naar de andere, waarbij een nieuwe naam wordt opgegeven:
Subwerkmap kopiëren ()
Dim bron As String, bestemming As String
Bron = "c: \ Augustus.xls"
Bestemming = "c: \ data \ September.xls"
Bestandskopie bron, bestemming
Einde sub
Zet in de variabele bron Geef de naam en het pad op van het bestand dat u wilt kopiëren. Opslaan in de variabele doelwit het pad en de bestemming van het bestand. In het voorbeeldprogramma wordt het bestand August.xls uit het pad C: \ opgeslagen onder de nieuwe naam September.xls in het pad C: \ Daten. Het bronbestand August.xls blijft ongewijzigd.
Met de opdracht kun je niet alleen Excel-werkmappen kopiëren, maar ook andere bestanden.
