Come si fa a esportare tutte le macro da una cartella di lavoro a un’altra?

Se devi esportare più codici macro VBA da una cartella di lavoro a un’altra, puoi normalmente copiarli uno per uno. Tuttavia, questa operazione richiede molto tempo. In questo articolo spiegherò 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 codice VBA

---

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

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

1. Innanzitutto, apri contemporaneamente le due cartelle di lavoro: una contiene le macro, l’altra è quella in cui vuoi esportarle. Vedi screenshot:

Office Tab: apri, leggi, modifica e gestisci più documenti Office in un’unica finestra a schede Office Tab ti permette di navigare, modificare e gestire i documenti di Microsoft Office direttamente a schede. Puoi aprire più file in un’unica finestra a schede, esattamente come fai con i browser IE 8/9/10, Firefox e Google Chrome.Fai clic per scaricare e attivare subito la versione di prova gratuita!

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

3. Fai clic su Inserisci > Modulo, quindi 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 riportato, “old-workbook” è il nome della cartella di lavoro da cui desideri esportare le macro, mentre “new-workbook” è la cartella di lavoro in cui desideri importare le macro. Ricorda di sostituire questi nomi con quelli effettivi. Entrambe le cartelle di lavoro devono essere in formato xlsmTipo di file.

4. Dopo aver incollato il codice indicato sopra, premi il tasto F5 per eseguire il codice. Si aprirà una finestra di esplorazione: seleziona una cartella in cui salvare i file delle macro esportate. Vedi screenshot:

5. Fai quindi clic sul pulsante OK: tutte le macro verranno esportate dalla cartella di lavoro specificata in un altro file Excel e i file delle macro saranno salvati nella cartella indicata. Vedi screenshot:

Nota: questo codice può esportare soltanto le macro contenute in un modulo standard.