Di VBA kami dapat menghapus file apa pun yang ada di komputer menggunakan kode VBA dan kode yang digunakan untuk menghapus file apa pun dikenal sebagai perintah Bunuh, metode untuk menghapus file apa pun adalah yang pertama, kami menyediakan jalur file yang artinya di mana file tersebut terletak di komputer dan kemudian kami menggunakan perintah Kill untuk menghapus file tersebut.
Bagaimana cara menghapus file menggunakan kode VBA?
VBA adalah hal yang sulit pada awalnya, tetapi saat Anda menghabiskan lebih banyak waktu dengan VBA, Anda akan mulai menyukainya sama seperti saya. Kami dapat membuka file dari folder lain di komputer, kami dapat bekerja dengannya, dan sekarang kami juga dapat menghapus file dengan menggunakan pengkodean VBA. Pada artikel ini, kami akan menunjukkan kepada Anda bagaimana Anda dapat menghapus file menggunakan Kode VBA di folder tertentu.
Saat kami mengerjakan proyek besar, kami biasanya membuat banyak file perantara untuk mendukung proses kami. Setelah semua pekerjaan selesai, kita perlu menghapus file-file itu untuk menghindari kebingungan apa pun di masa mendatang.
Dan satu skenario adalah ketika kita biasanya menerima email. Kami menyimpan lampiran untuk pekerjaan rutin kami, atau kami hanya ingin melihat laporan untuk saat itu, dan nanti kami mungkin perlu menghapus file tersebut.
Menghapus file-file itu secara manual akan memakan waktu, atau kita mungkin lupa menyimpannya, dan itu akan menghabiskan ruang di komputer kita. Kami akan menunjukkan kepada Anda cara menghapus file tersebut dengan kode VBA sederhana.
Bunuh Metode untuk Menghapus File dalam Folder menggunakan Kode VBA
Fungsi KILL sederhana akan menghapus folder, file tertentu, semua file excel, dll. Lihatlah sintaks metode KILL di VBA. Metode kill tidak dapat menghapus file read-only.
Path Name: pathname tidak lain adalah path folder di komputer untuk menghapus file.
Catatan: Nama jalur juga dapat menyertakan karakter wildcard. Kita bisa menggunakan asterisk (*) dan tanda tanya (?) Sebagai karakter wildcard di excel.
Asterisk (*) berguna untuk mencocokkan string apa pun dengan panjang berapa pun, bahkan nol dianggap.
Tanda tanya (?) Berguna untuk mencocokkan hanya satu karakter.
Hapus Nama File Tertentu
Misalnya saya punya folder seperti di bawah ini.
Di folder ini, saya ingin menghapus file bernama "File 5". Mulai kode dengan fungsi KILL.
Kode:
Sub Delete_Files () Bunuh (PathName) End Sub
Salin dan tempel jalur folder.
Dan Tempelkan tanda kutip ganda.
Matikan "E: Excel Files"
Sekarang letakkan satu lagi garis miring ke belakang () dan masukkan nama file dengan ekstensi.
Matikan "E: Excel Files File5.xlsx"
Ketika Anda menjalankan kode ini, itu akan menghapus file bernama "File 5.xlsx" di jalur folder yang disebutkan.
Hapus Semua File Excel
Untuk menghapus semua file excel di folder menggunakan VBA, kita perlu menggunakan karakter wildcard dengan fungsi KILL. Setelah menyebutkan jalur folder, kami perlu menyebutkan file tersebut sebagai "* .xl *."
Kode:
Matikan "E: Excel Files *. Xl *"
Saat Anda menjalankan kode ini, ini akan menghapus semua file excel di folder.
Kami telah melihat bagaimana kami dapat menghapus satu file excel dan semua file excel. Tetapi jika kita ingin menghapus semua file yang ada di folder tersebut, bagaimana kita bisa menghapusnya. Karena kami menggunakan Excel VBA, dapatkah itu menghapus file lain?
Jawabannya iya!!! Gunakan kode di bawah ini untuk menghapus semua file di folder.
Kode:
Matikan "E: Excel Files *. *"
Hapus Seluruh Folder Saja
Apakah mungkin menghapus seluruh folder itu sendiri?
Ya, itu mungkin.
Untuk melakukan ini, hal pertama yang perlu kita lakukan adalah menghapus semua file di folder dengan menggunakan fungsi KILL dan kemudian menghapus folder tersebut, dan kita perlu menggunakan satu fungsi lagi yang disebut RmDir .
Kode:
RmDir "E: Excel Files "
Di sini RmDir hanya akan menghapus folder kosong jika ada subfolder yang tidak dapat dihapus.
Hapus Semua File Teks di Folder
Untuk menghapus semua file teks di folder, gunakan kode di bawah ini.
Kode:
Matikan "E: Excel Files *. Txt"
Hapus File Hanya-Baca
Seperti yang saya katakan, fungsi KILL tidak dapat menghapus file "Hanya Baca" di folder. Dalam skenario kasus seperti itu, kita perlu menggunakan dua fungsi lainnya yaitu fungsi "Dir $" & "SetAttr". Di bawah ini adalah contoh kode untuk menghapus file read-only juga.
Kode:
Sub Delete_Files1 () Redupkan DeleteFile Sebagai String DeleteFile = "E: Excel Files " If Len (Dir $ (DeleteFile))> 0 Kemudian SetAttr DeleteFile, vbNormal Bunuh DeleteFile End Jika End Sub
Anda dapat mengunduh Template Hapus File Excel VBA ini dari sini - VBA Delete File Excel Template.
