كيفية التحقق من وجود ملف في مجلد معين؟
لنفترض أن لديك مجلدًا يحتوي على ملفات متعددة ، والآن ، تريد تحديد ما إذا كان ملف معين موجودًا في هذا المجلد من Excel. في هذه المقالة ، سأقدم لك طريقة سريعة للتحقق مما إذا كان الملف موجودًا في مجلد معين بالتفصيل من خلال Excel.
تحقق مما إذا كان الملف موجودًا في مجلد معين برمز VBA
تحقق مما إذا كان الملف موجودًا في مجلد معين برمز VBA
للتحقق مما إذا كان الملف موجودًا في مجلد معين أم لا في ورقة عمل Excel ، يمكنك تطبيق رمز VBA التالي ، يرجى القيام بذلك على النحو التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق التعليمة البرمجية التالية في نافذة الوحدة النمطية.
كود فبا: تحقق من وجود ملف في مجلد معين:
Sub Test_File_Exist_With_Dir()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim FilePath As String
FilePath = ""
On Error Resume Next
FilePath = Dir("C:\Users\DT168\Desktop\Test folder\Book2.xlsx")
On Error GoTo 0
If FilePath = "" Then
MsgBox "File doesn't exist", vbInformation, "Kutools for Excel"
Else
MsgBox "File exist", vbInformation, "Kutools for Excel"
End If
Application.ScreenUpdating = False
End Sub
ملحوظة: في الكود أعلاه ، يجب عليك تغيير مسار الملف واسمه C: \ Users \ DT168 \ Desktop \ Test folder \ Book2.xlsx " إلى حاجتك.
3. بعد لصق الكود ، يرجى الضغط F5 مفتاح لتشغيل هذا الرمز:
(1.) إذا كان الملف موجودًا ، فستحصل على لقطة الشاشة التالية:
(2.) إذا كان الملف غير موجود ، فستتلقى التحذير التالي:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!