Como exportar todas as macros de um livro para outro?

Se precisar de exportar vários códigos VBA de macros de um livro para outro, pode normalmente copiá-los um a um — mas este processo é demorado. Neste artigo, mostro como exportar rapidamente todas as macros de um livro para outro e guardar os ficheiros de macro numa pasta específica.

Exportar todas as macros de um livro para outro com código VBA

---

Exportar todas as macros de um livro para outro com código VBA

Para exportar todos os códigos VBA de macros de um ficheiro do Excel para outro, siga os passos seguintes:

1. Em primeiro lugar, abra simultaneamente os dois livros: um contém as macros e o outro é aquele para o qual pretende exportar as macros. Veja a imagem:

Office Tab – Abra, leia, edite e gere vários documentos do Office numa única janela com separadores O Office Tab permite-lhe navegar, editar e gerir as aplicações do Microsoft Office com separadores. Abra vários documentos ou ficheiros numa única janela com separadores — tal como faz nos navegadores IE 8/9/10, Firefox e Google Chrome.Clique para descarregar e experimentar gratuitamente agora!

2. Prima em simultâneo as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo e cole a seguinte macro na janela do Módulo.

Código VBA: Exportar todas as macros de um livro para outro:

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: No código acima, «old-workbook» é o nome do livro do qual pretende exportar as macros e «new-workbook» é o livro para o qual pretende importar as macros. Substitua estes nomes pelos seus próprios. Ambos os livros devem estar no formato xlsmTipo de ficheiro.

4. Após colar o código acima, prima a tecla F5 para executar este código. Será apresentada uma janela Procurar; selecione uma pasta para guardar os ficheiros de macro exportados. Veja a imagem:

5. Em seguida, clique no botão OK e todas as macros serão exportadas do seu livro especificado para outro ficheiro do Excel, com os ficheiros de macro guardados na pasta indicada. Veja a imagem:

Nota: Este código só permite exportar macros de um módulo normal.