كيفية حذف ملف باستخدام vba في إكسيل؟
لحذف ملف Excel من مجلد، يمكنك استخدام طريقتين مختلفتين. الطريقة الأولى هي عبارة “Kill” التي تأخذ مسار الملف للإشارة إلى الملف الذي تريد حذفه. الطريقة الثانية هي كائن FileSystemObject الذي له طريقة مقترنة لحذف ملف.
لاستخدام هذه الرموز، انتقل إلى VBE (محرر الأكواد) من علامة تبويب المطور.
حذف ملف باستخدام VBA (وظيفة القتل)
تساعدك ميزة Kill على حذف ملف واحد أو ملفات متعددة واستخدام أحرف البدل لحذف ملفات متعددة. يوجد أدناه رمز السطر الواحد الذي يحذف الملف من المجلد الموجود على سطح المكتب.
Kill "C:UsersDellDesktopSample Datafile-one.xlsx"
سيظهر لك هذا الرمز خطأ إذا كان المصنف الذي حددته لحذفه غير موجود.
روابط مفيدة: تشغيل ماكرو – مسجل الماكرو – محرر Visual Basic – دليل وحدات الماكرو الشخصية
حذف كافة الملفات الموجودة في مجلد باستخدام VBA
وإذا كنت تريد حذف جميع الملفات الموجودة في مجلد ما، فيمكنك استخدام حرف البدل.
Kill "C:UsersDellDesktopSample Data*.xl*"
حذف ملف باستخدام FileSystemObject (كائن)
يسمح لك كائن نظام الملفات بالوصول إلى نظام ملفات الكمبيوتر. يمكنك معرفة المزيد من هنا، ولكن الآن دعنا نكتب رمزًا لحذف ملف.
- أولاً، يجب عليك الإعلان عن المتغيرات التي سيتم استخدامها في التعليمات البرمجية مثل Binder وFileSystemObject.
- بعد ذلك، استخدم وظيفة إنشاء الكائن لإرجاع FileSystemObject عن طريق تعيينه لمتغير FSO.
- بعد ذلك، قم بتعيين المسار للمتغير “myFile” للانتقال إلى الملف الذي تريد حذفه.
- في النهاية، استخدم طريقة “DeleteFile” (انظر هذا) لحذف الملف.
الرمز الكامل
Sub vba_delete_file() Dim FSO Dim myFile As String Set FSO = CreateObject("Scripting.FileSystemObject") myFile = "C:UsersDellDesktopSample Datafile1.xlsx" FSO.DeleteFile myFile, True End Sub
لنفترض أنك بحاجة إلى كتابة بعض التعليمات البرمجية التي يمكنها التحقق من الملف (موجود أم لا) ثم حذفه. هنا هو الرمز الذي تحتاجه.
Sub vba_delete_file() Dim FSO Dim myFile As String Set FSO = CreateObject("Scripting.FileSystemObject") myFile = "C:UsersDellDesktopSample Datafile1.xlsx" If FSO.FileExists(myFile) Then FSO.DeleteFile myFile, True MsgBox "Deleted" Else MsgBox "There's no workbook with this name." End If End Sub
الدروس ذات الصلة
- انسخ ملف Excel (المصنف) باستخدام VBA
- مصنف تنشيط VBA (ملف Excel)
- مصنف إغلاق VBA (ملف Excel)
- VBA الجمع بين المصنفات (ملفات Excel)
- VBA إنشاء مصنف جديد (ملف Excel)