كيف يمكن سرد جميع الملفات في مجلدٍ ما وجميع مجلداته الفرعية داخل ورقة عمل؟
عند التعامل مع مجموعات كبيرة من الملفات المخزَّنة عبر مجلدات ومجلدات فرعية متعددة، قد تحتاج أحيانًا إلى إنشاء قائمة شاملة بجميع أسماء الملفات لأغراض التتبع أو الفهرسة أو المعالجة الدُفعية. لكن Excel لا يوفِّر ميزة مضمنة مباشرةً لسرد جميع أسماء الملفات من مجلد—بما في ذلك مجلداته الفرعية—في ورقة عمل. وقد تمثِّل هذه القيود تحديًا خاصًّا إذا كان هيكل المجلدات معقَّدًا أو إذا كانت الملفات تُحدَّث بانتظام. لحسن الحظ، توجد طرق عملية وموثوقة تتيح لك إنجاز هذه المهمة بكفاءة داخل Excel.
في هذا الدليل، ستكتشف عدة طرق لسرد جميع أسماء الملفات—بما في ذلك تلك الموجودة داخل المجلدات الفرعية—مباشرةً في ورقة عمل Excel، مع خطوات تشغيل مفصلة، وتوضيحات واضحة للمعاملات، ونصائح فعّالة لتجنب الأخطاء الشائعة. وستساعدك هذه الحلول على تبسيط إدارة ملفاتك، ويمكنك تكييفها بسهولة لمختلف المهام التنظيمية المهنية أو الشخصية.
سرد جميع أسماء الملفات في المجلد والمجلدات الفرعية بسرعة وبسهولة باستخدام Power Query
سرد جميع أسماء الملفات في المجلد والمجلدات الفرعية بسرعة وبسهولة باستخدام Kutools لـ Excel
سرد جميع أسماء الملفات في المجلد والمجلدات الفرعية باستخدام كود VBA
سرد جميع أسماء الملفات في المجلد والمجلدات الفرعية بسرعة وبسهولة باستخدام Power Query
في الإصدارات الحديثة من Excel، يمكنك الاستفادة من ميزة «الحصول على البيانات» (Power Query) المدمجة لتحميل قائمة الملفات من مجلد، بما في ذلك السمات المختارة.
1. انتقل إلىبيانات > الحصول على بيانات > من ملف > من مجلد.
2. حدد المجلد الذي تريد سرد جميع ملفاته، ثم انقرفتح.
يعرض جدولٌ جميع ملفات المجلد المحدد، بما في ذلك الملفات الموجودة داخل المجلدات الفرعية.
3. انقرتحميل/تحميل إلىلتحميل القائمة إلى ورقة عمل.
سرد جميع أسماء الملفات في المجلد والمجلدات الفرعية بسرعة وبسهولة باستخدام Kutools لـ Excel
بينما يُتقن VBA إنشاء قوائم بسيطة، فقد لا يكون الخيار الأكثر سهولة للمستخدمين غير الملمين بالبرمجة أو بإعدادات أمان ماكرو Excel. علاوةً على ذلك، إذا كنت ترغب ليس فقط في سرد أسماء الملفات، بل أيضًا في عرض أحجامها وأنواعها وتواريخ إنشائها أو تعديلها وغيرها من السمات التفصيلية دفعةً واحدة، فإنKutools لـ Excelيوفِّر حلاً بديهيًا وقويًا.
تسمح لك أداةقائمة أسماء الملفاتفيKutools لـ Excelبجمع معلومات الملفات من مجلد معيّن وجميع مجلداته الفرعية بنقرات قليلة من الماوس. ويُعد هذا الأسلوب مثاليًا خصوصًا للمستخدمين الذين يحتاجون إلى مرونة إضافية، مثل التصفية حسب نوع الملف، أو إنشاء روابط تشعبية للوصول السهل، أو تضمين الملفات والمجلدات المخفية في النتائج. كما يُعدّ حلًّا مثاليًا لإدارة أرشيفات المستندات، أو تتبع مكتبات الوسائط المتعددة، أو إعداد قوائم جرد البيانات لأغراض النسخ الاحتياطي أو التدقيق. يُرجى ملاحظة أن تنزيل وتثبيتKutools لـ Excelمطلوب قبل البدء باتباع الخطوات أدناه.
بعد الانتهاء من التثبيت، اتبع هذه الخطوات لاستخدام وظيفة قائمة أسماء الملفات:
1. انقر على علامة التبويبEnterprise في شريط أدوات Excel، ثم اختراستيراد/تصدير، ثم اخترقائمة أسماء الملفاتمن القائمة. سيؤدي ذلك إلى فتح مربع حوار الإعدادات.
2. ضمن مربع حوارقائمة أسماء الملفات، يمكنك تحديد الخيارات التالية لتخصيص قائمة الملفات بما يناسب احتياجاتك:
أ: انقر على أيقونة المجلد
لتحديد المجلد الذي تريد فحصه. وستقوم الأداة تلقائيًا بفحص المجلدات الفرعية المضمنة إذا رغبت في ذلك.
ب: في قسمنوع الملف، اختر «جميع الملفات» لتضمين كل الملفات بغض النظر عن نوعها، أو حدِّد امتداد ملف معين (مثل *.xlsx أو *.docx، إلخ) إذا كنت مهتمًّا فقط بملفات نوعٍ معيَّن.
ج: في قسموحدة حجم الملف، يمكنك اختيار وحدة القياس المناسبة (مثل البايت، الكيلوبايت، أو الميجابايت) لعرض حجم الملف بطريقة أسهل في الفهم.
ملاحظة: لتضمين أسماء الملفات من جميع المجلدات الفرعية، تأكد من تأشير خيارتضمين الملفات في الأدلة الفرعية. بالإضافة إلى ذلك، يمكنك تأشيرتضمين الملفات والمجلدات المخفيةإذا كنت ترغب في سرد تلك الملفات أيضًا. يؤدي اختيار خيارإنشاء ارتباط تشعبيإلى إنشاء روابط قابلة للنقر لكل ملف ومجلد تلقائيًا، وهو مفيد للوصول السريع إلى الملفات مباشرةً من ورقة العمل. وإذا كانت بعض الملفات مفقودة من القائمة، فتأكد من إعدادات التصفية الخاصة بك وأن الملفات ليست مقيدة بالإذونات أو القيود النظامية.
3. انقرموافقلإنشاء قائمة الملفات. سيتم عرض جميع الملفات من المجلد المحدد ومجلداته الفرعية في ورقة عمل جديدة، مع السمات المختارة للملفات (مثل المسار الكامل والحجم والنوع وتاريخ الإنشاء ووقت التعديل). وهذا يوفِّر نظرةً عامةً واضحةً ومنظمةً، ويمكنك استخدام ميزات التصفية والفرز المألوفة في Excel لإدارة بياناتك بكفاءة أكبر.
انقر لمعرفة المزيد من التفاصيل حول أداة قائمة أسماء الملفات هذه.
نزِّل Kutools لـ Excel وجربه الآن!
سرد جميع أسماء الملفات في المجلد والمجلدات الفرعية باستخدام كود VBA
بشكل افتراضي، لا يحتوي Excel على دالة أصلية تتيح سرد الملفات بشكل متكرر من المجلدات ومجلداتها الفرعية. ومع ذلك، يمكنك استخدام VBA (Visual Basic for Applications) لأتمتة هذه المهمة. ويمنح استخدام VBA المستخدمين المتقدمين القدرة على توسيع إمكانيات Excel، مما يوفر لك المرونة اللازمة لتخصيص النتائج—مثل استرجاع أسماء الملفات فقط أو تضمين خصائص إضافية كالمسار الكامل للملف.
يُعد هذا الحل مثاليًا بشكل خاص إذا كنتَ مرتاحًا مع محرر VBA وتحتاج إلى أتمتة إجراءات قائمة الملفات بشكلٍ متكرر. كما أنه خيارٌ ممتاز لأي شخص يفضّل الحفاظ على بيئة Excel خالية من الإضافات. ومع ذلك، ضع في اعتبارك أن ماكرو VBA يتطلب تمكين الماكرو في Excel، وقد يكون هذا مقيدًا في بيئات الأمان العالية. ولا تنسَ دائمًا حفظ مصنفك قبل تشغيل أي ماكرو لتجنب فقدان البيانات العرضي في حال وجود تغييرات غير محفوظة.
1. أنشئ أو فعِّل ورقة عمل جديدة في المكان الذي تريد أن تسرد فيه جميع أسماء الملفات. تأكد من أن تكون ورقة العمل هذه فارغة لتجنب الكتابة فوق أي بيانات مهمة.
2. اضغطALT + F11 لفتح نافذة محررMicrosoft Visual Basic for Applications (VBA).
3. في نافذة VBA، انقر علىإدراجفي شريط القوائم، ثم اختروحدة نمطية. سيؤدي هذا إلى إدراج وحدة نمطية جديدة يمكنك لصق كود VBA الخاص بك فيها.
كود VBA: سرد جميع أسماء الملفات في المجلد والمجلدات الفرعية
Sub MainList()
'Updateby Extendoffice
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
For Each xSubFolder In xFolder.SubFolders
ListFilesInFolder xSubFolder.Path, True
Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub
Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function
قبل تشغيل الكود، راجع التعليقات لفهم الوظائف والمتغيرات المستخدمة. وإذا رغبت في تعديل البيانات التي يتم سردها—مثل المسارات الكاملة أو نوع الملف—فقد تحتاج إلى ضبط الكود وفقًا لذلك.
4. بعد لصق الكود في نافذة الوحدة النمطية، اضغط على مفتاحF5 لتشغيل الكود. سيظهر مربع حوارماكرو؛ اختر اسم الماكروMainList، ثم انقرتشغيل. إذا كان لديك ماكرو آخر باسم مشابه، فتأكد من اختيار الاسم الصحيح.
5. في مربع الحواراستعراضالذي يظهر، انتقل إلى المجلد الهدف الذي تريد سرد ملفاته ومجلداته الفرعية وحدّده. إن اختيار المجلد الابتدائي الصحيح أمرٌ بالغ الأهمية، لأن الماكرو سيسترجع الملفات تلقائيًا من جميع المجلدات الفرعية المتداخلة.
6. بعد تحديد المجلد المطلوب، انقرموافق. سيقوم الماكرو الآن بمعالجة المجلد وجميع مجلداته الفرعية، ويُخرِج قائمةً بجميع أسماء الملفات في ورقة العمل الحالية بدءًا من الخلية A2. وبناءً على عدد الملفات وعمق هيكل المجلدات الفرعية، قد تستغرق هذه العملية عدة ثوانٍ أو أكثر. وتوفّر القائمة الناتجة عرضًا تفصيليًّا لمحتويات مجلدك.
 |
 |
 |
إذا واجهت خطأً، فتأكد مجددًا من أن المجلد المحدد موجود ويحتوي على ملفات، وأن الماكرو مُفعَّل في إعدادات أمان Excel. وإذا كنت تعمل مع هيكل مجلدات كبير أو محركات شبكة، فقد يطول وقت المعالجة وقد تظهر أخطاء مرتبطة بالوقت المخصص أو الذاكرة—وفي هذه الحالة، جرِّب تشغيل الماكرو على مجلدات فرعية أصغر.
على الرغم من أن VBA فعّال في المهام الأساسية مثل عرض قائمة الملفات، فإنه عادةً لا يستخرج سماتٍ مثل حجم الملف أو تاريخ التعديل أو مالك الملف بشكل افتراضي. إذا كنت بحاجة إلى هذه التفاصيل الإضافية، ففكّر في تعديل الكود أو استخدام إحدى الطرق البديلة الموضّحة أدناه.
للحصول على أفضل النتائج، راجع وحدّث قائمة ملفاتك بانتظام—خاصةً إذا كانت محتويات المجلدات تتغيّر بشكل متكرر. تأكد دائمًا من امتلاكك الأذونات المطلوبة، لا سيما عند فحص مواقع الشبكة أو المحركات المشتركة. وفي حال ظهور نتائج غير متوقعة، ابحث عن مشكلات محتملة مثل الملفات المخفية أو تأخيرات المزامنة أو قيود الوصول إلى الملفات. وإذا تم تخطي بعض الملفات أو المجلدات، جرّب تشغيل Excel كمسؤول أو استخدام هيكل مجلدات مبسّط.
يعتمد اختيار أفضل طريقة على مستوى راحتك، والمتطلبات المحددة، ومدى تكرارك لأداء المهمة. فكل طريقة لها مزاياها: يمكنك استخدام VBA للتخصيص، أو Kutools للراحة والميزات الإضافية، أو الاعتماد على أدوات Windows/Excel المدمجة للحصول على أبسط حل دون الحاجة إلى برامج خارجية. وإذا استمرت المشكلات، فاستشر وثائق Excel أو النظام لمزيد من خطوات استكشاف الأخطاء وإصلاحها.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل