Como duplicar arquivos do Excel usando uma macro
Gostaria de copiar uma pasta de trabalho do Excel e dar a ela um novo nome? Claro, você pode fazer isso por meio do Windows, mas como automatizar isso no Excel? Uma possibilidade é abrir a pasta de trabalho apropriada e salvá-la com um novo nome.
No entanto, isso leva muito tempo e é complicado porque o Excel realiza cálculos, atualiza links e assim por diante quando a pasta de trabalho é aberta. É mais fácil fazer isso diretamente usando o comando VBA FileCopy. A macro a seguir copia uma pasta de trabalho de um diretório para outro, especificando um novo nome:
Copiar subpasta ()
Dim source As String, destination As String
Source = "c: \ August.xls"
Destino = "c: \ data \ September.xls"
Origem, destino do FileCopy
End Sub
Coloque na variável fonte Especifique o nome e o caminho do arquivo que deseja copiar. Salvar na variável alvo o caminho e o destino do arquivo. No programa de amostra, o arquivo August.xls do caminho C: \ é salvo com o novo nome September.xls no caminho C: \ Daten. O arquivo de origem August.xls permanece inalterado.
Com o comando, você pode copiar não apenas pastas de trabalho do Excel, mas também outros arquivos.
