كيفية حساب الملفات في مجلد/دليل معين في 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. الآن يتم سرد جميع الملفات من الأنواع المحددة في ورقة عمل جديدة. فقط حدد العمود الأول بدون رأس العمود، وستحصل على عدد الملفات في شريط الحالة كما هو موضح في لقطة الشاشة أدناه: