كيف يمكن عد الملفات الموجودة في مجلد أو دليل معين باستخدام Excel؟

يمكنك استخدام كود VBA التالي لعدّ ملفات نوع معيّن بسهولة داخل مجلد معين، مثل عدّ جميع ملفات .xlsx في مجلد ما. يُرجى اتباع الخطوات التالية:

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

2. انقر علىإدراج > وحدة نمطية، ثم الصق كود VBA أدناه في نافذة الوحدة النمطية المفتوحة.

VBA: عد ملفًا معيّنًا في مجلد معين

Sub CountFiles()
Dim xFolder As String
Dim xPath As String
Dim xCount As Long
Dim xFiDialog As FileDialog
Dim xFile As String
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xFolder = xFiDialog.SelectedItems(1)
End If
If xFolder = "" Then Exit Sub
xPath = xFolder & "\*.xlsx"
xFile = Dir(xPath)
Do While xFile <> ""
xCount = xCount + 1
xFile = Dir()
Loop
MsgBox xCount & " files found"
End Sub

ملاحظة: سيقوم كود VBA أعلاه بمعالجة ملفات.xlsx في مجلد معين. ولобработة أنواع أخرى من الملفات، يُرجى البحث عن السطرxPath = xFolder & «\*.xlsx» وتغيير الامتداد.xlsx إلى امتداد الملف المطلوب وفقًا لاحتياجاتك.

3. اضغط على مفتاحF5 أو انقر على زرتشغيللتنفيذ كود VBA هذا.

4. في مربع حوار الاستعراض المفتوح، حدد المجلد الذي تريد إحصاء ملفات نوع الملف المحدد فيه، ثم انقر على زرموافق.

5. الآن، ستظهر نافذة منبثقة تُظهر عدد ملفات نوع الملف المحدد الموجودة في المجلد المحدد. ما عليك سوى إغلاق هذه النافذة.

عند فتح أي مجلد، يظهر عادةً إجمالي عدد الملفات الموجودة فيه في الجزء السفلي من النافذة. تعرّف هنا على كيفية استخدام أداة «فتح المجلد الذي يحتوي على المستند الحالي» منKutools لـ Excelلفتح المجلد الذي يحتوي على المصنف الحالي والحصول فورًا على عدد الملفات الموجودة فيه.

1. انقر علىKUTOOLS PLUS > مصنف > فتح المجلد الذي يحتوي على المستند الحالي. راجع لقطة الشاشة:

2. الآن، سيتم فتح المجلد الذي يحتوي على المصنف الحالي.

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

ملاحظة: ستكون أداةفتح المجلد الذي يحتوي على المستند الحاليغير صالحة إذا لم تقم بحفظ المصنف الحالي مسبقًا.

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

1. انقر علىKUTOOLS PLUS > استيراد/تصدير > قائمة أسماء الملفاتلفتح مربع حوار قائمة أسماء الملفات.

2. في مربع حوار قائمة أسماء الملفات المفتوح، يُرجى اتباع الخطوات التالية:

3. انقر على زرموافقفي مربع حوار قائمة أسماء الملفات.

4. الآن يتم عرض جميع ملفات تحديد النوع في ورقة عمل جديدة. ما عليك سوى تحديد العمود الأول دون تضمين رأسه، وستظهر لك عدد الملفات فورًا في شريط الحالة، كما هو موضح في لقطة الشاشة أدناه: