Cara menghapus file menggunakan vba (dengan contoh)

Anda dapat menggunakan pernyataan Kill di VBA untuk menghapus file Excel tertentu di folder tertentu.

Berikut adalah cara umum untuk menggunakan pernyataan ini dalam praktik:

 SubDeleteFile ()

    On Error Resume Next
    Kill "C:\Users\Bob\Desktop\My_Data\soccer_data.xlsx"
    On Error GoTo 0

End Sub

Makro khusus ini menghapus file Excel bernama Soccer_data.xlsx yang terletak di folder berikut:

C:\Pengguna\Bob\Desktop\Data_Saya

Baris On Error Resume Next memberitahu VBA bahwa jika terjadi kesalahan dan file tidak ditemukan, tidak ada pesan kesalahan yang ditampilkan.

Kami kemudian menggunakan On Error GoTo 0 untuk mengatur ulang pesan kesalahan ke pengaturan default.

Jika Anda ingin menampilkan pesan kesalahan jika file tidak ditemukan, cukup hapus dua baris ini dari kode.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Menghapus File Menggunakan VBA

Misalkan kita memiliki folder berikut yang berisi tiga file Excel:

Katakanlah kita ingin menggunakan VBA untuk menghapus file bernama Soccer_data.xlsx .

Kita dapat membuat makro berikut untuk melakukan ini:

 SubDeleteFile ()

    On Error Resume Next
    Kill "C:\Users\Bob\Desktop\My_Data\soccer_data.xlsx"
    On Error GoTo 0

End Sub

Setelah kita menjalankan makro ini dan membuka foldernya lagi, kita akan melihat bahwa file bernama football_data.xlsx telah dihapus:

Semua file lainnya tetap utuh di folder tersebut.

Jika Anda ingin menampilkan pesan kesalahan jika file tidak ada, Anda dapat menggunakan makro berikut:

 SubDeleteFile ()

    Kill "C:\Users\Bob\Desktop\My_Data\soccer_data.xlsx"

End Sub

Saat kami menjalankan makro ini, kami menerima pesan kesalahan berikut:

Kami menerima pesan kesalahan ini karena file football_data.xlsx telah dihapus dan tidak ada lagi di folder tersebut.

Catatan : Perlu diketahui bahwa pernyataan Kill menghapus file secara permanen dan tidak hanya mengirimkannya ke Sampah.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menghitung jumlah lembar dalam buku kerja
VBA: Cara mengekstrak data dari buku kerja lain
VBA: Cara menghapus sheet jika namanya mengandung teks tertentu