Πώς να μετονομάσετε πολλά αρχεία ενός φακέλου στο Excel;
Ίσως οι περισσότεροι από εμάς να υποφέρουμε με αυτό το πρόβλημα που πρέπει να μετονομάσουμε πολλά αρχεία σε ένα φάκελο, για να μετονομάσουμε τα ονόματα αρχείων ένα προς ένα θα μας κάνουν τρελούς αν υπάρχουν εκατοντάδες ή χιλιάδες αρχεία σε αυτόν τον φάκελο. Υπάρχουν καλές λειτουργίες για να αντιμετωπίσουμε αυτό το έργο;
Λίστα όλων των ονομάτων αρχείων από έναν συγκεκριμένο φάκελο στο φύλλο εργασίας με kutools για Excel
Μετονομάστε πολλά αρχεία ενός φακέλου στο Excel με κωδικό VBA
Λίστα όλων των ονομάτων αρχείων από έναν συγκεκριμένο φάκελο στο φύλλο εργασίας με kutools για Excel
Εάν υπάρχουν πολλά αρχεία που θέλετε να μετονομάσετε, πρώτα, μπορείτε να παραθέσετε τα παλιά ονόματα αρχείων σε μια στήλη φύλλου εργασίας και, στη συνέχεια, να εισαγάγετε τα νέα ονόματα αρχείων με τα οποία θέλετε να αντικαταστήσετε. Για να εμφανίσετε γρήγορα όλα τα αρχεία στο φύλλο εργασίας, μπορείτε να χρησιμοποιήσετε το Kutools για Excel'S Λίστα ονομάτων αρχείων χρησιμότητα.
Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής :( Δωρεάν λήψη του Kutools για Excel τώρα )
1. Κλίκ Kutools Plus > Εισαγωγή εξαγωγή > Λίστα ονομάτων αρχείων, δείτε το στιγμιότυπο οθόνης:
2. Στην Λίστα ονομάτων αρχείων , κάντε κλικ στην επιλογή για να επιλέξετε το φάκελο αρχείων που θέλετε να παραθέσετε τα αρχεία και, στη συνέχεια, κάντε κλικ στο κουμπί Όλα τα αρχεία από το Τύπος αρχείων, δείτε το στιγμιότυπο οθόνης:
3. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, όλα τα ονόματα αρχείων έχουν καταχωριστεί σε μια στήλη ενός νέου φύλλου εργασίας, καθώς και ορισμένα χαρακτηριστικά αρχείου, και τώρα, μπορείτε να διαγράψετε άλλες ανεπιθύμητες στήλες και να αφήσετε μόνο το Όνομα αρχείου στήλη, δείτε το στιγμιότυπο οθόνης:
Κάντε κλικ για να μάθετε περισσότερα σχετικά με αυτήν τη δυνατότητα λίστας ονόματος αρχείου…
Δωρεάν λήψη του Kutools για Excel τώρα
Μετονομάστε πολλά αρχεία ενός φακέλου στο Excel με κωδικό VBA
Αφού καταχωρίσετε όλα τα πρωτότυπα ονόματα αρχείων σε μία στήλη Α και θα πρέπει να πληκτρολογήσετε νέα ονόματα αρχείων στη στήλη Β όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:
Και εδώ θα μιλήσω για έναν κωδικό 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 κλειδί για να εκτελέσετε αυτόν τον κωδικό, και στο Αναζήτηση παράθυρο, επιλέξτε το φάκελο στον οποίο θέλετε να αλλάξετε τα ονόματα αρχείων, δείτε το στιγμιότυπο οθόνης:
4. Και στη συνέχεια κάντε κλικ στο κουμπί OK, όλα τα παλιά ονόματα αρχείων έχουν αντικατασταθεί από τα νέα ονόματα αρχείων αμέσως. Δείτε στιγμιότυπα οθόνης:
:
1. Όταν αναγράφετε τα παλιά και τα νέα ονόματα αρχείων σας, πρέπει να συμπεριλαμβάνεται η επέκταση αρχείου.
2. Στον παραπάνω κώδικα, η αναφορά Α: Α υποδεικνύει την παλιά λίστα ονομάτων αρχείων που θέλετε να μετονομάσετε και την αναφορά B περιέχει τα νέα ονόματα αρχείων που θέλετε να χρησιμοποιήσετε, μπορείτε να τα αλλάξετε ανάλογα με τις ανάγκες σας
Επίδειξη: Μετονομασία πολλών αρχείων ενός φακέλου στο Excel
Σχετικά άρθρα:
Πώς να δημιουργήσετε φύλλα εργασίας ακολουθίας από μια σειρά κελιών στο Excel;
Πώς να μετονομάσετε πολλά φύλλα εργασίας στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!