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

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

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

1. في Excel، اضغط على مفتاح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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 مفتاح، ثم ستظهر نافذة حوار لتحديد الخلية التي تريد وضع أسماء الصور فيها.

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

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

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

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

هل ترغب في الحصول على زيادة في الراتب ووقت كبير لتقضيه مع عائلتك؟ Office Tab يعزز كفاءتك بنسبة 50% أثناء العمل على Microsoft Office الآن من غير المعقول، العمل على مستندين أو أكثر أصبح أسهل وأسرع من العمل على مستند واحد. مقارنة بالمتصفحات المعروفة، الأداة ذات التبويبات في Office Tab هي أكثر قوة وكفاءة. يقلل من مئات النقرات بالماوس والكتابة على لوحة المفاتيح يومياً لك، قل وداعاً الآن لآلام اليد بسبب الماوس. إذا كنت تعمل عادةً على عدة مستندات، فإن Office Tab سيكون موفرًا رائعًا للوقت بالنسبة لك. 30-day نسخة تجريبية مجانية، لا حاجة لبطاقة ائتمان. اقرأ المزيدتحميل مجاني الآن

هناك أداة - قائمة أسماء الملفات في Kutools لـ Excel، والتي يمكن أن

>> سرد جميع أسماء الملفات بجميع الصيغ في مجلد في ورقة جديدة;

>> سرد أسماء الملفات بصيغة واحدة أو عدة صيغ محددة في Excel;

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

تجربة مجانية قل وداعًا لآلام اليد بسبب استخدام الفأرة والانزلاق الغضروفي الآن

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

تعامل بسهولة مع 1500 سيناريوهات العمل، لا حاجة لضياع الوقت في البحث عن حلول، ووفر الكثير من الوقت للاستمتاع بحياتك. قم بتحسين 80% إنتاجية أكثر من 110000 شخص فعال يوميًا، وبكل تأكيد أنت منهم. لم تعد مضطرًا للتعذيب بالصيغ المعقدة وVBA، أعطِ عقلك قسطًا من الراحة ومزاج عمل ممتع. 30- يوم تجربة مجانية بكامل الميزات، استرداد الأموال خلال 30- يوم دون الحاجة إلى ذكر الأسباب. جسم أفضل يخلق حياة أفضل.

اقرأ المزيد تحميل الآن

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

1. قم بتفعيل المصنف الذي تريد سرد أسماء الملفات فيه، ثم انقر Kutools Plus > استيراد/تصدير > قائمة أسماء الملفات.

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

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

حدد الخيار جميع الملفات، وسيتم سرد جميع أسماء الملفات بجميع الصيغ في المجلد المحدد

حدد الخيار شائع، واختر الصيغة المحددة التي تريد سرد أسماء الملفات منها من القائمة المنسدلة، ثم سيتم سرد جميع أسماء الملفات للصيغة التي اخترتها من القائمة المنسدلة

حدد الخيار تحديد، ثم اكتب امتدادات الملفات (باستخدام فاصلة لفصلها) التي تريد سرد أسماء الملفات لها في مربع النص، ثم سيتم سرد أسماء الملفات فقط بالامتدادات المدخلة في Excel

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

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

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

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