كيف يمكن إعادة تسمية عدة ملفات من مجلد باستخدام Excel؟
قد يعاني معظمُنا من هذه المشكلة، حيث نحتاج إلى إعادة تسمية ملفات متعددة في مجلدٍ ما، وستُجنّنا إعادة تسمية أسماء الملفات واحدًا تلو الآخر إذا كان هناك مئات أو آلاف الملفات في ذلك المجلد. هل هناك أي وظائف جيدة تساعدنا في تنفيذ هذه المهمة؟
الخطوة 1: إدراج جميع أسماء الملفات من مجلد معيّن في ورقة العمل باستخدام Kutools لـ Excel
الخطوة 2: إعادة تسمية ملفات متعددة من مجلد في Excel باستخدام كود VBA
إدراج جميع أسماء الملفات من مجلد معيّن في ورقة العمل باستخدام Kutools لـ Excel
إذا كانت لديك عدة ملفات ترغب في إعادة تسميتها، يمكنك أولًا سرد أسماء الملفات القديمة في عمود من ورقة العمل، ثم إدخال الأسماء الجديدة التي تريد استبدالها بها. ولسرد جميع الملفات بسرعة في ورقة العمل، يمكنك استخدام أداةKutools لـ Excel’s قائمة أسماء الملفات.
بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية:()تنزيل مجاني لـ Kutools لـ Excel الآن)
1. انقرKUTOOLS PLUS > استيراد/تصدير > قائمة أسماء الملفات، انظر لقطة الشاشة:
2. في مربع حوارقائمة أسماء الملفات، انقر على زر
لاختيار مجلد الملفات الذي تريد سرد محتوياته، ثم اخترجميع الملفاتمن قائمةنوع الملف. انظر لقطة الشاشة:
3. بعد ذلك، انقر على زرموافق، وسيتم عرض جميع أسماء الملفات في عمود ضمن ورقة عمل جديدة، إلى جانب بعض خصائص الملفات. الآن، يمكنك حذف الأعمدة غير المرغوبة والاحتفاظ فقط بعموداسم الملف. انظر لقطة الشاشة:
انقر لمعرفة المزيد عن ميزة قائمة أسماء الملفات هذه…
تنزيل مجاني لـ Kutools لـ Excel الآن
إعادة تسمية ملفات متعددة من مجلد في Excel باستخدام كود VBA
بعد سرد جميع أسماء الملفات الأصلية في العمود A، يجب عليك كتابة أسماء الملفات الجديدة في العمود B كما هو موضح في لقطة الشاشة التالية:
وسأعرض لك هنا كود 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. بعد ذلك، انقر علىموافق، وسيتم استبدال جميع أسماء الملفات القديمة بأسماء الملفات الجديدة فورًا. انظر لقطات الشاشة:
 |  |  |
ملاحظات:
1. عند سرد أسماء الملفات القديمة والجديدة، تأكد من تضمين امتداد الملف.
2. في الكود أعلاه، يشير المرجعA:A إلى أسماء الملفات القديمة التي تريد إعادة تسميتها، بينما يحتوي المرجعB على أسماء الملفات الجديدة التي ترغب في استخدامها، ويمكنك تعديلها بحسب احتياجاتك.
عرض توضيحي: إعادة تسمية ملفات متعددة من مجلد في Excel
مقالات ذات صلة:
كيف يمكن إنشاء ورقة عمل متتابعة من نطاق خلايا في Excel؟
كيف يمكنك إعادة تسمية أوراق عمل متعددة في Excel بسهولة؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل