VBA para copiar um ficheiro de uma pasta para outra

Então eu tenho um arquivo de acesso que eu regularmente preciso ser copiado para outro diretório, substituindo a última versão. Eu gostaria de usar uma macro Excel para conseguir isso, e também gostaria de renomear o arquivo no processo.

por exemplo 

   fileName = "X:\Database\oldName.accdb"
   copyDestination = "Y:\dbstore\"
   newName = "newName.accdb"
Há uma maneira fácil de fazer isto?

 29
copyvba
Author: harryg, 2013-06-05
Source

2 answers

Usa os métodos apropriados na programação.FileSystemObject. Então o seu código será mais portátil para VBScript e VB.net. para começar, você precisa incluir:

Dim fso As Object
Set fso = VBA.CreateObject("Scripting.FileSystemObject")

Então você poderia usar 

Call fso.CopyFile(source, destination[, overwrite] )

Onde a origem e o destino são os nomes completos (incluindo os locais) do ficheiro.

Ver http://msdn.microsoft.com/en-us/library/aa711216 (V = vs. 71).aspx

 50
Author: Bathsheba, 2015-07-11 03:26:22

Este método é ainda mais fácil se estiver de acordo com menos opções: 

FileCopy source, destination
 62
Author: Jon, 2017-11-08 21:01:22