Làm cách nào để kiểm tra xem một tệp có tồn tại trong một thư mục sau đó xóa nó trong Excel không?
Trong hướng dẫn này, bạn sẽ học một tập lệnh VBA để kiểm tra xem một tệp nhất định có tồn tại trong một thư mục được chỉ định hay không, nếu có, sau đó xóa nó khỏi thư mục trong Excel.
Kiểm tra xem một tệp có tồn tại trong một thư mục không, sau đó xóa nó trong Excel bằng mã VBA
Tập lệnh VBA sau đây giúp kiểm tra xem một tệp nhất định có tồn tại trong một thư mục hay không và xóa tệp đó nếu có. Hãy làm như sau.
1. Trong sổ làm việc Excel đang mở, nhấn phím Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun, sau đó sao chép tập lệnh VBA sau vào Mô-đun (Mã) cửa sổ.
Mã VBA: Kiểm tra xem một tệp có tồn tại trong một thư mục được chỉ định không, sau đó xóa nó
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
Chú thích: Trong mã VBA, C:\Users\Win10x64Test\Desktop\lưu tệp đính kèm\aaa.xlsx là đường dẫn của tệp bạn muốn kiểm tra xem nó có tồn tại không. Trong ví dụ này, tôi muốn kiểm tra xem một tệp Excel có tên “aaa” tồn tại trong một thư mục có tên “lưu tệp đính kèm” trên máy tính để bàn. Bạn có thể thay đổi đường dẫn tệp và phần mở rộng tệp để đáp ứng nhu cầu của mình.
3. Nhấn nút F5 phím để chạy mã.
4. Nếu tệp tồn tại, bạn sẽ nhận được một Kutools cho Excel hộp thoại như trong ảnh chụp màn hình bên dưới. Nhấn vào OK để xóa tệp này khỏi thư mục.
Nếu tệp không tồn tại trong thư mục, một tệp khác Kutools cho Excel hộp thoại cũng sẽ bật lên để cảnh báo bạn.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!