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

Conas gach macraí a easpórtáil ó leabhar oibre amháin go leabhar oibre eile?

Más gá duit ilchóid macra vba a easpórtáil ó leabhar oibre amháin go leabhar eile, is féidir leat iad a chóipeáil ceann ar cheann de ghnáth. Ach glacfaidh sé seo go leor ama, an t-alt seo, labhróidh mé faoi conas gach macraí a easpórtáil go tapa ó leabhar oibre amháin go ceann eile agus na macra-chomhaid a shábháil chuig fillteán ar leith freisin.

Easpórtáil gach macraí ó leabhar oibre amháin go ceann eile le cód VBA


Easpórtáil gach macraí ó leabhar oibre amháin go ceann eile le cód VBA

Chun gach cód macra vba a easpórtáil ó chomhad Excel amháin go comhad eile, déan na céimeanna seo a leanas le do thoil:

1. Ar dtús, ba cheart duit an dá leabhar oibre a oscailt ag an am céanna, tá macraí i gceann amháin, agus an ceann eile an ceann ar mhaith leat macraí a easpórtáil dó, féach ar an scáileán:

macraí onnmhairithe doc 1

Office Tab-Oscail, léigh, eagraigh agus bainistíonn iliomad doiciméad Oifige i bhfuinneog tabáilte amháin

Cumasaíonn Office Tab brabhsáil, eagarthóireacht agus bainistíocht tabbed feidhmchláir Microsoft Office. Féadfaidh tú iliomad doiciméad / comhad a oscailt i bhfuinneog tabbed amháin, mar shampla an brabhsálaí IE 8/9/10, Firefox, agus Google Chrome a úsáid. Cliceáil chun íoslódáil agus triail saor in aisce anois!

macraí onnmhairithe doc

2. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

3. Cliceáil Ionsáigh > Modúl, agus greamaigh an macra seo a leanas sa Modúil Fuinneog.

Cód VBA: Easpórtáil gach macraí ó leabhar oibre amháin go leabhar eile:

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
nótaí: Sa chód thuas, “sean-leabhar oibre"Is é ainm an leabhair oibre ar mhaith leat na macraí a easpórtáil uaidh, agus"leabhar nua-oibre"Is é an leabhar oibre a theastaíonn uait na macraí a iompórtáil. Ba cheart duit na hainmneacha a athrú go dtí do cheann féin. Ba chóir go mbeadh an dá leabhar oibre xlsm formáid comhaid.

macraí onnmhairithe doc 2

4. Tar éis duit an cód thuas a ghreamú, ansin brúigh F5 eochair chun an cód seo a rith, agus a Brabhsáil taispeántar an fhuinneog, roghnaigh fillteán le do thoil chun na macra-chomhaid a onnmhairítear a chur, féach an scáileán:

macraí onnmhairithe doc 3

5. Ansin cliceáil OK cnaipe, agus rinneadh na macraí go léir a onnmhairiú ó do leabhar oibre sonraithe chuig comhad Excel eile, agus sábháladh na macra-chomhaid isteach san fhillteán ar leith freisin. Féach an pictiúr:

macraí onnmhairithe doc 4

nótaí: Ní féidir leis an gcód seo ach na macraí a onnmhairiú ón ngnáth-Mhodúl.


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (3)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, níor oibrigh sé seo domsa:( Tá ainmneacha ar mo mhacraí ar fad, an é sin an fhadhb? Go raibh maith agat as aon chabhair
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
an féidir é seo a athrú chun gach Modúl a easpórtáil ón personal.XLSB? Díreach le haghaidh "Cúltaca mo Macraí" rialta - Cúiseanna
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Aontaím le Rediflow. Tabhair leid le do thoil maidir leis an áit ar féidir teacht ar an gcód chun gach macraí a easpórtáil ón gcomhad personal.xlsb go téacschomhad.
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL