Vba: como copiar um arquivo de um local para outro

Você pode usar o método CopyFile no VBA para copiar um arquivo de uma pasta para outra.

Aqui está uma maneira comum de usar esse método na prática:

 SubCopyMyFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source file and destination folder
SourceFile = "C:\Users\bob\Desktop\Some_Data_1\soccer_data.txt"
DestFolder = "C:\Users\bob\Desktop\Some_Data_2\"

'copy file
FSO.CopyFile Source:=SourceFile, Destination:=DestFolder

End Sub

Esta macro específica copia o arquivo chamado football_data.txt de uma pasta chamada Some_Data_1 para uma pasta chamada Some_Data_2 .

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: como copiar arquivos usando VBA

Digamos que temos um arquivo de texto chamado football_data.txt localizado em uma pasta chamada Some_Data_1 em nossa área de trabalho:

Agora digamos que queremos usar o VBA para copiar este arquivo de texto para outra pasta chamada Some_Data_2 em nossa área de trabalho, que atualmente contém dois arquivos de texto:

Antes de usar o VBA para copiar este arquivo, devemos primeiro habilitar o Microsoft Scripting Runtime no editor VB.

Para fazer isso, abra o editor VB, clique em Ferramentas e em Referências :

Na nova janela que aparece, role para baixo até ver Microsoft Scripting Runtime e marque a caixa ao lado dele. Em seguida, clique em OK .

Então podemos criar a seguinte macro para copiar o arquivo:

 SubCopyMyFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source file and destination folder
SourceFile = "C:\Users\bob\Desktop\Some_Data_1\soccer_data.txt"
DestFolder = "C:\Users\bob\Desktop\Some_Data_2\"

'copy file
FSO.CopyFile Source:=SourceFile, Destination:=DestFolder

End Sub

Assim que esta macro for executada, o arquivo denominado football_data.txt será copiado da pasta Some_Data_1 para a pasta Some_Data_2 :

O arquivo football_data.txt original também permanecerá na pasta Some_Data_1 :

Nota : Você pode encontrar a documentação completa do método CopyFile aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

Como criar pastas usando VBA
Como deletar pastas usando VBA
Como excluir arquivos usando VBA