Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe alle macro's van de ene werkmap naar een andere werkmap exporteren?

Als u meerdere macro vba-codes van de ene werkmap naar de andere moet exporteren, kunt u ze één voor één kopiëren. Maar dit zal tijdrovend zijn, in dit artikel zal ik bespreken hoe snel alle macro's van de ene werkmap naar de andere kunnen worden geëxporteerd en de macro's ook in een specifieke map kunnen worden opgeslagen.

Exporteer alle macro's van de ene werkmap naar de andere met VBA-code


Verwijder alle macro's uit meerdere werkmappen:

Kutools for Excel's Batch Verwijder alle macro's hulpprogramma kan u helpen om alle macro's uit meerdere werkmappen te verwijderen als u dat wilt. Download en gratis proef Kutools voor Excel nu!

doc voer macro uit als cel 3 verandert

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Exporteer alle macro's van de ene werkmap naar de andere met VBA-code

Voer de volgende stappen uit om alle macrovba-codes van het ene Excel-bestand naar het andere te exporteren:

1. Eerst moet u de twee werkmappen tegelijkertijd openen, één bevat macro's, de andere is degene naar wie u macro's wilt exporteren, zie screenshot:

doc export macro's 1

Office-tab: open, lees, bewerk en beheer meerdere Office-documenten in één venster met tabbladen

Office-tabblad maakt browsen met tabbladen, bewerken en beheren van Microsoft Office-toepassingen mogelijk. U kunt meerdere documenten / bestanden openen in een venster met tabbladen, bijvoorbeeld met de browser IE 8 / 9 / 10, Firefox en Google Chrome. Klik om te downloaden en nu gratis uitproberen!

doc export macro's

2. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. Klikken bijvoegsel > module, en plak de volgende macro in de module Venster.

VBA-code: export alle macro's van de ene werkmap naar de 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
Notes: In de bovenstaande code, "old-werkboek"Is de naam van het werkboek waarvan u de macro's wilt exporteren, en"new-werkboek"Is de werkmap die u de macro's wilt importeren. Je zou de namen moeten veranderen in je eigen naam. Beide van de twee werkmappen zouden moeten zijn xlsm bestandsformaat.

doc export macro's 2

4. Nadat u de bovenstaande code hebt geplakt, drukt u op F5 toets om deze code uit te voeren, en a Blader venster wordt weergegeven, kies een map om de geëxporteerde macro's te plaatsen, zie screenshot:

doc export macro's 3

5. Dan klikken OK knop en alle macro's zijn vanuit uw opgegeven werkmap geëxporteerd naar een ander Excel-bestand en de macrobestanden zijn ook in de specifieke map opgeslagen. Zie screenshot:

doc export macro's 4

Notes: Deze code kan alleen de macro's van de normale module exporteren.


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.