Ridenominazione di file con Excel VBA

Question

Ecco cosa devo fare. Ho queste due colonne in un foglio excel. Con i nomi dei file. La prima colonna ha il nome file corrente e la seconda colonna ha i nomi in cui si desidera rinominare i file. Devo usare questo perché non ci sono schemi in rinominare. Ad esempio, il sottostante può essere un insieme di file ...

Current Name > Rename To 
--------------------------- 
Abc.jpg  > Dinner.jpg 

Xyz.jpg  > Driving.jpg 

123.jpg  > Sunset.jpg 

so che dovrebbe essere facile da fare questo in VBA, ma non esattamente sicuro di come. Qualsiasi aiuto sarebbe molto apprezzato.

Answer 1

Penso che si possa fare qualcosa del genere, usando la funzione Name per rinominare i file, tuttavia, probabilmente sarà necessario assicurarsi che le 2 colonne abbiano il percorso completo del file, cioè "C: \ Temp \ ABC.jpg "

Dim Source As Range 
Dim OldFile As String 
Dim NewFile As String 

Set Source = Cells(1, 1).CurrentRegion 

For Row = 1 To Source.Rows.Count 
    OldFile = ActiveSheet.Cells(Row, 1) 
    NewFile = ActiveSheet.Cells(Row, 2) 

    ' rename files 
    Name OldFile As Newfile 

Next