Come rinominare in blocco più file di una cartella da Excel?
Molti di noi si sono probabilmente trovati ad affrontare questa sfida: dover rinominare un gran numero di file all’interno di una cartella. Rinominarli manualmente, uno per uno, può trasformarsi in un compito estenuante se la cartella contiene centinaia o addirittura migliaia di file. Esistono funzioni utili per semplificare questa operazione?
Passo 1: Elenca tutti i nomi dei file da una cartella specifica nel foglio di lavoro con Kutools per Excel
Passo 2: Rinomina più file di una cartella in Excel con codice VBA
Elenca tutti i nomi dei file da una cartella specifica nel foglio di lavoro con Kutools per Excel
Se devi rinominare più file, puoi innanzitutto elencare i vecchi nomi in una colonna del foglio di lavoro e inserire accanto i nuovi nomi che desideri utilizzare al loro posto. Per elencare rapidamente tutti i file nel foglio di lavoro, puoi usare l’utilità Kutools per Excel’s Elenco nomi file di Importa/Esporta.
Dopo aver installato Kutools per Excel, procedi come segue:()Scarica gratuitamente Kutools per Excel ora)
1. Fai clic su KUTOOLS PLUS > Importa/Esporta > Elenco nomi file, vedi screenshot:
2. Nella finestra di dialogo Elenco nomi file, fai clic sul pulsante 
per scegliere la cartella dei file da elencare, quindi seleziona Tutti i file dal menu a discesa Tipo di file. Vedi screenshot:
3. Fai quindi clic sul pulsante OK: tutti i nomi dei file verranno elencati in una colonna di un nuovo foglio di lavoro, insieme ad alcuni attributi dei file. A questo punto, puoi eliminare le colonne non necessarie e mantenere solo la colonna Nome file. Vedi screenshot:
Fai clic per saperne di più su questa funzionalità Elenco nomi file…
Scarica gratuitamente Kutools per Excel ora
Rinomina più file di una cartella in Excel con codice VBA
Dopo aver elencato tutti i nomi originali dei file nella colonna A, digita i nuovi nomi dei file nella colonna B, come mostrato nello screenshot seguente:
Di seguito ti presento un codice VBA che ti consente di sostituire tutti i vecchi nomi dei file con quelli nuovi in un’unica operazione. Segui questi passaggi:
1. Tieni premuti i tasti ALT + F11: si aprirà la finestra Microsoft Visual Basic, Applications.
2. Fai clic su Inserisci > Modulo, quindi incolla la seguente macro nella finestra Modulo.
Codice VBA: Rinomina più file in una cartella
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
3. Dopo aver incollato il codice, premi il tasto F5 per eseguirlo. Nella finestra Sfoglia, seleziona la cartella i cui file desideri rinominare. Vedi screenshot:
4. Fai quindi clic su OK: tutti i vecchi nomi dei file saranno immediatamente sostituiti con i nuovi. Vedi screenshot:
 |  |  |
Note:
1. Quando elenchi i vecchi nomi e i nuovi nomi generati, assicurati di includere sempre l’estensione del file.
2. Nel codice sopra indicato, il riferimento A:A indica l'elenco dei vecchi nomi file da rinominare, mentre il riferimento B contiene i nuovi nomi da utilizzare; puoi modificarli in base alle tue esigenze.
Demo: Rinomina più file di una cartella in Excel
Articoli correlati:
Come creare fogli di lavoro sequenziali da un intervallo di celle in Excel?
Come rinominare più fogli di lavoro contemporaneamente in Excel?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi