Jak exportovat všechna makra z jednoho sešitu do jiného sešitu?

Pokud potřebujete exportovat více kódů makra VBA z jednoho sešitu do druhého, můžete je normálně zkopírovat jeden po druhém. Ale to bude časově náročné, tento článek, budu hovořit o tom, jak rychle exportovat všechna makra z jednoho sešitu do druhého a uložit soubory maker také do konkrétní složky.

Exportujte všechna makra z jednoho sešitu do druhého pomocí kódu VBA

---

Exportujte všechna makra z jednoho sešitu do druhého pomocí kódu VBA

Chcete-li exportovat všechny kódy makra VBA z jednoho souboru aplikace Excel do jiného, ​​proveďte následující kroky:

1. Nejprve byste měli otevřít dva sešity současně, jeden obsahuje makra, druhý je ten, do kterého chcete exportovat makra, viz screenshot:

Otevírání karet Office, čtení, úpravy a správa více dokumentů Office v jednom okně s kartami Karta Office umožňuje procházení, úpravy a správu aplikací Microsoft Office na kartách. V jednom okně s kartami můžete otevřít více dokumentů / souborů, například pomocí prohlížeče IE 8/9/10, Firefox a Google Chrome. Kliknutím stáhněte a vyzkoušejte zdarma!

2. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

3, klikněte Vložit > Modul, a vložte následující makro do Modul Okno.

Kód VBA: Exportujte všechna makra z jednoho sešitu do druhého:

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

Poznámka: Ve výše uvedeném kódu „starý sešit„Je název sešitu, ze kterého chcete exportovat makra, a“nový sešit„Je sešit, do kterého chcete importovat makra. Měli byste změnit názvy na své vlastní. Oba dva sešity by měly být xlsm formát souboru.

4. Po vložení výše uvedeného kódu stiskněte F5 klíč ke spuštění tohoto kódu a Procházet Zobrazí se okno, vyberte složku, do které chcete exportované soubory maker umístit, viz screenshot:

5. Pak klikněte na tlačítko OK Tlačítko a všechna makra byla exportována ze zadaného sešitu do jiného souboru aplikace Excel a soubory maker byly také uloženy do konkrétní složky. Viz screenshot:

Poznámka: Tento kód může exportovat makra pouze z normálního modulu.