Hoe een werkboek snel op meerdere locaties opslaan in Excel?

In Excel kunnen we een werkboek op een specifieke locatie opslaan zoals we willen. Maar hebt u zich ooit voorgesteld om één werkboek tegelijkertijd op meerdere mappen op te slaan? In dit artikel kunt u met behulp van VBA-code snel één werkboek op meerdere locaties tegelijk opslaan.

Een werkboek op meerdere locaties opslaan met VBA

Een werkboek op meerdere locaties opslaan met VBA

Om een werkboek op meerdere locaties op te slaan, hoeft u slechts één macrocode toe te passen.

1. Druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de onderstaande code in het Modulescript. Zie screenshot:

VBA: Een werkboek op meerdere locaties opslaan

Sub SaveToLocations()
'UpdateByExtendoffice20160623
    ActiveWorkbook.SaveCopyAs "C:\Users\DT168\Documents\" + ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs "C:\Users\DT168\" + ActiveWorkbook.Name
    ActiveWorkbook.Save
End Sub

Tip: In de macrocode kunt u de opslagpaden naar wens wijzigen.

3. Druk op de F5-toets om de code uit te voeren, en het actieve werkboek is opgeslagen op de locaties die u in de code heeft gespecificeerd.