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

Si necesita exportar varios códigos VBA de macros de un libro a otro, normalmente podría copiarlos uno por uno, pero este proceso resulta muy lento. En este artículo le mostraré cómo exportar rápidamente todas las macros de un libro a otro y guardar los archivos de macro en una carpeta específica.

Exporte todas las macros de un libro a otro mediante código VBA

---

Exporte todas las macros de un libro a otro mediante código VBA

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

1. Primero, abra ambos libros a la vez: uno contiene las macros y el otro es el destino al que quiere exportarlas. Vea la captura de pantalla:

Office Tab: abra, lea, edite y gestione varios documentos de Office en una única ventana con pestañas Office Tab le permite navegar, editar y gestionar documentos con pestañas en las aplicaciones de Microsoft Office. Puede abrir varios documentos o archivos en una sola ventana con pestañas, tal como hace en navegadores como IE 8/9/10, Firefox y Google Chrome.¡Haga clic para descargar y probar gratis ahora!

2. Mantenga pulsadas 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: Exporte todas las macros de un libro 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 del que desea exportar las macros, y “new-workbookes el libro al que desea importar las macros. Debe reemplazar estos nombres por los suyos propios. Ambos libros deben tener la extensión xlsmTipo de archivo.

4. Tras pegar el código anterior, pulse la tecla F5 para ejecutarlo. A continuación, se abrirá una ventana de Examinar; seleccione una carpeta para guardar los archivos de macro exportados. Vea la captura de pantalla:

5. A continuación, haga clic en el botón Aceptar y todas las macros se exportarán desde el libro especificado a otro archivo de Excel, guardándose también los archivos de macro en la carpeta indicada. Vea la captura de pantalla:

Nota: Este código solo permite exportar macros desde un módulo estándar.