Di VBA kita dapat menghapus semua file yang ada di komputer menggunakan kod VBA dan kod yang digunakan untuk menghapus file tersebut dikenal sebagai perintah Kill, kaedah untuk menghapus file apa pun adalah yang pertama, kami memberikan jalan file yang bermaksud di mana fail tersebut terletak di komputer dan kemudian kita menggunakan perintah Kill untuk menghapus fail tersebut.
Bagaimana Menghapus Fail menggunakan Kod VBA?
VBA adalah perkara yang sukar pada awalnya tetapi apabila anda menghabiskan lebih banyak masa dengan VBA, anda akan mula menyukainya seperti saya. Kita dapat membuka fail dari folder lain komputer, kita dapat bekerja dengannya, dan sekarang kita juga dapat menghapus fail dengan menggunakan pengekodan VBA. Dalam artikel ini, kami akan menunjukkan kepada anda bagaimana anda boleh menghapus fail menggunakan VBA Code di folder tertentu.
Semasa kita bekerja dengan projek besar, kita biasanya membuat banyak fail perantaraan untuk menyokong proses kita. Setelah semua kerja selesai, kita perlu memadam fail-fail tersebut untuk mengelakkan kekeliruan di masa depan.
Dan satu senario adalah ketika kita biasanya menerima e-mel, kita menyimpan lampiran untuk pekerjaan biasa kita atau kita hanya ingin melihat laporannya untuk waktu itu dan kemudian kita mungkin perlu menghapus fail tersebut.
Menghapus fail tersebut secara manual akan memakan masa atau kita mungkin lupa untuk menyimpannya dan ia akan memenuhi ruang di komputer kita. Kami akan menunjukkan kepada anda cara menghapus fail tersebut dengan kod VBA ringkas.
Kaedah Bunuh untuk Menghapus Fail dalam Folder menggunakan Kod VBA
Fungsi KILL yang sederhana akan menghapus folder, fail tertentu, semua fail excel, dll. Lihatlah sintaks kaedah KILL di VBA. Kaedah bunuh tidak dapat memadam fail hanya baca.
Path Path: pathname tidak lain adalah path folder di komputer untuk menghapus fail.
Nota: Nama jalan boleh merangkumi watak wildcard juga. Kita boleh menggunakan tanda bintang (*) dan tanda tanya (?) Sebagai watak wildcard di excel.
Asterisk (*) berguna untuk memadankan rentetan dengan panjang manapun walaupun sifar dipertimbangkan.
Tanda tanya (?) Berguna untuk memadankan satu watak sahaja.
Padamkan Nama Fail Khusus
Contohnya, saya mempunyai folder seperti di bawah.
Dalam folder ini, saya ingin menghapus fail bernama "File 5". Mulakan kod dengan fungsi KILL.
Kod:
Sub Delete_Files () Bunuh (PathName) Akhir Sub
Salin dan tampal laluan folder.
Dan Tampalkan petikan berganda.
Bunuh "E: \ Excel Files"
Sekarang letakkan satu garis miring lagi (\) dan masukkan nama fail dengan sambungan.
Bunuh "E: \ Excel Files \ File5.xlsx"
Apabila anda menjalankan kod ini, ia akan menghapus fail bernama "File 5.xlsx" di jalur folder yang disebutkan.
Padamkan Semua Fail Excel
Untuk menghapus semua fail excel dalam folder menggunakan VBA, kita perlu menggunakan watak wildcard dengan fungsi KILL. Setelah menyebut jalan folder, kita perlu menyebut fail sebagai "* .xl *"
Kod:
Bunuh "E: \ Excel Files \ *. Xl *"
Apabila anda menjalankan kod ini, ini akan menghapus semua fail excel dalam folder.
Kami telah melihat bagaimana kami dapat menghapus satu fail excel dan semua fail excel. Tetapi jika kita mahu menghapus semua fail dalam folder bagaimana kita boleh menghapusnya. Oleh kerana kita menggunakan Excel VBA, dapatkah ia menghapus fail lain?
Jawapannya adalah Ya !!! Gunakan kod di bawah untuk menghapus semua fail dalam folder.
Kod:
Bunuh "E: \ Excel Files \ *. *"
Padamkan Keseluruhan Folder Sahaja
Adakah mungkin untuk menghapus keseluruhan folder itu sendiri?
Ya, mungkin.
Untuk melakukan ini, perkara pertama yang perlu kita lakukan adalah kita perlu menghapus semua fail dalam folder dengan menggunakan fungsi KILL, dan kemudian untuk menghapus folder kita perlu menggunakan satu lagi fungsi yang disebut RmDir .
Kod:
RmDir "E: \ Excel Files \"
Di sini RmDir akan memadamkan hanya folder kosong, jika ada subfolder yang ada, ia tidak dapat menghapusnya.
Padam Semua Fail Teks dalam Folder
Untuk menghapus semua fail teks dalam folder, gunakan kod di bawah.
Kod:
Bunuh "E: \ Excel Files \ *. Txt"
Padamkan Fail Hanya Baca
Seperti yang saya katakan fungsi KILL tidak dapat menghapus fail "Read Only" dalam folder. Dalam senario kes seperti itu, kita perlu menggunakan dua fungsi lain iaitu "Dir $" & "SetAttr". Di bawah ini adalah contoh kod untuk menghapuskan fail hanya baca.
Kod:
Sub Delete_Files1() Dim DeleteFile As String DeleteFile = " E:\Excel Files\" If Len(Dir$(DeleteFile)) > 0 Then SetAttr DeleteFile, vbNormal Kill DeleteFile End If End Sub
You can download this VBA Delete File Excel Template from here – VBA Delete File Excel Template
