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.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!