جدول المحتويات
تعرض الوظيفة DIR في VBA الدليل أو الملفات من مجلد معين بشكل أساسي. يمكنه أيضًا إرجاع الملف الأول بهذه الوظيفة. تحتوي هذه الوظيفة على الكثير من الاستخدامات للحصول على ملفات ومجلدات محددة. كل ما تحتاجه هو فقط إدخال مسار الملف في اسم مسار كود VBA . قد تجد أنه من الأصعب استخدام رموز VBA DIR . لا تقلق ، في هذه المقالة ، سنعرض لك بعض الأمثلة للحصول على تصور أفضل لاستخدام وظيفة VBA DIR . آمل أن تتمكن من استخدام الوظيفة بعد قراءة المقال. حسنًا ، لنبدأ.
تنزيل Practice Workbook
تنزيل مصنف التدريب التالي. سوف يساعدك على فهم الموضوع بشكل أفضل.
DIR Function.xlsm
مقدمة إلى وظيفة DIR
الملخص:
تعرض الدالة VBA DIR اسم ملف أو دليل من مسار مجلد معين. بشكل تقليدي ، يقوم بإرجاع الملف الأول.
بناء الجملة:
Dir [ (pathname, [ attributes ] ) ] شرح الوسيطات:
| الوسيطة | مطلوب / اختياري | الشرح |
|---|---|---|
| اسم المسار | اختياري | المسار للوصول إلى الملف وتحديده |
| السمات | اختياري | التعبير الثابت أو الرقمي يحدد سمات الملفات المطابقة |
هناك عدد قليل من قبلسمات محددة ، فهي-
| اسم السمة | الوصف |
|---|---|
| vbNormal | Files بدون سمات محددة |
| vbReadOnly | ملفات للقراءة فقط بدون سمات |
| vbHidden | مخفية ملفات بدون سمات |
| vbSystem | ملفات النظام بدون سمات |
| vbVolume | تسمية وحدة التخزين |
| vbDirectory | الدلائل أو المجلدات بدون سمات |
| vbAlias | اسم الملف المحدد هو اسم مستعار |
7 أمثلة على استخدام وظيفة VBA DIR في Excel
من الوصف ، ربما تكون قد فهمت أن الوظيفة VBA DIR توفر اسم الملف من اسم المسار المقدم. دعونا نفهم على سبيل المثال. هنا قمنا بإنشاء دليل Exceldemy_Folder لتظهر لك أمثلة مختلفة. توجد مجلدات وملفات صغيرة مختلفة في هذا المجلد.
1. ابحث عن اسم الملف من المسار
في مجلدنا ، يمكننا العثور على ملف معين بواسطة التصريح عن مسار اسم الملف.
بعد نسخ مسار الملف ، تحتاج إلى تشغيل الكود.
لهذا السبب ، انتقل إلى علامة التبويب Developer & gt؛ & gt؛ اختر Visual Basic . ثم انتقل إلى علامة التبويب إدراج & gt؛ & gt؛ حدد وحدة. في مربع الحوار عام ، نكتب الكود.
حيث أن جدول أعمالنا هو العثور على اسم الملف من اسم المسار ، سنقوم بتعييناسم المسار الكامل (من الجذر إلى الملف) وسيكون كودنا
1832
هنا ضمن الكود الخاص بنا ، قمنا بتعيين اسم المسار كـ E: \ Exceldemy \ Sales_of_January. xlsx
تفصيل الكود:
- في البداية ، أعلنا عن متغير سلسلة يسمى FN . وتم حفظ إخراج الدالة Dir في هذا المتغير>
- ثم MsgBox يحدد الإخراج من خلال مربع الرسالة. يعرض MsgBox الإخراج باستخدام مربع رسالة.
- ثم ، قم بتشغيل الكود باستخدام المفتاح F5 .
أخيرًا ، وجدنا الملف المسمى Sales_of_January.xlsx .
2. تحقق من وجود دليل
يمكننا التحقق من وجود دليل باستخدام الوظيفة Dir . دعنا نكتب الرمز للتحقق مما إذا كان المجلد Exceldemy موجودًا. اكتب الكود التالي في المربع العام وقم بتشغيله باستخدام المفتاح F5 .
9613
Code Breakdown :
- أعلنا عن متغيرين ؛ يحتوي PN على اسم المسار الكامل لدليل التحقق الخاص بنا.
- هنا ضمن وظيفة Dir ، قمنا بتعيين قيمتين ، اسم المسار والسمة القيمة كـ دليل vbDirectory . ستساعد قيمة السمة هذه في اكتشاف الدليل. ويتم تخزين ناتج هذه الوظيفة في ملف ملف متغير.
- ثم تحققنا مما إذا كان المتغير فارغًا أم لا. إذا وجدنا أن المتغير ليس كذلك ، فقم بالإعلان عن وجود الدليل من خلال مربع رسالة ، وإلا فلن يكون العائد موجودًا.
هنا ، Exceldemy دليل موجود ، لذلك سنجد " Exceldemy موجود " ، حيث Exceldemy هو اسم المجلد.
3. إنشاء مجلد غير موجود
يمكنك إنشاء مجلد غير موجود على جهاز الكمبيوتر الخاص بك. لهذا ، يجب عليك إنشاء اسم مسار غير موجود في مجلداتك. لنتخيل أننا سننشئ دليلًا يسمى Exceldemy_1 . سنستخدم الأمر MkDir لإنشاء الدليل ، ولكن قبل ذلك ، نحتاج إلى كتابة التعليمات البرمجية التالية VBA .
6034
هنا قمنا بكتابة أمر لإنشاء الدليل باستخدام اسم المسار من كتلة Else من الكود الخاص بنا. قم بتشغيل الكود باستخدام المفتاح F5 .
تم إنشاء الدليل. دعونا نلقي نظرة على مجلد الدليل. المجلد Exceldemy_1 مرئي الآن على جهاز الكمبيوتر الخاص بك.
القراءات المماثلة:
- كيفية استدعاء عنصر فرعي في VBA في Excel (4 أمثلة)
- إرجاع قيمة في دالة VBA (قيم صفيف وقيم غير صفيف)
- استخدم وظيفة VBA UCASE في Excel (4 أمثلة)
- كيفية استخدام وظيفة TRIM فيVBA في Excel (التعريف + رمز VBA)
4. ابحث عن الملف الأول من دليل
المهمة الرئيسية للوظيفة Dir هي للعثور على الملف الأول في الدليل المقدم. كل ما تحتاج إلى توفيره داخل الوظيفة هو اسم المسار (حتى دليل الحاوية) ، وسيعيد الملف الأول من هذا الدليل.
لنجد الملف الأول من دليل Exceldemy . سيكون كودنا
7513
يمكنك رؤية الكود الأساسي ؛ لقد مررنا اسم المسار إلى الوظيفة Dir . الآن قم بتشغيل الرمز باستخدام المفتاح F5 ، ستجد الملف الأول في هذا الدليل.
5. ابحث عن الكل ملفات من دليل
في القسم السابق ، رأينا كيفية العثور على اسم الملف الأول من دليل. قد ينشأ الموقف عندما تحتاج إلى العثور على جميع الملفات من دليل معين. للعثور على جميع الملفات في دليل معين ، يجب عليك كتابة رمز VBA التالي.
4072
إليك متغيرين لتخزين أسماء الملفات كـ واحد ( FN ) ، وكقائمة ( FL ). تتكرر الحلقة Do while حتى لا يبقى أي ملف في الدليل ، باستخدام هذه الحلقة ، ندفع كل اسم ملف إلى متغير FL .
تنفيذ الكود ، وستجد جميع الملفات في الدليل ، كما في الصورة أدناه.
6. ابحث عن جميع الملفات والمجلدات من دليل
نحنذكرنا في القسم السابق مكان العثور على جميع الملفات. يمكننا أيضًا العثور على جميع المجلدات الفرعية في مجلد. للقيام بذلك ، اكتب الكود التالي VBA الذي أرفقناه أدناه.
4355
التغيير في الكود هو مجرد استخدام لمعلمات السمة. لقد استخدمنا vbDirectory في هذا المجال. قم بتشغيل الكود ، وستجد جميع الملفات والمجلدات الفرعية لـ Exceldemy_Folder .
7 البحث عن جميع الملفات من نوع معين
باستخدام وظيفة VBA Dir ، يمكننا العثور على أي نوع معين من الملفات. دعنا نستكشف بمثال.
سنجد ملفات .csv من دليلنا. سيكون كودنا كما يلي-
6461
نأمل أن تكون قد فهمت الكود ، الذي يستخدم آلية مماثلة للعثور على الملفات. في اسم المسار ، استخدمنا حرف بدل ( * ). تشير علامة النجمة (*) إلى إمكانية حدوث أي حرف يصل إلى أي رقم. تم استخدام حرف البدل بطريقة تجعل اسم الملف يمكن أن يكون أي شيء ولكن يجب أن يكون ملف .csv .
عندما تقوم بتشغيل الكود ، فإنه سيعيد . ملفات csv من دليل Exceldemy .
قسم الممارسة
لقد قدمنا تدريبًا قسم على كل ورقة على الجانب الأيمن لممارستك. يرجى القيام بذلك بنفسك.
الاستنتاج
هذا كل شيء عن جلسة اليوم. وهذه بعض الأمثلة السهلةمن وظيفة VBA Dir في Excel. يرجى إخبارنا في قسم التعليقات إذا كان لديك أي أسئلة أو اقتراحات. لفهم أفضل ، يرجى تنزيل ورقة التدريب. قم بزيارة موقعنا على الإنترنت ، Exceldemy ، مزود حلول Excel الشامل ، للتعرف على أنواع متنوعة من أساليب Excel. نشكرك على سعة صدرك في قراءة هذا المقال.
