Bagaimana cara memeriksa apakah ada file di folder lalu menghapusnya di Excel?
Dalam tutorial ini, Anda akan mempelajari skrip VBA untuk memeriksa apakah file tertentu ada di folder tertentu, jika ya, hapus dari folder di Excel.
Periksa apakah ada file di folder lalu hapus di Excel dengan kode VBA
Skrip VBA berikut membantu memeriksa apakah file tertentu ada di folder dan menghapusnya jika ada. Silakan lakukan sebagai berikut.
1. Dalam buku kerja Excel yang terbuka, tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul, lalu salin skrip VBA berikut ke dalam Modul (Kode) jendela.
Kode VBA: Periksa apakah ada file di folder tertentu lalu hapus
Sub CheckFileThenDelete()
'Updated by Extendoffice 20221024
Dim FilePath As String
FilePath = "C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx"
If Dir(FilePath) <> "" Then
MsgBox "The file exists in the folder, click the OK button to delete it.", vbInformation, "Kutools for Excel"
Kill FilePath
Else
If Dir(FilePath) = "" Then
MsgBox "The file does not exist.", vbInformation, "Kutools for Excel"
End If
End If
End Sub
Note: Dalam kode VBA, C:\Users\Win10x64Test\Desktop\simpan lampiran\aaa.xlsx adalah jalur file yang ingin Anda periksa apakah ada. Dalam contoh ini, saya ingin memeriksa apakah file Excel bernama “aaa” ada di folder bernama “menyimpan lampiran” di desktop. Anda dapat mengubah jalur file dan ekstensi file untuk memenuhi kebutuhan Anda.
3. tekan F5 kunci untuk menjalankan kode.
4. Jika file tersebut ada, Anda akan mendapatkan a Kutools untuk Excel kotak dialog seperti yang ditunjukkan pada tangkapan layar di bawah ini. Klik OK tombol untuk menghapus file ini dari folder.
Jika file tersebut tidak ada di folder, yang lain Kutools untuk Excel kotak dialog juga akan muncul untuk mengingatkan Anda.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!