Vba: come copiare un file da una posizione all'altra

È possibile utilizzare il metodo CopyFile in VBA per copiare un file da una cartella a un’altra.

Ecco un modo comune per utilizzare questo metodo nella pratica:

 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

Questa particolare macro copia il file chiamato football_data.txt da una cartella chiamata Some_Data_1 a una cartella chiamata Some_Data_2 .

L’esempio seguente mostra come utilizzare questa sintassi nella pratica.

Esempio: come copiare file utilizzando VBA

Supponiamo di avere un file di testo chiamato football_data.txt situato in una cartella chiamata Some_Data_1 sul nostro desktop:

Ora supponiamo di voler utilizzare VBA per copiare questo file di testo in un’altra cartella chiamata Some_Data_2 sul nostro desktop, che attualmente contiene due file di testo:

Prima di utilizzare VBA per copiare questo file, dobbiamo prima abilitare Microsoft Scripting Runtime nell’editor VB.

Per fare ciò, apri l’editor VB, quindi fai clic su Strumenti , quindi su Riferimenti :

Nella nuova finestra visualizzata, scorri verso il basso fino a visualizzare Microsoft Scripting Runtime e seleziona la casella accanto ad essa. Quindi fare clic su OK .

Quindi possiamo creare la seguente macro per copiare il file:

 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

Una volta eseguita questa macro, il file denominato football_data.txt verrà copiato dalla cartella Some_Data_1 alla cartella Some_Data_2 :

Anche il file originale football_data.txt rimarrà nella cartella Some_Data_1 :

Nota : puoi trovare la documentazione completa per il metodo CopyFile qui .

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:

Come creare cartelle utilizzando VBA
Come eliminare cartelle utilizzando VBA
Come eliminare file utilizzando VBA