كيفية التحقق من وجود ملف في مجلد ثم حذفه في Excel؟
في هذا البرنامج التعليمي ، ستتعلم برنامج نصي لـ VBA للتحقق من وجود ملف معين في مجلد محدد ، إذا كان موجودًا ، فاحذفه من المجلد في Excel.
تحقق مما إذا كان الملف موجودًا في مجلد ثم احذفه في Excel برمز VBA
يساعد برنامج VBA النصي التالي في التحقق من وجود ملف معين في مجلد وحذفه إذا كان موجودًا. الرجاء القيام بما يلي.
1. في مصنف Excel مفتوح ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ برنامج VBA النصي التالي إلى ملف وحدة (كود) نافذة.
رمز فبا: تحقق مما إذا كان الملف موجودًا في مجلد محدد ثم احذفه
Sub CheckFileThenDelete()
'Updated by Extendoffice 20221024
Dim FilePath As String
FilePath = "C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx"
If Dir(FilePath) <> "" Then
MsgBox "The file exists in the folder, click the OK button to delete it.", vbInformation, "Kutools for Excel"
Kill FilePath
Else
If Dir(FilePath) = "" Then
MsgBox "The file does not exist.", vbInformation, "Kutools for Excel"
End If
End If
End Sub
ملاحظات: في كود VBA ، C: \ Users \ Win10x64Test \ Desktop \ حفظ المرفقات \ aaa.xlsx هو مسار الملف الذي تريد التحقق من وجوده. في هذا المثال ، أريد التحقق مما إذا كان ملف Excel المسمى "AAA"موجود في مجلد باسم"حفظ المرفقات" على سطح المكتب. يمكنك تغيير مسار الملف وامتداد الملف لتلبية احتياجاتك.
3. اضغط على F5 مفتاح لتشغيل الكود.
4. إذا كان الملف موجودًا ، فستحصل على ملف كوتولس ل إكسيل مربع الحوار كما هو موضح في الصورة أدناه. انقر على OK زر لإزالة هذا الملف من المجلد.
إذا كان الملف غير موجود في مجلد آخر كوتولس ل إكسيل سيظهر مربع الحوار أيضًا لتنبيهك.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!