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. Kita bisa membuka file dari folder lain di komputer, kita bisa bekerja dengannya, dan sekarang kita bisa menghapus file juga 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 bekerja dengan 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 kami 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-file itu.
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.
Tanda bintang (*) berguna untuk mencocokkan string apa pun dengan panjang berapa pun bahkan nol yang 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 Tempel dalam tanda kutip ganda.
Matikan "E: \ Excel Files"
Sekarang letakkan satu garis miring ke belakang (\) dan masukkan nama file dengan ekstensi.
Matikan "E: \ Excel Files \ File5.xlsx"
Ketika Anda menjalankan kode ini, ini 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 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 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 untuk menghapus folder 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, ia tidak dapat menghapusnya.
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 fungsi "Dir $" & "SetAttr". Di bawah ini adalah contoh kode untuk menghapus file read-only juga.
Kode:
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
