Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako izvoziti vse makre iz ene delovne knjige v drugo delovno knjižico?

Če morate izvoziti več makro vba kod iz enega delovnega zvezka v drugega, jih lahko običajno kopirate eno po eno. Ampak to bo veliko časa, ta članek, bom govoril o tem, kako hitro izvozite vse makre iz ene delovne knjige v drugo in shranite makro datoteke v določeno mapo, kot dobro.

Izvozite vse makre iz enega delovnega zvezka v drugo s kodo VBA


Odstranite vse makre iz več delovnih zvezkov:

Kutools za Excel's Batch Odstrani vse makre pripomoček vam lahko pomaga odstraniti vse makre iz več delovnih zvezkov, kot jih potrebujete. Prenesite in brezplačno preizkusite Kutools za Excel zdaj!

doc zagon makro, če se celica spremeni v 3

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


Izvozite vse makre iz enega delovnega zvezka v drugo s kodo VBA

Če želite izvoziti vse kode makro vba iz ene datoteke Excel v drugo, naredite naslednje:

1. Najprej morate hkrati odpreti dve delovni zvezki, enega vsebuje makre, drugo pa tisto, ki ga želite izvoziti v makre, si oglejte sliko zaslona:

doc izvozni makri 1

Tabulator za Office - odprite, preberite, uredite in upravljajte več dokumentov Office v enem zavihku z zavihki

Zavihek »Office« omogoča brskanje z brskalnikom, urejanje in upravljanje programov Microsoft Office. V enem zavihku okna lahko odpirate več dokumentov / datotek, na primer z uporabo brskalnika IE 8 / 9 / 10, Firefox in Google Chrome. Kliknite za prenos in brezplačno preizkusite zdaj!

doc izvozni makri

2. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. Kliknite Vstavi > Modul, in prilepite naslednji makro v Moduli Okno.

VBA koda: Izvozite vse makre iz enega delovnega zvezka v drugega:

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
Opombe: V zgornjem kodu, "star delovni zvezek"Je ime delovne knjige, iz katere želite izvoziti makre, in"nov delovni zvezek"Je delovni zvezek, ki ga želite uvažati v makre. Imena bi morali spremeniti sami. Oba delovna zvezka morata biti xlsm format datoteke.

doc izvozni makri 2

4. Po lepljenju zgornje kode, nato pritisnite F5 ključ za zagon te kode in a Brskanje prikaže se okno, izberite mapo za postavitev izvoženih makro datotek, glejte sliko zaslona:

doc izvozni makri 3

5. Nato kliknite OK gumb in vsi makri so bili iz vašega določenega delovnega zvezka izvoženi v drugo datoteko Excel, makro datoteke pa so shranjene tudi v določeno mapo. Prikaz slike:

doc izvozni makri 4

Opombe: Ta koda lahko izvozi samo makre iz običajnega modula.


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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.