¿Cómo exportar todas las macros de un libro de trabajo a otro libro de trabajo?

Si necesita exportar varios códigos macro VBA de un libro de trabajo a otro, normalmente puede copiarlos uno por uno. Pero esto será muy lento. En este artículo, hablaré sobre cómo exportar rápidamente todas las macros de un libro de trabajo a otro y guardar los archivos de macros en una carpeta específica.

Exportar todas las macros de un libro de trabajo a otro con código VBA

---

Exportar todas las macros de un libro de trabajo a otro con código VBA

Para exportar todos los códigos macro VBA de un archivo Excel a otro, siga estos pasos:

1. Primero, debe abrir los dos libros de trabajo al mismo tiempo, uno contiene las macros y el otro es aquel al que desea exportar las macros, vea la captura de pantalla:

Office Tab-Abra, lea, edite y administre múltiples documentos de Office en una ventana con pestañas Office Tab habilita la navegación, edición y administración con pestañas de las aplicaciones de Microsoft Office. Puede abrir múltiples documentos/archivos en una sola ventana con pestañas, como si usara el navegador IE 8/9/10, Firefox y Google Chrome. ¡Haga clic para descargar y probar gratis ahora!

2. Mantenga presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haga clic en Insertar > Módulo, y pegue la siguiente macro en la Ventana del Módulo.

Código VBA: Exportar todas las macros de un libro de trabajo a otro:

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: En el código anterior, “old-workbook” es el nombre del libro de trabajo del cual desea exportar las macros, y “new-workbook” es el libro de trabajo al que desea importar las macros. Debe cambiar los nombres según corresponda. Ambos libros de trabajo deben estar en formato xlsm de archivo.

4. Después de pegar el código anterior, presione la tecla F5 para ejecutarlo, y se mostrará una ventana Examinar; seleccione una carpeta donde colocar los archivos de macros exportados, vea la captura de pantalla:

5. Luego haga clic en el botón Aceptar, y todas las macros se han exportado desde su libro de trabajo especificado a otro archivo de Excel, y los archivos de macros también se han guardado en la carpeta específica. Ver captura de pantalla:

Nota: Este código solo puede exportar las macros desde un Módulo normal.