Rinominare File contenuti in una cartella con nomi presi da File Excel

Question

Buongiorno vi chiedo aiuto per questa necessità.

Vorrei Rinominare i file presenti in una cartella con un nome "evocativo"

Associazione Nome file attuale ( formato alfanumerico) e quello nuovo ( data.pdf) sono contenuti in un file excel

592ff202-3100-4303-ba07-d2d6805b92f1.pdf	01-12-2006.pdf
3d5e59db-2b9e-4683-9375-36cb782d767a.pdf	04-12-2006.pdf
234c84a8-f73c-46a7-940d-50dd9a164f80.pdf	05-12-2006.pdf
0e375dbc-f968-4b88-99cc-980ec371fda1.pdf	06-12-2006.pdf

Potete darmi una dritta?

grazie infinite

Luca

Answer 1

Ciao Luca,

il codice dovrebbe essere questo:

Sub RenameFiles()

'Updateby20141124

Dim xDir As String

Dim xFile As String

Dim xRow As Long

With Application.FileDialog(msoFileDialogFolderPicker)

   .AllowMultiSelect = False 

  If .Show = -1 Then 

     xDir = .SelectedItems(1) 

     xFile = Dir(xDir & Application.PathSeparator & "\*") 

     Do Until xFile = "" 

         xRow = 0 

         On Error Resume Next 

         xRow = Application.Match(xFile, Range("A:A"), 0) 

         If xRow > 0 Then 

             Name xDir & Application.PathSeparator & xFile As \_ 

             xDir & Application.PathSeparator & Cells(xRow, "B").Value 

         End If 

         xFile = Dir 

     Loop 

  End If 

End With

End Sub

Answer 2

Buongiorno non ho mai risposto in inglese,

Ho messo il flag su " hai risolto il problema..." spero sia giusto

non vedo altre segnalazioni

Saluti

Luca