كيفية إعادة تسمية ملفات متعددة في مجلد باستخدام Excel؟
قد يعاني معظمنا من هذه المشكلة حيث نحتاج إلى إعادة تسمية ملفات متعددة في مجلد، وإذا قمنا بإعادة تسمية الملفات واحدة تلو الأخرى فسيكون الأمر مرهقًا إذا كان هناك مئات أو آلاف الملفات في هذا المجلد. هل توجد وظائف جيدة يمكن أن تساعدنا في التعامل مع هذه المهمة؟
الخطوة 1: سرد جميع أسماء الملفات من مجلد معين في ورقة العمل باستخدام Kutools لـ Excel
الخطوة 2: إعادة تسمية ملفات متعددة في مجلد باستخدام كود VBA في Excel
سرد جميع أسماء الملفات من مجلد معين في ورقة العمل باستخدام Kutools لـ Excel
إذا كان لديك ملفات متعددة تريد إعادة تسميتها، يمكنك أولاً سرد أسماء الملفات القديمة في عمود من ورقة العمل، ثم إدخال أسماء الملفات الجديدة التي تريد استبدالها بها. لسرد جميع الملفات بسرعة في ورقة العمل، يمكنك استخدام أداة قائمة أسماء الملفات من Kutools لـ Excel.
بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي: ( تنزيل مجاني الآن Kutools لـ Excel )
1. انقر على Kutools Plus > استيراد وتصدير > قائمة أسماء الملفات، انظر إلى لقطة الشاشة:
2في قائمة أسماء الملفات مربع الحوار، انقر على 
زر اختيار المجلد الذي تريد سرد الملفات منه، ثم انقر على جميع الملفات من نوع الملف, انظر إلى لقطة الشاشة:
3. ثم انقر على زر موافق، سيتم سرد جميع أسماء الملفات في عمود من ورقة عمل جديدة، بالإضافة إلى بعض خصائص الملفات، والآن يمكنك حذف الأعمدة غير المرغوب فيها وترك عمود اسم الملف فقط، انظر إلى لقطة الشاشة:
انقر لمعرفة المزيد حول ميزة قائمة أسماء الملفات هذه…
تنزيل مجاني الآن Kutools لـ Excel
إعادة تسمية ملفات متعددة في مجلد باستخدام كود VBA في Excel
بعد سرد جميع أسماء الملفات الأصلية في العمود 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد