Como executar uma macro ao mesmo tempo em vários arquivos de pasta de trabalho?
Neste artigo, falarei sobre como executar uma macro em vários arquivos de pasta de trabalho ao mesmo tempo, sem abri-los. O método a seguir pode ajudá-lo a resolver 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. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole a macro a seguir no Módulo Janela.
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
Note: No código acima, copie e cole seu próprio código sem o Sub título e End Sub rodapé entre o Com Workbooks.Open (xFdItem & xFileName) e Terminar com scripts. Veja a imagem:
3. Então aperte F5 chave para executar este código, e um Procurar janela for exibida, selecione uma pasta que contenha as pastas de trabalho para as quais você deseja aplicar esta macro, consulte a captura de tela:
4. E, em seguida, clique em OK , a macro desejada será executada de uma vez de uma pasta de trabalho para outras.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!