كيف يمكنك التحقق مما إذا كان ملف موجودًا في مجلد ثم حذفه في Excel؟
في هذا البرنامج التعليمي، ستتعلّم كيفية كتابة نص برمجي باستخدام VBA للتحقق من وجود ملف معيّن في مجلد محدّد، وإذا وُجد، فسيتم حذفه تلقائيًّا من ذلك المجلد في Excel.
التحقق مما إذا كان ملف موجودًا في مجلد ثم حذفه في Excel باستخدام كود VBA
يساعدك نص VBA التالي على التحقق من وجود ملف معيّن في مجلد، وحذفه تلقائيًا إذا وُجد. يُرجى اتباع الخطوات التالية:
1. في مصنف Excel مفتوح، اضغط على مفاتيحAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. في نافذةMicrosoft Visual Basic for Applications، انقر علىإدراج > وحدة، ثم انسخ نص VBA التالي إلى نافذةالوحدة (الكود).
خيار الوحدة« class=»mobile-first" />
كود 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\save attachments\aaa.xlsx إلى الملف الذي تريد التحقق من وجوده. في هذا المثال، نتحقق مما إذا كان ملف Excel باسم “aaa” موجودًا في مجلد باسم “save attachments” على سطح المكتب. ويمكنك بسهولة تعديل مسار الملف وامتداده ليتناسب مع احتياجاتك.
3. اضغط على مفتاحF5 لتشغيل الكود.
4. إذا كان الملف موجودًا، فسيظهر لك مربع حوارKutools لـ Excelكما في لقطة الشاشة أدناه. انقر على زرموافقلإزالة هذا الملف من المجلد.
إذا لم يكن الملف موجودًا في المجلد، فسيظهر أيضًا مربع حوار آخر منKutools لـ Excelلإعلامك بذلك.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل