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

عند التعامل مع مجموعات من الصور أو الملفات، غالبًا ما تحتاج إلى إنشاء كتالوج أو قائمة مرجعية في Excel لمهمات مثل إدارة الجرد، أو إعداد التقارير، أو حتى للبحث السريع. لكن إدخال أسماء جميع الصور أو الملفات من مجلدٍ ما يدويًّا في ورقة Excel قد يستغرق وقتًا طويلاً ويؤدي إلى أخطاء—خاصةً إذا كان المجلد يحتوي عددًا كبيرًا من الملفات أو يُحدَّث بانتظام. لحسن الحظ، يوفّر Excel عدة طرق عملية—سواء كانت مدمجة أو عبر الإضافات أو البرامج النصية—لأتمتة هذه المهمة ورفع مستوى الدقة والكفاءة بشكل كبير.

يُقدّم هذا البرنامج التعليمي مجموعةً من التقنيات العملية لإدراج أسماء جميع الصور أو الملفات من مجلد معيّن بسرعة في ورقة عمل Excel، كما يظهر في لقطة الشاشة إلى اليمين. سواء كنت تعمل مع صور، مستندات، أو مزيج من أنواع الملفات، فإن الطرق الموضحة هنا ستساعدك على تبسيط سير عملك وتوفير وقتٍ ثمين. التنقّل السريع >إدراج أسماء الصور من مجلد في Excel باستخدام VBA >إدراج أسماء الصور أو نوع الملف معيّنة من مجلد في Excel باستخدام ميزة قائمة أسماء الملفات >إدراج جميع أسماء الملفات بالنسخ واللصق من مستعرض Windows >تلميح: عرض أسماء الملفات فقط (وليس المسارات الكاملة)

بشكل افتراضي، لا يوفّر Excel خيارًا مدمجًا لاستيراد أسماء الملفات أو الصور تلقائيًّا من مجلد على جهازك إلى ورقة العمل. لكن يمكنك استخدام ماكرو VBA بسيط لإدراج جميع ملفات الصور (أو ملفات بأنواع محددة أخرى) من مجلد معين مباشرةً في خلايا Excel. ويُعدّ هذا الحل مثاليًّا إذا كنت تحتاج إلى تنفيذ هذه المهمة بين الحين والآخر، أو تسعى إلى أعلى درجة من التخصيص، أو تفضّل تجنّب استخدام الإضافات الخارجية. كما أن هذه الطريقة تدعم امتدادات ملفات متنوعة غير الصور — كل ما عليك هو تعديل مرشّح الامتدادات في الكود وفقًا لاحتياجاتك.

طريقة VBA قوية، لكنها تتطلب تنفيذًا دقيقًا: إذ قد يؤدي أي تعديل غير صحيح في الكود إلى حدوث أخطاء. تأكد دائمًا من مراجعة مسار الملف ومرشّحات الامتدادات قبل تشغيل البرنامج النصي، واعلم أن التغييرات التي تطرأ على محتوى المجلد بعد إنشاء القائمة لن تُحدَّث تلقائيًّا في Excel دون إعادة تشغيل الكود. إليك كيفية استخدامها:

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

2. في النافذة المنبثقة، انقرإدراج > وحدة نمطيةلإضافة وحدة نمطية جديدة — وسيكون هذا هو المكان الذي ستلصق فيه كود VBA.

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 أو انقر زر التشغيل في نافذة VBA لتنفيذ البرنامج النصي. ستظهر نافذة منبثقة تطلب منك تحديد الخلية التي ترغب في إدراج أسماء الصور ضمن قائمة الأسماء الخاصة بها.

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

6. انقرموافق. سيتم إدراج جميع أسماء ملفات الصور (مع المسار الكامل) التي تطابق الامتدادات المذكورة في الكود (.jpg، .png، .img، .ioc، .bmp) من المجلد المحدد فورًا في الخلية التي اخترتها والخلايا الموجودة أسفلها.

ملاحظة:يمكنك تعديل كود VBA لاستهداف أنواع ملفات مختلفة عن طريق تحرير الامتدادات في الشرط: If InStr(1, xFileName, «.jpg») + ... > 0 Then. على سبيل المثال، لإدراج مستندات Word فقط، غيّر الشرط إلىIf InStr(1, xFileName, «.docx») > 0 Then. تأكد من تضمين النقطة قبل الامتداد (أي استخدم «.pdf» وليس «pdf»). ولإدراج أنواع ملفات متعددة، اجمعها باستخدام علامات الجمع كما هو موضح.

تذكيرات هامة:سيقوم حل VBA هذا بإدراج الملفات الموجودة فقط في المستوى العلوي من المجلد المختار؛ ولن يتم تضمين الملفات الموجودة داخل المجلدات الفرعية أو المجلدات المخفية، ما لم يُعدَّل الكود ليشمل الاستدعاء الذاتي (recursion).

بينما يوفّر حل VBA تخصيصًا ومرونة كبيرة، فإنه يتطلب تشغيل الماكرو في كل مرة ترغب فيها في تحديث قائمة الملفات. بالنسبة للمستخدمين الذين يسعون إلى سير عمل متكرر أو آلي — وخاصةً أولئك الذين لا يشعرون بالراحة عند التعامل مع الكود — فقد تكون طريقة الإضافة الموضّحة أدناه أكثر كفاءة.

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

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

• إدراج جميع الملفات من أي مجلد، بما يشمل كل امتدادات الملفات، في ورقة عمل جديدة لتتبُّعها أو تصنيفها بسهولة.
• تصفية القائمة وإدراج نوع الملف التي تحددها فقط، مثل الصور أو ملفات PDF أو أي امتدادات مخصصة.
• تضمين الملفات الموجودة في المجلدات الفرعية وعرض الملفات والمجلدات المخفية، مما يوفّر تقريرًا شاملاً حقًّا.

تجربة مجانيةودّع مشكلة يد الفأرة وانزلاق الفقرات العنقية الآن

أدوات Kutools المتقدمة لـ Excel البالغ عددها 300 أداة تُنفّذ80% من مهام إكسل في ثوانٍ، وتنقذك من آلاف النقرات بالفأرة!

تعامل بسهولة مع 1500 سيناريو عمل دون أن تضيّع وقتك في البحث عن الحلول، وامنح نفسك وقتًا أطول للاستمتاع بحياتك. حسّن إنتاجيتك بنسبة 80% — ينضم يوميًا أكثر من 110،000 شخص فعّال إليك، وأنت بلا شك منهم. لن تعاني بعد اليوم من صعوبة الصيغ ورموز VBA المرهقة — امنح عقلك راحةً واستمتع بمزاج عملٍ مبهج! استمتع بتجربة مجانية كاملة الميزات لمدة 30 يومًا، مع ضمان استرداد الأموال خلال 30 يومًا دون الحاجة إلى توضيح الأسباب. جسمٌ أفضل يصنع حياةً أفضل.

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

بعد تثبيت Kutools لـ Excel (وهي عملية سريعة وسهلة)، إليك الخطوات التي ستتبعها لإدراج أسماء الملفات أو الصور من مجلد:

1. افتح مصنف Excel الذي ترغب في عرض قائمة الملفات فيه. انتقل إلى علامة التبويبKUTOOLS PLUS، وحدداستيراد/تصدير، ثم انقرقائمة أسماء الملفات.

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

3. حدد الملفات التي ترغب في إدراجها ضمن قسمنوع الملف. لديك عدة خيارات لتخصيص هذا:

يؤدي تحديد خيارجميع الملفاتإلى سرد كل الملفات تلقائيًا بغض النظر عن تنسيقها، في المجلد المختار.

حدد خيارشائعلتقييد القائمة على التنسيقات الشائعة – ما عليك سوى اختيار نوع الملف المطلوبة من قائمة منسدلة (مثل .jpg و.xlsx و.pdf وما إلى ذلك).

إذا رغبت في سرد نوع الملف محددة أو متعددة، فاستخدم مربعتحديد: اكتب الامتدادات المطلوبة (مثل)jpg,png,gif)، مفصولة بفواصل. سيتم سرد الملفات التي تحمل هذه الامتدادات فقط.

4. اختر وحدة حجم الملف المفضلة لديك من القائمة المنسدلةوحدة حجم الملف (بايت، كيلوبايت، ميجابايت، إلخ) لمزيد من التتبُّع التفصيلي، وفعِّل الخيارإنشاء ارتباط تشعبيإذا رغبت في ربط كل اسم ملف في Excel مباشرةً بالملف الفعلي على نظامك—وهو أمرٌ مفيد جدًّا للفتح السريع والتنقّل لاحقًا.

5. انقرموافق. سيقوم Kutools بإنشاء قائمة شاملة بالملفات المحددة (مع معلومات إضافية اختيارية مثل حجم الملف، النوع، وقت الإنشاء، وغير ذلك) في ورقة عمل جديدة.

نصائح واستكشاف الأخطاء وإصلاحها:إذا احتوى مجلدك عددًا كبيرًا من الملفات أو المجلدات الفرعية، فامنح النظام بضع ثوانٍ لإتمام المعالجة. وإذا لاحظت أن بعض الملفات المتوقعة غير مضمنة، فراجع مرشّح نوع الملف وإعدادات تضمين المجلدات الفرعية، وتأكد من أن الملفات أو المجلدات المخفية لم تُستبعد عن غير قصد. أما بالنسبة للمجلدات التي يتم تحديثها باستمرار بملفات مُنشأة تلقائيًّا، فكل ما عليك فعله هو إعادة تشغيل عملية قائمة أسماء الملفات لتحديث القائمة في مصنفك. هذه الطريقة مثالية جدًّا للمستخدمين ذوي الاحتياجات التوثيقية المتكررة أو الذين يديرون كميات كبيرة من الأصول الرقمية بشكل منتظم.

ميزة أخرى مفيدة من Kutools لإدارة الملفات هي أداةإنشاء جدول الارتباط، المثالية لتوثيق أو ربط جميع أوراق العمل في ملف Excel الخاص بك. ويمكنك دمج هاتين الأداتين معًا للحصول على توثيق شامل للمصنف والملفات:

Kutools لـ Excel: مجموعة متنوعة من الأدوات سهلة الاستخدام لتبسيط العمليات المعقدة في Excel وتسريعها.

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

1. افتح المجلد المطلوب فيWindows Explorer(مستكشف الملفات).

2. اضغط علىCtrl+A لتحديد جميع الملفات، ثم اضغط باستمرار على مفتاحShift وانقر بزر الماوس الأيمن على أيٍّ من الملفات المُظلَّلة. في القائمة السياقية، انقر فوقنسخ كمسار.

3. انتقل إلى ورقة عمل Excel الخاصة بك، وحدد الخلية الابتدائية، ثم اضغط علىCtrl+V للصق. سيؤدي ذلك إلى إدراج مسار الملف (بما في ذلك اسم الملف) لكل ملف تم تحديده.

ملاحظة:لا يتم تحديث هذه الطريقة تلقائيًا في حال تغيير الملفات الموجودة في المجلد، ولا تشمل المجلدات الفرعية.

إذا أردت عرض أسماء الملفات فقط (وليس المسارات الكاملة)، فاستخدم صيغة في Excel لاستخراج أسماء الملفات من المسارات. على سبيل المثال، إذا كانت مسار الملف الخاصة بك موجودة في العمود A، فأدخل هذه الصيغة في الخلية B1:

=TRIM(RIGHT(SUBSTITUTE(A1,"\",REPT(" ",255)),255))

انسخ الصيغة من الخلية B1 لأسفل عبر جميع الصفوف لاسترجاع أسماء الملفات فقط، وقم بتعديل مراجع الخلايا حسب الحاجة.

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

أفضل أدوات الإنتاجية لمكتبتك

🤖	KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
	الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
	بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
	قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
	مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
	ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
	أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
• برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
• أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...