فبا: كيفية فتح جميع الملفات في المجلد

يمكنك استخدام حلقة Do while باستخدام أسلوب Workbooks.Open في VBA لفتح كافة الملفات الموجودة في مجلد معين.

إليك طريقة شائعة للقيام بذلك عمليًا:

 Sub OpenAllFilesInFolder()

Dim ThisFolder As String
Dim ThisFile As String

'specify folder location and types of files to open in folder
ThisFolder = "C:\Users\bob\Documents\current_data"
ThisFile = Dir(ThisFolder & "\*.xlsx")

'open each xlsx file in folder
Do While ThisFile <> ""
    Workbooks.Open Filename:=ThisFolder & "\" & ThisFile
    ThisFile = Dir
Loop

End Sub

يفتح هذا الماكرو المحدد جميع الملفات ذات الامتداد .xlsx في المجلد التالي:

• C:\Users\bob\Documents\current_data

يوضح المثال التالي كيفية استخدام هذا الماكرو عمليًا.

ذات صلة: كيفية الحصول على قائمة بجميع المصنفات المفتوحة باستخدام VBA

مثال: كيفية فتح كافة الملفات في مجلد باستخدام VBA

لنفترض أن لدينا المجلد التالي المسمى current_data والذي يحتوي على ثلاثة ملفات .xlsx :

لنفترض أننا نريد استخدام VBA لفتح كافة ملفات .xlsx في هذا المجلد.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 Sub OpenAllFilesInFolder()

Dim ThisFolder As String
Dim ThisFile As String

'specify folder location and types of files to open in folder
ThisFolder = "C:\Users\bob\Documents\current_data"
ThisFile = Dir(ThisFolder & "\*.xlsx")

'open each xlsx file in folder
Do While ThisFile <> ""
    Workbooks.Open Filename:=ThisFolder & "\" & ThisFile
    ThisFile = Dir
Loop

End Sub

عندما نقوم بتشغيل هذا الماكرو، سيتم فتح كل ملف بامتداد .xlsx في المجلد واحدًا تلو الآخر.

لاحظ أنه إذا كان أي من الملفات الموجودة في المجلد مفتوحًا بالفعل، فستظل هذه الملفات مفتوحة ببساطة.

ملاحظة : يمكنك العثور على الوثائق الكاملة للأسلوب Workbooks.Open في VBA هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

كيفية إعادة تسمية ملف باستخدام VBA
كيفية إدراج الملفات في مجلد باستخدام VBA
كيفية التحقق من وجود الملف باستخدام VBA