Hoe exporteert u alle macro’s uit één werkmap naar een andere werkmap?

Als u meerdere VBA-macro’s vanuit één werkmap naar een andere wilt exporteren, kunt u ze normaal gesproken alleen één voor één kopiëren — een tijdrovend proces. In dit artikel laat ik u zien hoe u alle macro’s razendsnel kunt exporteren én de macrobestanden direct opslaat in een map naar keuze.

Exporteer alle macro’s vanuit één werkmap naar een andere met VBA-code

---

Exporteer alle macro’s vanuit één werkmap naar een andere met VBA-code

Volg deze stappen om alle VBA-macrocodes vanuit één Excel-bestand naar een ander te exporteren:

1. Open eerst beide werkmappen tegelijk: de ene bevat de macro’s en de andere is de werkmap waarnaar u de macro’s wilt exporteren. Zie de afbeelding hieronder:

Office Tab – Open, lees, bewerk en beheer meerdere Office-documenten in één venster met tabbladen Office Tab biedt tabbladnavigatie en vereenvoudigt het bewerken en beheren van Microsoft Office-toepassingen. U kunt meerdere documenten of bestanden openen in één venster met tabbladen, net zoals u dat doet in browsers zoals IE 8/9/10, Firefox en Google Chrome.Klik om nu gratis te downloaden en te proberen!

2. Houd de toetsencombinatie ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

3. Klik op Invoegen > Module en plak de volgende macro in het Module-venster.

VBA-code: Exporteer alle macro’s vanuit één werkmap naar een andere:

Sub ExportAndImportModule()
Dim xStrSWSName, xSreDWSName As String
Dim xSWS, xDWS As Workbook
xStrSWSName = "old-workbook"
xSreDWSName = "new-workbook"
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
 With xObjFD
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            xFilePath = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
End With
On Error GoTo Err1
Set xSWS = Workbooks(xStrSWSName & ".xlsm")
Set xDWS = Workbooks(xSreDWSName & ".xlsm")
Set xvbap = xSWS.VBProject
Set xVBC = xvbap.VBComponents
For Each Module In xSWS.VBProject.VBComponents
If Module.Type = vbext_ct_StdModule Then
Module.Export (xFilePath & "\" & Module.Name & ".bas")
xDWS.VBProject.VBComponents.Import (xFilePath & "\" & Module.Name & ".bas")
End If
Next Module
Exit Sub
Err1:
    MsgBox "come to nothing!"
End Sub

Opmerking: In de bovenstaande code is „old-workbook” de naam van de werkmap waaruit u de macro’s wilt exporteren, en „new-workbookde werkmap waarnaar u de macro’s wilt importeren. Pas deze namen aan naar uw eigen bestandsnamen. Beide werkmappen moeten het formaat xlsmBestandstype.

4. Nadat u de bovenstaande code hebt geplakt, drukt u op de toets F5 om de code uit te voeren. Er verschijnt nu een Bladeren-venster; kies hierin een map waarin u de geëxporteerde macrobestanden wilt opslaan. Zie onderstaande afbeelding:

5. Klik daarna op de knop OK. Vervolgens worden alle macro’s geëxporteerd vanuit uw opgegeven werkmap naar het andere Excel-bestand en worden de macrobestanden ook opgeslagen in de gekozen map. Zie onderstaande afbeelding:

Opmerking: Deze code kan alleen macro’s uit een standaardmodule exporteren.