Note: The other languages of the website are Google-translated. Back to English

Hogyan lehet exportálni az összes makrót egy munkafüzetből egy másikba?

Ha több makró vba kódot kell exportálnia egyik munkafüzetből a másikba, normálisan egyesével másolhatja őket. De ez időigényes lesz, erről a cikkről arról fogok beszélni, hogyan lehet gyorsan exportálni az összes makrót az egyik munkafüzetből a másikba, és a makrófájlokat egy adott mappába is menteni.

Exportálja az összes makrót egyik munkafüzetből a másikba VBA kóddal


Exportálja az összes makrót egyik munkafüzetből a másikba VBA kóddal

Ha az összes makró vba kódot egyik Excel fájlból a másikba szeretné exportálni, tegye a következőket:

1. Először meg kell nyitnia a két munkafüzetet egyszerre, az egyik makrókat tartalmaz, a másik a makrókat exportálni akarja, lásd a képernyőképet:

doc export makrók 1

Office Tab-Nyissa meg, olvassa el, szerkessze és kezelje több Office-dokumentumot egyetlen füles ablakban

Az Office Tab lehetővé teszi a Microsoft Office alkalmazások füles böngészését, szerkesztését és kezelését. Egyetlen füles ablakban több dokumentumot / fájlt nyithat meg, például az IE 8/9/10, a Firefox és a Google Chrome böngészővel. Kattintson a letöltéshez és ingyenes próbaverzió most!

doc export makrók

2. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. Kattints betétlap > Modul, és illessze be a következő makrót a Modulok Ablak.

VBA-kód: Az összes makró exportálása egyik munkafüzetből a másikba:

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
Megjegyzések: A fenti kódban:régi-munkafüzet”Annak a munkafüzetnek a neve, amelyből exportálni szeretné a makrókat, ésúj-munkafüzet”Az a munkafüzet, amelybe importálni szeretné a makrókat. Meg kell változtatnia a neveket a sajátjaira. A két munkafüzetnek meg kell lennie xlsm fájlformátum.

doc export makrók 2

4. A fenti kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, és a Tallózás ablak megjelenik, kérjük, válasszon egy mappát az exportált makró fájlok elhelyezéséhez, lásd a képernyőképet:

doc export makrók 3

5. Ezután kattintson OK gombra, és az összes makrót exportálta a megadott munkafüzetből egy másik Excel fájlba, és a makró fájlokat is elmentette az adott mappába. Lásd a képernyőképet:

doc export makrók 4

Megjegyzések: Ez a kód csak a normál modulból exportálja a makrókat.


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (3)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hello! Ez nem működött nekem:( Minden makrómnak neve van, ez a probléma? Köszönöm a segítséget
A weboldal moderátora ezt a megjegyzést minimalizálta
ezt meg lehet változtatni úgy, hogy az összes modult exportálja a personal.XLSB-ből? Csak a rendszeres „Makróim biztonsági mentése” miatt – okok
A weboldal moderátora ezt a megjegyzést minimalizálta
Egyetértek Rediflow-val. Kérjük, adja meg a kódot, hogy hol található a personal.xlsb fájlból származó összes makró szövegfájlba exportálásához.
Még senki sem írt megjegyzést

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi