Vai al contenuto principale

Come rinominare più file di una cartella in Excel?

Forse la maggior parte di noi soffre di questo problema che dobbiamo rinominare più file in una cartella, rinominare i nomi dei file uno per uno ci farà impazzire se ci sono centinaia o migliaia di file in quella cartella. Ci sono buone funzioni per noi per affrontare questo compito?

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

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


Se sono presenti più file che si desidera rinominare, innanzitutto è possibile elencare i vecchi nomi di file in una colonna del foglio di lavoro, quindi immettere i nuovi nomi di file con cui si desidera sostituire. Per elencare rapidamente tutti i file nel foglio di lavoro, puoi usare il Kutools for Excel'S Elenco nomi file utilità.

Dopo l'installazione Kutools for Excel, per favore fai come segue :( Scarica subito Kutools per Excel gratuitamente )

1. Clic Kutools Plus > Importa ed esporta > Elenco nomi file, vedi screenshot:

2. Nel Elenco nomi file finestra di dialogo, fare clic doc-rename-più-file-1 per scegliere la cartella di file in cui si desidera elencare i file, quindi fare clic su Tutti i file dal Tipo di file, vedi screenshot:

doc-rename-più-file-1

3. Quindi fare clic OK pulsante, tutti i nomi di file sono stati elencati in una colonna di un nuovo foglio di lavoro, così come alcuni attributi di file, e ora puoi eliminare altre colonne indesiderate e lasciare solo il Nome del file colonna, vedi screenshot:

doc-rename-più-file-1

Fare clic per saperne di più su questa funzione Elenco nomi file ...

Scarica subito Kutools per Excel gratuitamente


Dopo aver elencato tutti i nomi di file originali in una colonna A, e dovresti digitare nuovi nomi di file nella colonna B come mostrato nella seguente schermata:

doc-rename-più-file-1

E qui parlerò di un codice VBA che potrebbe aiutarti a sostituire i vecchi nomi di file con i nuovi nomi di file contemporaneamente. Si prega di fare con i seguenti passaggi:

1. Tieni premuto il ALT + F11 chiavi e apre il file Finestra Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Modulie incolla la seguente macro nel file Finestra del 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, premere F5 chiave per eseguire questo codice e in Scopri la nostra gamma di prodotti finestra, seleziona la cartella in cui desideri modificare i nomi dei file, vedi screenshot:

doc-rename-più-file-1

4. E poi clicca OK, tutti i vecchi nomi di file sono stati sostituiti immediatamente dai nuovi nomi di file. Vedi screenshot:

doc-rename-più-file-1 2 doc-rename-più-file-1

Note:

1. Quando si elencano i nomi di file vecchi e nuovi, è necessario includere l'estensione del file.

2. Nel codice precedente, il riferimento AA indica il vecchio elenco di nomi di file che si desidera rinominare e fare riferimento B contiene i nuovi nomi di file che si desidera utilizzare, è possibile modificarli secondo le proprie necessità


Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!

Articoli correlati:

Come creare fogli di lavoro in sequenza da un intervallo di celle in Excel?

Come rinominare più fogli di lavoro in Excel?

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • 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 della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (38)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Great! it work for me
This comment was minimized by the moderator on the site
The above stated code does not detect native language file names in Hindi or Marathi - example "HIN-MALE-CH - 7 - कार"
Here the code does not detect "कार"
Any way to handle this issue?
This comment was minimized by the moderator on the site
Sziasztok!
Ha kép nevébe "/" jelet akarok rakni, akkor min kell változtatnom?
Ha benne van a "/" jel akkor nekem nem működik.

Köszönöm
Andor
This comment was minimized by the moderator on the site
Hello, Benedeczki,

Under normal circumstances, the file name cannot contain the /\:*?<>” symbol, so if your picture name contains the / symbol, the code cannot run normally.
You'd better to remove the / symbol from the file name.
Thank you!
This comment was minimized by the moderator on the site
wow, useful and very helpful. BIG THANKS :)
This comment was minimized by the moderator on the site
Sub RenameMultipleFiles()
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 Then
selectDirectory = .SelectedItems(1)
dFileList = Dir(selectDirectory & Application.PathSeparator & "*")

Do Until dFileList = ""
curRow = 0
On Error Resume Next
curRow = Application.Match(dFileList, Range("A:A"), 0)
If curRow > 0 Then
Name selectDirectory & Application.PathSeparator & dFileList As _
selectDirectory & Application.PathSeparator & Cells(curRow, "B").Value
End If

dFileList = Dir
Loop
End If
End With
End Sub

this formula does not rename1st document
This comment was minimized by the moderator on the site
Love this so much! Is there a way to use Kutools to edit metadata tags for music similar to this with filenames? Would love being able to mass edit song tags through Excel rather than on iTunes or other third party song tag editors. Thank you!
This comment was minimized by the moderator on the site
okay Thank you
This comment was minimized by the moderator on the site
Hello. I did this for a couple of files and it worked successfully. The next few files i tried, did not work. There were a few formulas added to the new names, could that be the issue?
This comment was minimized by the moderator on the site
Very helpful. Thank you!
This comment was minimized by the moderator on the site
great, worked great for me
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations