Skip i'r prif gynnwys

Sut i allforio pob macros o un llyfr gwaith i lyfr gwaith arall?

Os oes angen i chi allforio codau macro vba lluosog o un llyfr gwaith i'r llall, gallwch eu copïo fesul un fel arfer. Ond bydd hyn yn cymryd llawer o amser, yr erthygl hon, byddaf yn siarad am sut i allforio pob macros yn gyflym o un llyfr gwaith i'r llall ac arbed y ffeiliau macro i ffolder benodol hefyd.

Allforiwch bob macros o un llyfr gwaith i'r llall gyda chod VBA


Allforiwch bob macros o un llyfr gwaith i'r llall gyda chod VBA

To export all macro vba codes from one Excel file to another, please do with following steps:

1. Yn gyntaf, dylech agor y ddau lyfr gwaith ar yr un pryd, mae un yn cynnwys macros, a'r llall yw'r un rydych chi am allforio macros iddo, gweler y screenshot:

macros allforio doc 1

Office Tab-Agor, darllen, golygu, a rheoli dogfennau Swyddfa lluosog mewn un ffenestr tabiau

Office Tab galluogi pori tabiau, golygu, a rheoli rhaglenni Microsoft Office. Gallwch agor sawl dogfen / ffeil mewn ffenestr un tab, megis defnyddio'r porwr IE 8/9/10, Firefox, a Google Chrome. Cliciwch i lawrlwytho a threial am ddim nawr!

macros allforio doc

2. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Cliciwch Mewnosod > Modiwl, a gludwch y macro canlynol yn y Modiwlau Ffenestr.

Cod VBA: Allforiwch yr holl macros o un llyfr gwaith i'r llall:

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
Nodyn: Yn y cod uchod, “hen lyfr gwaith”Yw enw'r llyfr gwaith rydych chi am allforio'r macros ohono, a“llyfr gwaith newydd”Yw'r llyfr gwaith rydych chi am fewnforio'r macros. Dylech newid yr enwau i'ch enwau chi. Dylai'r ddau lyfr gwaith fod xlsm fformat ffeil.

macros allforio doc 2

4. Ar ôl pasio'r cod uchod, yna pwyswch F5 allwedd i redeg y cod hwn, ac a Pori ffenestr yn cael ei harddangos, dewiswch ffolder i roi'r ffeiliau macro a allforiwyd, gweler y screenshot:

macros allforio doc 3

5. Yna cliciwch OK button, and all macros have been exported from your specified workbook to another Excel file, and the macro files have been saved into the specific folder as well. See screenshot:

macros allforio doc 4

Nodyn: Dim ond o'r Modiwl arferol y gall y cod hwn allforio'r macros.

Offer Cynhyrchiant Swyddfa Gorau

Supercharge Eich Taenlenni: Profi Effeithlonrwydd Fel Erioed Erioed o'r blaen gyda Kutools for Excel

Nodweddion Poblogaidd: Darganfod/Tynnu sylw at/Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau     Symud Colofnau   |   Datguddio Colofnau   |   Cymharer Colofnau i Dewiswch Yr Un Celloedd a Gwahanol ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
Set Offer 15 Uchaf12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Words, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   Llawer Mwy...

Kutools for Excel yn cynnwys dros 300 o nodweddion, gan sicrhau mai dim ond clic i ffwrdd yw'r hyn sydd ei angen arnoch chi ...

Yn cefnogi Swyddfa /Excel 2007-2021 & mwy newydd, gan gynnwys 365 | Ar gael mewn 44 iaith | Mwynhewch dreial 30 diwrnod llawn sylw am ddim.

tab kte 201905


Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen mewn tabiau Word, Excel, Pwynt Pwer, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I agree with Rediflow. Please provide a clue to where the code can be found to export all macros from the personal.xlsb file to a text file.
This comment was minimized by the moderator on the site
can this be altered to just export all Moduls from the personal.XLSB? Just for regular "Backup of my Macros" - Reasons
This comment was minimized by the moderator on the site
Hello, This did not work for me:( All my macros have names, is that the problem?Thanks for any help
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations