انتقل إلى المحتوى الرئيسي

كيف تسرد أسماء الصور / أسماء الملفات للمجلد بسرعة إلى خلايا Excel؟

في هذا البرنامج التعليمي ، سأقدم بعض الحيل حول سرد جميع أسماء الصور أو أسماء الملفات لمجلد معين في ورقة Excel بسرعة كما تظهر لقطة الشاشة.

الإنتقال السريع

سرد أسماء الصور لمجلد في Excel باستخدام VBA
سرد أسماء الصور أو أسماء ملفات التنسيق المحددة لمجلد في Excel مع قائمة اسم الملف
تنزيل ملف نموذج

اسم صورة قائمة المستندات 1

سرد أسماء الصور لمجلد في Excel باستخدام VBA

في Excel ، لا توجد وظيفة مضمنة يمكنها تلقائيًا سرد جميع أسماء الصور للمجلد الذي تختاره في خلية من ورقة ، ولكن لدي هنا رمز VBA الذي يمكن أن يساعدك في حل هذه المهمة بسرعة.

1. في Excel ، ثم اضغط على + مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في النافذة المنبثقة ، انقر فوق إدراج > وحدة لإنشاء برنامج نصي جديد للوحدة النمطية.

3. انسخ الكود أدناه والصقه في نافذة البرنامج النصي للوحدة النمطية الجديدة.

Sub PictureNametoExcel()
'UpdatebyExtendoffice 
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

4. صحافة F5 مفتاح ، ثم ينبثق مربع حوار لتحديد خلية لوضع أسماء الصور.
اسم صورة قائمة المستندات 1

5. انقر OK لمواصلة تحديد المجلد الذي تريده لإدراج أسماء الصور في مربع الحوار "استعراض".
اسم صورة قائمة المستندات 3

6. انقر OK، الآن تم إدراج جميع أسماء الصور في المجلد المحدد في Excel.
اسم صورة قائمة المستندات 13

ملحوظة: في كود VBA ، يمكنك jpg / png /… في سلسلة التعليمات البرمجية إذا كان InStr (1، xFileName، ".jpg") + InStr (1، xFileName، ".png") + InStr (1، xFileName، ".img") + InStr (1، xFileName، ".ioc") + InStr (1، xFileName، ".bmp") > 0 ثم إلى امتداد الملف الذي تحتاجه ، على سبيل المثال ، إذا كنت ترغب في سرد ​​أسماء ملفات الملف بتنسيق doc ، فقم فقط بتغيير سلسلة التعليمات البرمجية إلى إذا كان InStr (1، xFileName، ".doc")> 0 ثم.

إذا كنت تحتاج عادةً إلى إدراج اسم ملف واحد أو جميع التنسيقات لمجلد في خلية Excel في عملك اليومي ، فإن الكود معقد وليس من السهل التعامل معه ، ولكن بالطريقة التالية ، يمكنك حل هذه المهمة بسرعة.


بعد التمرير

هل ترغب في الحصول على زيادة في الأجور وكثير من الوقت لمرافقة العائلة؟

يعمل Office Tab على تحسين كفاءتك بنسبة 50٪ في Microsoft Office الذي يعمل الآن

لا يمكن تصديق أن العمل في مستندين أو أكثر أسهل وأسرع من العمل في مستند واحد.

بالمقارنة مع المتصفحات المعروفة ، فإن الأداة المبوبة في Office Tab أكثر قوة وفعالية.

قلل مئات النقرات على الماوس وكتابة لوحة المفاتيح كل يوم من أجلك ، وداعًا يد الماوس الآن.

إذا كنت تعمل عادةً في مستندات متعددة ، فسيوفر Office Tab وقتًا رائعًا بالنسبة لك.

30- يوم تجريبي مجاني، بطاقة الإئتمان غير مطالب بها.

تفاصيل أكثرتحميل مجاني الآن


سرد أسماء الصور أو أسماء ملفات التنسيق المحددة لمجلد في Excel مع قائمة اسم الملف

هنا فائدة - قائمة اسم الملف in كوتولس ل إكسيل، والتي يمكن

>> قائمة بجميع أسماء الملفات في جميع تنسيقات الملفات لمجلد في ورقة جديدة ؛

>> سرد أسماء الملفات في تنسيق واحد أو عدة تنسيقات ملفات تحددها لبرنامج Excel ؛

>> قائمة بأسماء الملفات بما في ذلك المجلدات الفرعية والملفات والمجلدات المخفية لبرنامج Excel.

قل وداعا ليد الفأر وداء الفقار العنقي الآن

300 أداة متقدمة من Kutools for Excel حل 80% مهام Excel في ثوانٍ ، تسحبك من آلاف النقرات بالماوس.

تعامل بسهولة مع 1500 سيناريو عمل ، لا داعي لإضاعة الوقت في البحث عن حلول ، لديك الكثير من الوقت للاستمتاع بحياتك.

قم بتحسين إنتاجية 80٪ لأكثر من 110000 شخص ذو كفاءة عالية كل يوم ، بالطبع بما فيهم أنت.

لم تعد تتعذب من الصيغ المؤلمة و VBA ، امنح عقلك راحة ومزاج عمل بهيج.

نسخة تجريبية مجانية مدتها 30 يومًا مع ميزات كاملة، واسترداد الأموال لمدة 30 يومًا دون أسباب.

الجسم الأفضل يصنع حياة أفضل.

بعد التثبيت المجاني Kutools for Excel ، يرجى القيام بما يلي:

1. قم بتمكين المصنف الذي تريده لسرد أسماء الملفات ، ثم انقر فوق كوتولس بلس > استيراد و تصدير > قائمة اسم الملف.
اسم صورة قائمة المستندات 4

2. في ال قائمة اسم الملف الحوار ، أولا ، انقر فوق  اسم صورة قائمة المستندات 5 لتحديد مجلد تريد سرد أسماء الملفات الخاصة به ، ثم يمكنك تحديد مربعات الاختيار الخاصة به تضمين الملفات في الدلائل الفرعية و تشمل الملفات والمجلدات المخفية ما تحتاج إليه.
اسم صورة قائمة المستندات 6

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

تحقق جميع الملفات الخيار ، فسوف يسرد جميع أسماء الملفات في جميع تنسيقات الملفات في المجلد المحدد
اسم صورة قائمة المستندات 7
تحقق مشترك الخيار ، وحدد تنسيق الملف المحدد الذي تريده لإدراج أسماء الملفات من القائمة المنسدلة ، ثم يسرد جميع أسماء الملفات الخاصة بتنسيق الملف الذي تختاره في القائمة المنسدلة
اسم صورة قائمة المستندات 8
تحقق تحديد الخيار ، ثم اكتب امتدادات الملفات (باستخدام الفاصلة للفصل بينها) تريد سرد أسماء الملفات في مربع النص ، ثم سيتم سرد أسماء الملفات فقط مع إدخال امتدادات الملفات في Excel
اسم صورة قائمة المستندات 9

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

اسم صورة قائمة المستندات 10 اسم صورة قائمة المستندات 11

5. انقر Ok، سيتم إنشاء ورقة جديدة لسرد أسماء الملفات وبعض معلومات الملف.
اسم صورة قائمة المستندات 12

تلميح: إذا كنت ترغب في إدراج جميع أسماء الأوراق في Excel ، يمكنك تطبيق Kutools for Excel ' قم بإنشاء قائمة بأسماء الأوراق الأداة المساعدة ، سيتم إنشاء ورقة جديدة لسرد جميع أسماء الأوراق القابلة للربط.
إنشاء قائمة اسم الورقة

كوتولس ل إكسيل: + أدوات يدوية مفيدة ، وتبسيط المهام المعقدة في Excel في بضع نقرات.


تنزيل نموذج ملف

عينة


كيف تجعلك متميزًا بين الحشود ، وتعمل بسهولة وتستمتع بالحياة على مهل?

ستعمل Kutools for Excel على تحسين كفاءتك بنسبة 80% كل يوم، وتجعل لديك الكثير من الوقت لمرافقتك مع العائلة والاستمتاع بالحياة.

300 أداة متقدمة حل 80% مشاكل Excel ، لم تعد تكافح للبحث عن حلول ، وإكمال العمل بسهولة أكبر.

تعامل بسهولة مع 1500 سيناريوهات Excel ، وفر ساعة واحدة على الأقل لك كل يوم.

كن خبيرًا في برنامج Excel في 5 دقائق ، واكسب اعتراف الناس وفرصة الترقية.

تعمل الأدوات المساعدة بنقرة واحدة على معالجة الدُفعات ، وتتيح لك تجنب آلاف النقرات بالماوس ، وداعًا بيد الماوس.

تخلص من صيغ الحفظ عن ظهر قلب و VBA المعقدة ، وأعطي راحة لعقلك.

أكثر من 110000 من الضباط ذوي الكفاءة العالية واختيار 300+ من الشركات المشهورة عالميًا.

خذ 39 دولارًا فقط ولكن تدريبًا لأشخاص آخرين بقيمة تزيد عن 4000 دولار

تجربة مجانية لمدة 30 يومًا دون أي قيود، واسترداد الأموال بالكامل خلال 30 يومًا دون أي أسباب.


أدوات الإنتاجية الموصى بها

علامة تبويب Office - الاستعراض المبوب وتحرير وإدارة المستندات في Microsoft Office 2019-2003 و Office 365


علامة تبويب المكتب

وظيفة إضافية احترافية لتسريع Excel 2019-2007 ، تعمل على تقليص مهام الساعات إلى ثوانٍ

تتضمن هذه الوظيفة الإضافية العشرات من المجموعات المهنية ، مع أكثر من 300 خيارًا ستعمل على أتمتة معظم مهامك اليومية في Excel ، وتزيد من إنتاجيتك بنسبة 50٪ على الأقل. مثل مجموعات الاختيارات بنقرة واحدة والتحويلات المجمعة.
الآن هي فرصتك لتسريع نفسك مع Kutools for Excel!


Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hey! This is super quick and thanks
This comment was minimized by the moderator on the site
Thanks so much for this!
This comment was minimized by the moderator on the site
In Libreoffice Calc I use the function of importing a list of files into the rows / columns of a Calc table, via Macro and based on certain criteria - I have created a button on the toolbar for this particular macro, and after pressing it, I select a folder, and the list of images is immediately inserted into a new document. How to make it as easy as possible in Excel? I have a lot of folders that contain 1 or more images and I need to:
> If the folder contains 1 image, I need it to be on a new line in Excel.
> If the folder contains more images, the first being on a new line and the second either:
- next to the first in the same row (in one column), separated by the character | (example: photo 1.jpeg | photo 2.jpeg)
- or to have their names in the columns (even without the | character) (the first option would be better, but the second is enough as well)

These are the product images whose names I need for import into Woocommerce - via a csv file.
This comment was minimized by the moderator on the site
Amazing! Thank you for sharing!
This comment was minimized by the moderator on the site
Hi,
As per the above code I am getting the the images name in an incrementing order, however the path where the images are being placed are in numeric incrementation.

Kindly suggest how I can keep the same formatting.
This comment was minimized by the moderator on the site
How to export an image with specific file name in excel.
This comment was minimized by the moderator on the site
I WAS HAVING THE SAME PROBLEM TANNER, IN THE SCRIPT WHERE IT HAS THE DIFFERENT FILE EXTENSIONS ITS GOING TO GRAB,YOU HAVE TO CAPITALIZE THE FILE EXTENSION ITS LOOKING FOR, FOR EXAMPLE, YOU SAID YOUR FILES ARE ".png", WELL IF YOU CAPITALIZE IT I.E ".PNG" IT MAY WORK.
This comment was minimized by the moderator on the site
Now it works for me. Thanks!!!
This comment was minimized by the moderator on the site
Is it possible that there is something wrong with the code? The file explorer is showing my folder full of images (.png) as empty.
This comment was minimized by the moderator on the site
Is it possible something is wrong with the code? Because it shows folders full of images (.png) as empty when it pulls up the box to select the photos.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations