Di VBA kita dapat menghapus semua file yang ada di komputer menggunakan kode VBA dan kod yang digunakan untuk menghapus file apa pun dikenal sebagai perintah Kill, kaedah untuk menghapus file apa pun adalah yang pertama, kita 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 komputer yang lain, 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 dapat menghapus fail menggunakan Kod VBA di folder tertentu.
Semasa kami bekerja dengan projek besar, kami biasanya membuat banyak fail perantaraan untuk menyokong proses kami. Setelah semua kerja selesai, kita perlu memadam fail-fail tersebut untuk mengelakkan sebarang kekeliruan di masa depan.
Dan satu senario adalah ketika kita biasanya menerima e-mel. Kami menyimpan lampiran untuk pekerjaan biasa kami, atau kami hanya ingin melihat laporannya pada waktu itu, dan kemudian kami mungkin perlu menghapus fail tersebut.
Menghapus fail tersebut secara manual akan memakan masa, atau kita mungkin lupa untuk menyimpan, 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 membunuh tidak dapat menghapus fail baca sahaja.
Path Path: pathname tidak lain adalah path folder di komputer untuk menghapus fail.
Catatan: Pathname juga boleh merangkumi watak wildcard. Kita boleh menggunakan tanda bintang (*) dan tanda tanya (?) Sebagai watak wildcard di excel.
Asterisk (*) berguna untuk memadankan rentetan dengan panjang apa pun, bahkan 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 Tampal dalam petikan dua.
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 tersebut.
Padamkan Semua Fail Excel
Untuk menghapus semua fail excel dalam folder menggunakan VBA, kita perlu menggunakan karakter 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 di folder, bagaimana kita boleh menghapusnya. Oleh kerana kita menggunakan Excel VBA, dapatkah 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 tersebut, dan kita perlu menggunakan satu lagi fungsi yang disebut RmDir .
Kod:
RmDir "E: Excel Files "
Di sini RmDir akan memadamkan folder kosong hanya jika subfolder berada di mana 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 Kemudian SetAttr DeleteFile, vbNormal Bunuh DeleteFile End If End Sub
Anda boleh memuat turun Templat VBA Delete File Excel ini dari sini - Templat VBA Delete File Excel.
