Note: The other languages of the website are Google-translated. Back to English

كيف تسرد أسماء الصور / أسماء الملفات للمجلد بسرعة إلى خلايا 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!


فرز التعليقات حسب
التعليقات (10)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن أن يكون هناك خطأ ما في الكود؟ لأنه يعرض المجلدات المليئة بالصور (.png) على أنها فارغة عندما تسحب المربع لتحديد الصور.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن أن يكون هناك خطأ ما في الكود؟ يعرض مستكشف الملفات مجلدي المليء بالصور (.png) على أنه فارغ.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كنت أعاني من نفس المشكلة ، في النص ، حيث توجد امتدادات الملف المختلفة التي ستنتقل إليها ، يجب عليك رسملة امتداد الملف الذي يبحث عنه ، على سبيل المثال ، لقد قلت إن ملفاتك "IFY" ، رسملة IE ".PNG" قد تنجح.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الآن يعمل بالنسبة لي. شكرًا!!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية تصدير صورة باسم ملف معين في Excel.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
وفقًا للكود أعلاه ، أحصل على اسم الصور بترتيب تصاعدي ، ولكن المسار الذي يتم فيه وضع الصور يتم في زيادة رقمية.

يرجى اقتراح كيف يمكنني الاحتفاظ بنفس التنسيق.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مدهش! شكرا لك للمشاركة!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
في Libreoffice Calc ، أستخدم وظيفة استيراد قائمة من الملفات إلى صفوف / أعمدة جدول Calc ، عبر Macro واستنادًا إلى معايير معينة - لقد قمت بإنشاء زر على شريط الأدوات لهذا الماكرو المحدد ، وبعد الضغط عليه ، حدد مجلدًا ، وسيتم إدراج قائمة الصور على الفور في مستند جديد. كيف تجعل الأمر سهلاً قدر الإمكان في Excel؟ لدي الكثير من المجلدات التي تحتوي على صورة واحدة أو أكثر وأحتاج إلى:
> إذا كان المجلد يحتوي على صورة واحدة ، فأنا أحتاجها في سطر جديد في Excel.
> إذا كان المجلد يحتوي على المزيد من الصور ، يكون الأول على سطر جديد والثاني إما:
- بجوار الأول في نفس الصف (في عمود واحد) ، مفصولة بالحرف | (مثال: photo 1.jpeg | photo 2.jpeg)
- أو وضع أسمائهم في الأعمدة (حتى بدون الحرف |) (سيكون الخيار الأول أفضل ، لكن الخيار الثاني كافٍ أيضًا)

هذه هي صور المنتج التي أحتاج إلى استيراد أسمائها إلى Woocommerce - عبر ملف csv.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا على هذا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يا! هذا سريع جدا وشكرا
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL