Come rinominare più file in una cartella in Excel?

Forse molti di noi si trovano ad affrontare questo problema: dobbiamo rinominare più file in una cartella. Rinominarli uno per uno ci farebbe impazzire se ci fossero centinaia o migliaia di file in quella cartella. Esistono funzioni utili che possano aiutarci a gestire questo compito?

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 il codice VBA

Elenca tutti i nomi dei file da una cartella specifica nel foglio di lavoro con Kutools per Excel

Se ci sono più file che desideri rinominare, prima puoi elencare i vecchi nomi dei file in una colonna del foglio di lavoro e poi inserire i nuovi nomi dei file che vuoi sostituire. Per elencare rapidamente tutti i file nel foglio di lavoro, puoi utilizzare l'utilità Elenco nomi file di Kutools per Excel.

Dopo aver installato Kutools per Excel, procedi come segue: ( Scarica gratuitamente Kutools per Excel ora )

1. Clicca su Kutools Plus > Importa & Esporta > Elenco nomi file, vedi screenshot:

2. Nel Elenco nomi file finestra di dialogo, clicca sul pulsante per scegliere la cartella dei file che vuoi elencare, e poi clicca Tutti i file dal Tipo di file, vedi screenshot:

3. Poi clicca sul pulsante OK, tutti i nomi dei file saranno elencati in una colonna di un nuovo foglio di lavoro, insieme ad alcuni attributi dei file, e ora puoi eliminare le altre colonne indesiderate lasciando solo la colonna Nome file, vedi screenshot:

Clicca per saperne di più su questa funzione Elenco nomi file…

Scarica gratuitamente Kutools per Excel ora

Rinomina più file di una cartella in Excel con il codice VBA

Dopo aver elencato tutti i nomi dei file originali nella colonna A, dovresti digitare i nuovi nomi dei file nella colonna B come mostrato nello screenshot seguente:

Qui parlerò di un codice VBA che potrebbe aiutarti a sostituire i vecchi nomi dei file con i nuovi nomi dei file in una volta sola. Procedi con i seguenti passaggi:

1. Tieni premuti i tasti ALT + F11, e si aprirà la finestra Microsoft Visual Basic per Applicazioni.

2. Clicca su Inserisci > Modulo, e 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 eseguire questo codice, e nella finestra Sfoglia, seleziona la cartella in cui vuoi cambiare i nomi dei file, vedi screenshot:

4. E poi clicca su OK, tutti i vecchi nomi dei file verranno sostituiti immediatamente dai nuovi nomi dei file. Vedi gli screenshot:

Note:

1. Quando elenchi i tuoi vecchi e nuovi nomi dei file, devi includere l'estensione del file.

2. Nel codice sopra, il riferimento A:A indica l'elenco dei vecchi nomi dei file che vuoi rinominare, e il riferimento B contiene i nuovi nomi dei file che vuoi usare, puoi modificarli secondo necessità.

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 in Excel?