Μετάβαση στο κύριο περιεχόμενο

Πώς να μετονομάσετε πολλά αρχεία ενός φακέλου στο Excel;

Ίσως οι περισσότεροι από εμάς να υποφέρουμε με αυτό το πρόβλημα που πρέπει να μετονομάσουμε πολλά αρχεία σε ένα φάκελο, για να μετονομάσουμε τα ονόματα αρχείων ένα προς ένα θα μας κάνουν τρελούς αν υπάρχουν εκατοντάδες ή χιλιάδες αρχεία σε αυτόν τον φάκελο. Υπάρχουν καλές λειτουργίες για να αντιμετωπίσουμε αυτό το έργο;

Λίστα όλων των ονομάτων αρχείων από έναν συγκεκριμένο φάκελο στο φύλλο εργασίας με kutools για Excel

Μετονομάστε πολλά αρχεία ενός φακέλου στο Excel με κωδικό VBA


Εάν υπάρχουν πολλά αρχεία που θέλετε να μετονομάσετε, πρώτα, μπορείτε να παραθέσετε τα παλιά ονόματα αρχείων σε μια στήλη φύλλου εργασίας και, στη συνέχεια, να εισαγάγετε τα νέα ονόματα αρχείων με τα οποία θέλετε να αντικαταστήσετε. Για να εμφανίσετε γρήγορα όλα τα αρχεία στο φύλλο εργασίας, μπορείτε να χρησιμοποιήσετε το Kutools για Excel'S Λίστα ονομάτων αρχείων χρησιμότητα.

Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής :( Δωρεάν λήψη του Kutools για Excel τώρα )

1. Κλίκ Kutools Plus > Εισαγωγή εξαγωγή > Λίστα ονομάτων αρχείων, δείτε το στιγμιότυπο οθόνης:

2. Στην Λίστα ονομάτων αρχείων , κάντε κλικ στην επιλογή doc-rename-multiple-files-1 για να επιλέξετε το φάκελο αρχείων που θέλετε να παραθέσετε τα αρχεία και, στη συνέχεια, κάντε κλικ στο κουμπί Όλα τα αρχεία από το Τύπος αρχείων, δείτε το στιγμιότυπο οθόνης:

doc-rename-multiple-files-1

3. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, όλα τα ονόματα αρχείων έχουν καταχωριστεί σε μια στήλη ενός νέου φύλλου εργασίας, καθώς και ορισμένα χαρακτηριστικά αρχείου, και τώρα, μπορείτε να διαγράψετε άλλες ανεπιθύμητες στήλες και να αφήσετε μόνο το Όνομα αρχείου στήλη, δείτε το στιγμιότυπο οθόνης:

doc-rename-multiple-files-1

Κάντε κλικ για να μάθετε περισσότερα σχετικά με αυτήν τη δυνατότητα λίστας ονόματος αρχείου…

Δωρεάν λήψη του Kutools για Excel τώρα


Αφού καταχωρίσετε όλα τα πρωτότυπα ονόματα αρχείων σε μία στήλη Α και θα πρέπει να πληκτρολογήσετε νέα ονόματα αρχείων στη στήλη Β όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:

doc-rename-multiple-files-1

Και εδώ θα μιλήσω για έναν κωδικό VBA που μπορεί να σας βοηθήσει να αντικαταστήσετε τα παλιά ονόματα αρχείων με τα νέα ονόματα αρχείων ταυτόχρονα. Κάντε τα παρακάτω βήματα:

1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Παράθυρο Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο Παράθυρο ενότητας.

Κωδικός VBA: Μετονομασία πολλών αρχείων σε ένα φάκελο

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. Αφού επικολλήσετε τον κωδικό, πατήστε F5 κλειδί για να εκτελέσετε αυτόν τον κωδικό, και στο Αναζήτηση παράθυρο, επιλέξτε το φάκελο στον οποίο θέλετε να αλλάξετε τα ονόματα αρχείων, δείτε το στιγμιότυπο οθόνης:

doc-rename-multiple-files-1

4. Και στη συνέχεια κάντε κλικ στο κουμπί OK, όλα τα παλιά ονόματα αρχείων έχουν αντικατασταθεί από τα νέα ονόματα αρχείων αμέσως. Δείτε στιγμιότυπα οθόνης:

doc-rename-multiple-files-1 2 doc-rename-multiple-files-1

:

1. Όταν αναγράφετε τα παλιά και τα νέα ονόματα αρχείων σας, πρέπει να συμπεριλαμβάνεται η επέκταση αρχείου.

2. Στον παραπάνω κώδικα, η αναφορά Α: Α υποδεικνύει την παλιά λίστα ονομάτων αρχείων που θέλετε να μετονομάσετε και την αναφορά B περιέχει τα νέα ονόματα αρχείων που θέλετε να χρησιμοποιήσετε, μπορείτε να τα αλλάξετε ανάλογα με τις ανάγκες σας


Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

Σχετικά άρθρα:

Πώς να δημιουργήσετε φύλλα εργασίας ακολουθίας από μια σειρά κελιών στο Excel;

Πώς να μετονομάσετε πολλά φύλλα εργασίας στο Excel;

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (37)
No ratings yet. Be the first to rate!
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
This comment was minimized by the moderator on the site
Thank you so much for your information. It was really nice!
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