كيفية التحقق مما إذا كان ملف موجودًا في مجلد ثم حذفه في Excel؟

في هذا البرنامج التعليمي، ستتعلم نص VBA للتحقق مما إذا كان ملف معين موجودًا في مجلد محدد، وإذا كان موجودًا، فسيتم حذفه من المجلد في Excel.

التحقق مما إذا كان ملف موجودًا في مجلد ثم حذفه في Excel باستخدام كود VBA

النص البرمجي VBA التالي يساعد على التحقق مما إذا كان ملف معين موجودًا في مجلد وحذفه إذا كان موجودًا. الرجاء اتباع الخطوات التالية.

1. في مصنف Excel مفتوح، اضغط على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة، ثم قم بنسخ النص البرمجي VBA التالي إلى نافذة الوحدة (الكود).

كود 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 لتحذيرك.