Como salvar rapidamente uma pasta de trabalho em vários locais no Excel?

No Excel, podemos salvar uma pasta de trabalho em um local específico conforme desejamos. No entanto, você já imaginou salvar uma única pasta de trabalho em várias pastas ao mesmo tempo? Neste artigo, com o código VBA, você pode salvar rapidamente uma pasta de trabalho em vários locais de uma só vez.

Salvar uma pasta de trabalho em vários locais com VBA

Salvar uma pasta de trabalho em vários locais com VBA

Para salvar uma pasta de trabalho em vários locais, basta aplicar um código de macro.

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

2. Clique em Inserir > Módulo e cole o código abaixo no script do Módulo. Veja a captura de tela:

VBA: Salvar uma pasta de trabalho em vários locais

Sub SaveToLocations()
'UpdateByExtendoffice20160623
    ActiveWorkbook.SaveCopyAs "C:\Users\DT168\Documents\" + ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs "C:\Users\DT168\" + ActiveWorkbook.Name
    ActiveWorkbook.Save
End Sub

Dica: No código da macro, você pode alterar os caminhos de salvamento conforme desejar.

3. Pressione a tecla F5 para executar o código, e a pasta de trabalho ativa será salva nos locais especificados no código.