كيفية إعادة تسمية ملفات متعددة في مجلد باستخدام 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؟