Como executar uma macro simultaneamente em várias pastas de trabalho?

Executar uma macro em vários arquivos de pasta de trabalho pode ser demorado se você precisar abrir cada arquivo individualmente. Felizmente, com o VBA, é possível executar uma macro simultaneamente em várias pastas de trabalho sem precisar abri-las. Este tutorial fornece um guia passo a passo para simplificar essa tarefa no Excel.

Execute uma macro ao mesmo tempo em várias pastas de trabalho com código VBA

Execute uma macro ao mesmo tempo em várias pastas de trabalho com código VBA

Para executar uma macro em várias pastas de trabalho sem abri-las, aplique o seguinte código VBA:

1. Pressione as teclas "ALT + F11" para abrir a janela "Microsoft Visual Basic for Applications".

2. Clique em "Inserir" > "Módulo" e cole a seguinte macro na janela "Módulo".

Código VBA: Execute a mesma macro em várias pastas de trabalho ao mesmo tempo:

Sub LoopThroughFiles()
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xls*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)
                'your code here
            End With
            xFileName = Dir
        Loop
    End If
End Sub

Observação: No código acima, copie e cole seu próprio código sem o cabeçalho "Sub" e o rodapé "End Sub" entre os scripts "With Workbooks.Open(xFdItem & xFileName)" e "End With". Veja a captura de tela:

3. Em seguida, pressione a tecla "F5" para executar este código, e uma janela "Procurar" será exibida. Selecione uma pasta que contenha as pastas de trabalho nas quais deseja aplicar essa macro, veja a captura de tela:

4. Clique em "OK", e a macro desejada será executada em todas as pastas de trabalho selecionadas.