Come esportare tutte le macro da una cartella di lavoro a un'altra?

Se hai bisogno di esportare più codici macro VBA da una cartella di lavoro a un'altra, puoi copiarli uno per uno normalmente. Ma questo sarà dispendioso in termini di tempo; in questo articolo, parlerò di come esportare rapidamente tutte le macro da una cartella di lavoro a un'altra e salvare i file delle macro in una cartella specifica.

Esporta tutte le macro da una cartella di lavoro a un'altra con il codice VBA

---

Esporta tutte le macro da una cartella di lavoro a un'altra con il codice VBA

Per esportare tutti i codici macro VBA da un file Excel a un altro, segui i seguenti passaggi:

1. Prima di tutto, dovresti aprire contemporaneamente le due cartelle di lavoro: una contiene le macro, l'altra è quella in cui desideri esportare le macro, vedi screenshot:

Office Tab-Apri, leggi, modifica e gestisci più documenti Office in una finestra a schede singola Office Tab abilita la navigazione a schede, la modifica e la gestione delle applicazioni Microsoft Office. Puoi aprire più documenti/file in una singola finestra a schede, proprio come utilizzare il browser IE 8/9/10, Firefox e Google Chrome. Clicca per scaricare e provare gratuitamente ora!

2. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

3. Clicca su Inserisci > Modulo, e incolla la seguente macro nella finestra del Modulo.

Codice VBA: Esporta tutte le macro da una cartella di lavoro a un'altra:

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

Nota: Nel codice sopra, “vecchia-cartella-di-lavoro” è il nome della cartella di lavoro da cui vuoi esportare le macro, e “nuova-cartella-di-lavoro” è la cartella di lavoro in cui vuoi importare le macro. Dovresti cambiare i nomi con i tuoi. Entrambe le cartelle di lavoro devono essere nel formato xlsm file.

4. Dopo aver incollato il codice sopra, premi il tasto F5 per eseguire il codice, e verrà visualizzata una finestra Sfoglia, scegli una cartella in cui mettere i file delle macro esportate, vedi screenshot:

5. Quindi clicca sul pulsante OK, e tutte le macro sono state esportate dalla cartella di lavoro specificata a un altro file Excel, e i file delle macro sono stati salvati anche nella cartella specifica. Vedi screenshot:

Nota: Questo codice può esportare solo le macro dal Modulo normale.