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

https://www.reddit.com/r/excel/comments/14dzo1t/how_do_i_batch_rename_files_with_names_from_an/

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.

Answer 3

Oh scusa Luca, la traduzione è automatica dal mio testo originale in inglese

Si prega di provare questo link, ci sono alcune formule relative condivise nel forum

https://techcommunity.microsoft.com/t5/excel/how-to-rename-file-names-from-an-excel-cell/m-p/*******

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.

Answer 4

Scusa, puoi postare il codice originale per poterlo utilizzare?

Grazie.

Luca

[tradotto il post]

Answer 5

Ciao Luca

Grazie per averci contattato.

Ecco come modificare e rinominare in blocco i file tramite Excel utilizzando gli script VBA:

Ottieni i nomi dei file dalla cartella tramite Excel. In Excel attenersi alla seguente procedura:

Scheda Dati in alto > Ottieni > dati da file > da cartella (seleziona la cartella con i file che desideri modificare)

Nella finestra che si apre mostrando i file nella cartella selezionata, fai clic su Trasforma dati (questo ti consentirà di selezionare solo i dati effettivi che desideri (come il nome dei file o qualsiasi altro metadato che hai collegato ai file)

2.

con i tuoi file nella colonna A del tuo foglio, inserisci i nomi in cui desideri modificare i file

Ad esempio

colonna A = nomi dei file originali

colonna B = nuovi nomi di file

Quando si rinominano i file, è importante aggiungere anche le estensioni dei file alla fine dei nuovi nomi dei file, altrimenti i file saranno vuoti/non riconosciuti.

3.

ora per rinominarli, ti consigliamo di selezionare la scheda Sviluppatore in alto (se non riesci a vedere la scheda Sviluppatore, cercalo su Google)

Nella scheda Sviluppo fare clic su Visual Basic

Una volta visualizzata la finestra popup per Visual Basic, fare clic su Inserisci, quindi su Modulo, quindi copiare e incollare questo codice nella casella di testo visualizzata:

Sub RenameFiles() 'Updateby20141124 Dim xDir come stringa Dim xFile come stringa Dim xRow fino a lungo Con Application.FileDialog(msoFileDialogFolderPicker) . AllowMultiSelect = False Se. Mostra = -1 Allora xDir = . SelectedItems(1) xFile = Dir(xDir & Application.PathSeparator & "*") Eseguire fino a xFile = "" xRow = 0 In caso di errore Riprendi successivo xRow = Application.Match(xFile, Range("A:A"), 0) Se xRow > 0 allora Nome xDir & Application.PathSeparator & xFile As _ xDir & Application.PathSeparator & Cells(xRow, "B"). Valore Fine se xFile = Dir Ciclo Fine se Termina con Fine sottomarino Salva quel modulo (ti consigliamo di usarlo in seguito quando vorrai rinominare nuovamente i file)

4.

Con il modulo salvato, i nomi dei file originali e i nuovi nomi dei file nelle colonne corrette (A e B), eseguire lo script Macro/Modulo/VBA facendo clic sul pulsante verde Riproduci vicino alla parte superiore o semplicemente premendo F5.

Se hai fatto tutto correttamente, tutti i file dovrebbero essere rinominati

Suggerirei di fare prima solo pochi file, solo per essere sicuri di farlo bene, quindi una volta fatto basta andare per la modifica in blocco.

Spero che questo aiuti.

Miglior

Shannah

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.