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:

Office Tab-Oscail, léigh, cuir in eagar, agus bainistigh iliomad doiciméad Oifige i bhfuinneog cluaisín amháin Cumasaíonn Office Tab brabhsáil, eagarthóireacht agus bainistiú a dhéanamh ar fheidhmchláir Microsoft Office. Is féidir leat doiciméid / comhaid iolracha 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!

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.

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:

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:

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