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.

• Bio
• Ultimi Post

Riccardo Vincenti

Ultimi post di Riccardo Vincenti (vedi tutti)

• 073. Duplicare righe excel modificando il contenuto - 6 Ottobre 2017
• 072. Estrazione numeri casuali - 6 Ottobre 2017
• 071. Estrazione casuale valori da un elenco - 5 Ottobre 2017
• 070. Contare dati univoci senza Pivot - 21 Settembre 2017
• 069. Aggiungere intervalli ad una data: Date Add in Excel - 21 Settembre 2017

This work by Riccardo Vincenti is licensed under a Creative Commons Attribution-NonCommercial 4.0 International