Metode 1: Hapus semua file dalam folder<\/strong><\/span><\/p>\n Makro khusus ini akan menghapus semua file di folder bernama My_Data<\/strong> .<\/span><\/p>\n Metode 2: hapus seluruh folder<\/strong><\/span><\/p>\n Makro khusus ini akan menghapus seluruh folder My_Data<\/strong> sehingga tidak ada lagi.<\/span><\/p>\n Baris On Error Resume Next<\/strong> memberitahu VBA bahwa jika terjadi kesalahan dan folder tidak ditemukan, tidak ada pesan kesalahan yang ditampilkan.<\/span><\/p>\n Kami kemudian menggunakan On Error GoTo 0<\/strong> untuk mengatur ulang pesan kesalahan ke pengaturan default.<\/span><\/p>\n Jika Anda ingin menampilkan pesan error jika folder tidak ditemukan, cukup hapus dua baris ini dari kode.<\/span><\/p>\n Contoh berikut memperlihatkan cara menggunakan masing-masing metode dalam praktik dengan folder berikut bernama My_Data<\/strong> yang berisi tiga file Excel:<\/span> <\/p>\n Katakanlah kita ingin menggunakan VBA untuk menghapus semua file dari folder bernama My_Data<\/strong> .<\/span><\/p>\n Kita dapat membuat makro berikut untuk melakukan ini:<\/span><\/p>\n Setelah kita menjalankan makro ini dan membuka folder itu lagi, kita akan melihat bahwa semua file telah dihapus:<\/span> <\/p>\n Jika Anda ingin menggunakan VBA untuk menghapus seluruh folder bernama My_Data<\/strong> agar tidak ada lagi, Anda dapat membuat makro berikut:<\/span><\/p>\n Setelah kita menjalankan makro ini dan membuka File Explorer, kita akan melihat bahwa folder bernama My_Data<\/strong> sudah tidak ada lagi:<\/span> <\/p>\n Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:<\/span><\/p>\n VBA: Cara menghitung jumlah lembar dalam buku kerja<\/a> Anda dapat menggunakan metode berikut di VBA untuk menghapus folder: Metode 1: Hapus semua file dalam folder Sub DeleteFolderContents() On Error Resume Next Kill \u201c C:\\Users\\bobbi\\Desktop\\My_Data\\*.* \u201d On Error GoTo 0 End Sub Makro khusus ini akan menghapus semua file di folder bernama My_Data . Metode 2: hapus seluruh folder SubDeleteFolder () On Error Resume […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"yoast_head":"\n Sub<\/span> DeleteFolderContents()\n \n On Error Resume Next<\/span>\n Kill \u201c C:\\Users\\bobbi\\Desktop\\My_Data\\*.*<\/span> \u201d\n On Error GoTo 0<\/span>\n\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n SubDeleteFolder<\/span> ()\n \n On Error Resume Next<\/span>\n \n 'delete all files in folder<\/span>\n Kill \u201c C:\\Users\\bobbi\\Desktop\\My_Data\\*.*<\/span> \u201d\n \n 'delete empty folder<\/span>\n RmDir \" C:\\Users\\bobbi\\Desktop\\My_Data\\<\/span> \"\n \n On Error GoTo 0<\/span>\n\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/delfiles1.jpg\")
<\/p>\n Contoh 1: Hapus Semua File di Folder Menggunakan VBA<\/strong><\/span><\/h2>\n
Sub<\/span> DeleteFolderContents()\n \n On Error Resume Next<\/span>\n Kill \u201c C:\\Users\\bobbi\\Desktop\\My_Data\\*.*<\/span> \u201d\n On Error GoTo 0<\/span>\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/delfolder1.jpg\")
<\/p>\n Contoh 2: Hapus seluruh folder menggunakan VBA<\/strong><\/span><\/h2>\n
SubDeleteFolder<\/span> ()\n \n On Error Resume Next<\/span>\n \n 'delete all files in folder<\/span>\n Kill \u201c C:\\Users\\bobbi\\Desktop\\My_Data\\*.*<\/span> \u201d\n \n 'delete empty folder<\/span>\n RmDir \" C:\\Users\\bobbi\\Desktop\\My_Data\\<\/span> \"\n \n On Error GoTo 0<\/span>\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/delfolder2.jpg\")
<\/p>\n Sumber daya tambahan<\/strong><\/span><\/h2>\n
VBA: Cara mengekstrak data dari buku kerja lain
VBA: Cara menghapus sheet jika namanya mengandung teks tertentu<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"