نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية إعادة تسمية ملفات متعددة من مجلد في إكسيل؟

قد يكون معظمنا يعاني من هذه المشكلة التي نحن بحاجة إلى إعادة تسمية ملفات متعددة في مجلد، لإعادة تسمية أسماء واحدة تلو الأخرى سوف تجعلنا مجنون إذا كان هناك مئات أو آلاف الملفات في هذا المجلد. هل هناك أي مهام جيدة لنا للتعامل مع هذه المهمة؟

إدراج كافة أسماء الملفات من مجلد معين في ورقة عمل مع كوتولس ل إكسيل

إعادة تسمية ملفات متعددة من مجلد في إكسيل مع التعليمات البرمجية فبا



إذا كانت هناك ملفات متعددة تريد إعادة تسميتها أولا يمكنك إدراج أسماء الملفات القديمة في عمود من ورقة العمل ثم قم بإدخال أسماء الملفات الجديدة التي تريد استبدالها. لسرد كافة الملفات بسرعة في ورقة العمل، يمكنك استخدام كوتولس ل إكسيلالصورة قائمة اسم الملف خدمة.

كوتولس ل إكسيل : مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومك.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام على النحو التالي :( تحميل مجانا كوتولس ل إكسيل الآن )

1. انقر مشروع > استيراد / تصدير > قائمة اسم الملف، انظر الصورة:

DOC-إعادة تسمية-متعددة ملفات 1

2. في قائمة اسم الملف مربع الحوار، انقر فوق DOC-إعادة تسمية-متعددة ملفات 1 زر لاختيار مجلد الملف الذي تريد إدراج الملفات ثم انقر فوق جميع الملفات من نوع الملفات، انظر الصورة:

DOC-إعادة تسمية-متعددة ملفات 1

3. ثم اضغط OK زر، تم إدراج كافة أسماء الملفات في عمود من ورقة عمل جديدة، فضلا عن بعض سمات الملف، والآن، يمكنك حذف الأعمدة غير المرغوب فيها الأخرى وترك فقط اسم الملف العمود، انظر الصورة:

DOC-إعادة تسمية-متعددة ملفات 1

انقر لمعرفة المزيد حول ميزة قائمة اسم الملف هذه ...

تحميل مجانا كوتولس ل إكسيل الآن


بعد إدراج جميع أسماء الملفات الأصلية في عمود A، ويجب كتابة أسماء ملفات جديدة في العمود B كما يظهر لقطة الشاشة التالية:

DOC-إعادة تسمية-متعددة ملفات 1

وهنا سوف أتحدث عن رمز فبا التي قد تساعدك على استبدال أسماء الملفات القديمة مع أسماء الملفات الجديدة في وقت واحد. يرجى اتباع الخطوات التالية:

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 مفتاح لتشغيل هذا الرمز، وفي صور جاهزة نافذة، حدد المجلد الذي تريد تغيير أسماء الملفات في، انظر الصورة:

DOC-إعادة تسمية-متعددة ملفات 1

4. ثم انقر فوق OK، تم استبدال أسماء الملفات القديمة بأسماء الملفات الجديدة فورا. انظر لقطات الشاشة:

DOC-إعادة تسمية-متعددة ملفات 1  2 DOC-إعادة تسمية-متعددة ملفات 1

الملاحظات:

1. عند إدراج أسماء الملفات القديمة والجديدة، يجب تضمين امتداد الملف.

2. في التعليمات البرمجية أعلاه، المرجع A: A يشير إلى قائمة أسماء الملفات القديمة التي تريد إعادة تسميتها، والمرجع B يحتوي على أسماء الملفات الجديدة التي تريد استخدامها، يمكنك تغييرها حسب حاجتك


كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


مقالات ذات صلة:

كيفية إنشاء أوراق عمل تسلسل من مجموعة من الخلايا في إكسيل؟

كيفية إعادة تسمية أوراق عمل متعددة في إكسيل؟


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ali · 4 months ago
    Hi there
    It does not work with unicode file names. How can it be done fine?
  • To post as a guest, your comment is unpublished.
    Jayakumar · 1 years ago
    Hi,

    I'm trying to use the code for renaming the non extension files to files with extension. it doesn't work. It works fine with files which have extension already.

    Thanks
    Jay
  • To post as a guest, your comment is unpublished.
    cda · 1 years ago
    Thank you so much...
  • To post as a guest, your comment is unpublished.
    Gee Kay · 1 years ago
    Hello, some of the files have same name. Scripts skip those files. Is there a way to modify the script so it adds a number 1, 2, 3 and so on for every duplicate name?
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello, Kay,
      To rename the files based on duplicate new names with name-1,name-2, the following VBA code may help you, please try it.

      Note: After pasting this code, you should reference the Microsoft Scripting Runtime option in the References-VBAProject dialog box as below screenshot shown.

      Sub RenameFiles()
      Dim xDir As String
      Dim xFile As String
      Dim xVal As String
      Dim xRow As Long
      Dim xCount As Long
      Dim xTemp As Long
      Dim xDictionary As New Dictionary
      Application.ScreenUpdating = False
      On Error Resume Next
      With Application.FileDialog(msoFileDialogFolderPicker)
      .AllowMultiSelect = False
      If .Show = -1 Then
      xDir = .SelectedItems(1)
      xFile = Dir(xDir & Application.PathSeparator & "*")
      Do Until xFile = ""
      xRow = 0
      xRow = Application.Match(xFile, Range("A:A"), 0)
      If xRow > 0 Then
      xCount = 0
      xVal = Cells(xRow, "B").Value
      If Not xDictionary.Exists(xVal) Then
      xDictionary.Add xVal, xCount
      Else
      xDictionary.Item(xVal) = xDictionary.Item(xVal) + 1
      xTemp = InStrRev(xVal, ".")
      Cells(xRow, "B").Value = Mid(xVal, 1, xTemp - 1) & "-" & CStr(xDictionary.Item(xVal)) & Mid(xVal, xTemp)
      End If
      Name xDir & Application.PathSeparator & xFile As _
      xDir & Application.PathSeparator & Cells(xRow, "B").Value
      End If
      xFile = Dir
      Loop
      End If
      End With
      Application.ScreenUpdating = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Hemant · 1 years ago
    I am following the same process but couldn't succeeded in renaming the file i am also changing ("A:A") and ("B"). Is there any other valuve which i need to change in the code
  • To post as a guest, your comment is unpublished.
    Dee · 1 years ago
    I cant understand with range ( A:A) or (B) how to define that, thank you
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hi, Dee,

      As the note remind, the reference A:A indicates the old filenames list you want to rename, and reference B contains the new filenames that you want to use
      , as following screenshot shown:

      Hope this can help you, thank you!
  • To post as a guest, your comment is unpublished.
    Rasmus · 1 years ago
    I would like to rename multiple files from folders and subfolders. So im thinking a VBA code there looks at the path there is in the Column 'Containing Folder' (I Check the checkbox 'Include files in subdirectories') I am no where near good enough for coding VBA, but i look and try to understand. Thanks
  • To post as a guest, your comment is unpublished.
    Dave Koch · 2 years ago
    This is game changing. Thank you SO MUCH!!!
  • To post as a guest, your comment is unpublished.
    JonathanF · 2 years ago
    To rename the multiple files you can also check a software. Search on google- BatchRenameFiles Tool. Check the first search result.


    Thanks
    Jonathan F.
  • To post as a guest, your comment is unpublished.
    sanjit · 2 years ago
    hi, Amazing codes, has saved my hell lot of time.. thanks a ton..
  • To post as a guest, your comment is unpublished.
    aparna · 2 years ago
    i want to make combo of pictures for example i have 33 images and i want to create a combo of pictures with each other, please find attched i have 10000 more images so that i can create in a 1 click of multiple images.
    please call or email at caparnasingla@gmail.com
  • To post as a guest, your comment is unpublished.
    tulpan · 2 years ago
    I suggest to try KrojamSoft BatchRename
  • To post as a guest, your comment is unpublished.
    raju · 2 years ago
    I tried it for excel, it changes file type.Can you please provide me code for csv files rename.
  • To post as a guest, your comment is unpublished.
    Ronald · 2 years ago
    Dear all,

    Try KrojamSoft BatchRename for batch rename the files its very easy to use.
  • To post as a guest, your comment is unpublished.
    aparna · 2 years ago
    Thank you so much sir,
    God bless you!
  • To post as a guest, your comment is unpublished.
    yatin · 3 years ago
    Hi,

    I have more than 100 excel files which I have downloaded from a system and kept in the folder.
    All these files has a sheet named as [u][b]Content[/b][/u]. I want these excel files to be named using the text that is available in the Cell AA2 of the respective [b][u]Content[/u][/b] sheet. Such that the name in this Cell AA2 will be exactly the File name of that respective Excel file.
    all the files in the folder should get renamed in the same way.
    Please suggest a macro that can work in this way.
    • To post as a guest, your comment is unpublished.
      Franz Weber · 2 years ago
      Hi. Is your task already Solved. ? I can help if still unsolved. Pls mail me your task. Tx Franz
  • To post as a guest, your comment is unpublished.
    Dawnn · 3 years ago
    I successfully used the above instructions last year to rename files in half-a-dozen folders. It worked so well that I saved the instructions for future use. I've recently tried to use it again, but after pasting the macro above in the Module window when I hit F5 instead of getting a browser window to select the desired folder, I get a new dialog box prompting me for a Macro name. Any suggestions? I usually have about 3-4 times a year where I need to rename files this way, and I was very excited when it worked last year.
  • To post as a guest, your comment is unpublished.
    Nathan · 3 years ago
    Is it possible rename just a piece of a file name without declaring the full file name and extension in the excel sheet? i.e. change 123-yz.jpg to abc-yz.jpg but I only know that 123 needs changing to abc on every image in the folder?
  • To post as a guest, your comment is unpublished.
    |Richard · 4 years ago
    Surprised (a little) to see someone use the same syntax for naming vars (xDir, for example). It allows for exceptionally well named vars that don't conflict with system names (e.g., Dir or Date). I also use 'z' for global functions (e.g., zMsg, that returns true or false rather than vbOK or vbCancel) and 'y' for constants (e.g., yCR for vbNewline and yCR2 for two of them).
    Good work and good thinking on your part. You must be very smart!
  • To post as a guest, your comment is unpublished.
    Sushant Ghatage · 4 years ago
    How to rename files which contains chinese characters in name.
    Please help on it
  • To post as a guest, your comment is unpublished.
    removejoe · 4 years ago
    Nevermind, i figured it out. Thanks. " xRow = Application.Match(xFile, Range("C:C"), 11)"
  • To post as a guest, your comment is unpublished.
    removejoe · 4 years ago
    What do i need to modify in the code above if my old and new names do not start until Row 11. I changed this line "xRow = Application.Match(xFile, Range("C11:C5000"), 0)" but it didn't work.
  • To post as a guest, your comment is unpublished.
    Rafael · 4 years ago
    Dear all,

    How can I change FOLDERS the same way as shown above?

    Could you kindly help me with this issue?

    The question is: How to rename multiple FOLDERS of a folder in Excel?

    Kind regards!