كيفية إعادة تسمية ملفات متعددة لمجلد في إكسيل؟
قد يعاني معظمنا من هذه المشكلة التي نحتاجها لإعادة تسمية ملفات متعددة في مجلد ، وإعادة تسمية أسماء الملفات واحدة تلو الأخرى ستجعلنا مجانين إذا كان هناك مئات أو آلاف الملفات في هذا المجلد. هل هناك أي وظائف جيدة لنا للتعامل مع هذه المهمة؟
قم بسرد جميع أسماء الملفات من مجلد معين في ورقة العمل باستخدام kutools for Excel
أعد تسمية ملفات متعددة لمجلد في Excel برمز VBA
قم بسرد جميع أسماء الملفات من مجلد معين في ورقة العمل باستخدام kutools for Excel
إذا كانت هناك ملفات متعددة تريد إعادة تسميتها ، أولاً ، يمكنك إدراج أسماء الملفات القديمة في عمود من ورقة العمل ، ثم إدخال أسماء الملفات الجديدة التي تريد استبدالها. لسرد جميع الملفات بسرعة في ورقة العمل ، يمكنك استخدام ملحق كوتولس ل إكسيلالصورة قائمة اسم الملف خدمة.
بعد تثبيت كوتولس ل إكسيل، يرجى القيام بما يلي: تحميل مجاني Kutools لبرنامج Excel الآن )
1. انقر كوتولس بلس > استيراد و تصدير > قائمة اسم الملف، انظر لقطة الشاشة:
2. في قائمة اسم الملف مربع الحوار، انقر فوق لاختيار مجلد الملف الذي تريده لسرد الملفات ، ثم انقر فوق جميع الملفات من نوع الملفات، انظر لقطة الشاشة:
3. ثم اضغط OK زر ، تم إدراج جميع أسماء الملفات في قائمة في عمود بورقة عمل جديدة ، بالإضافة إلى بعض سمات الملفات ، والآن يمكنك حذف الأعمدة الأخرى غير المرغوب فيها وترك اسم الملف العمود ، انظر لقطة الشاشة:
انقر لمعرفة المزيد حول ميزة قائمة اسم الملف هذه ...
تحميل مجاني Kutools لبرنامج Excel الآن
أعد تسمية ملفات متعددة لمجلد في Excel برمز VBA
بعد إدراج جميع أسماء الملفات الأصلية في عمود واحد A ، يجب عليك كتابة أسماء ملفات جديدة في العمود B كما هو موضح في لقطة الشاشة التالية:
وهنا سأتحدث عن رمز VBA الذي قد يساعدك على استبدال أسماء الملفات القديمة بأسماء الملفات الجديدة مرة واحدة. يرجى اتباع الخطوات التالية:
1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. انقر إدراج > وحدة، ولصق الماكرو التالي في ملف نافذة الوحدة.
رمز فبا: إعادة تسمية ملفات متعددة في مجلد
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. في الكود أعلاه ، المرجع A: A يشير إلى قائمة أسماء الملفات القديمة التي تريد إعادة تسميتها والرجوع إليها B يحتوي على أسماء الملفات الجديدة التي تريد استخدامها ، يمكنك تغييرها حسب حاجتك
العرض التوضيحي: إعادة تسمية ملفات متعددة لمجلد في Excel
مقالات ذات صلة:
كيفية إنشاء أوراق عمل تسلسل من مجموعة من الخلايا في إكسيل؟
كيفية إعادة تسمية أوراق عمل متعددة في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!