023. Copiare File con VBA

Download PDF

Domanda:

Ho una colonna di Excel dove sono riportati una lista di files (comprensivi di percorso) e in un\’altra colonna il nome di questi files (con percorso destinazione) che integrano nel nome alcune cose. Il problema è: con VBA come faccio a realizzare una istruzione che mi copi i files da una parte all\’altra con un ciclo? Vi ringrazio

Risposta:
posto in un foglio la colonna A con il nome del file da copiare comprensivo di percorso ed estensione,
ed una colonna B il nome del file da incollare comprensivo di percorso ed estensione,
può utilizzare il seguente codice:

Public Sub CopiaFile()
Dim Origine As String
Dim Destinazione As String

Last_Row = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

For i = 2 To Last_Row

Origine = Cells(i, 1)
Destinazione = Cells(i, 2)

Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile Origine, Destinazione Set fs = Nothing

Next i

End Sub

Allego file d’esempio
Copia File con VBA

Prima di lanciare la macro bisogna creare in C: la cartella “Cartella Origine” contenente i file “FileA_Orig.xlsx” e “FileB_Orig.xlsx” e sempre in C: la cartella “Cartella Destinazione”

Riccardo Vincenti

The following two tabs change content below.

Riccardo Vincenti

Ultimi post di Riccardo Vincenti (vedi tutti)