Hướng dẫn tự động hóa Office hôm nay tập trung vào việc tìm hiểu cách xác minh rằng tệp tồn tại trong một trong các thư mục máy tính của bạn.
Sự chuẩn bị
Nếu bạn chưa quen với việc viết mã, hãy đảm bảo rằng tab phát triển Microsoft Office Excel được bật và bạn đã quen với một số VBA Excel cơ bản .
Kiểm tra xem tệp có tồn tại bằng Excel VBA không
Đoạn mã sau sử dụng các hộp đầu vào để lấy đường dẫn đến tệp cũng như tên tệp từ chính người dùng.
Sau đó, nó sử dụng phương thức Dir để xác minh xem đường dẫn tệp có thực sự tồn tại hay không.
Cuối cùng, nó hiển thị một hộp thông báo cho người dùng với kết quả kiểm tra.
Sub Check_file_exists()
Dim NameDir As String
Dim NameFile As String
'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")
'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
MsgBox ("File doesn't exist")
Else
MsgBox ("File exists")
End If
End Sub
Kiểm tra xem thư mục có tồn tại không
Theo cách tương tự, bạn có thể kiểm tra xem một thư mục cụ thể có tồn tại trong hệ điều hành của mình hay không. Ngoài ra, ở đây chúng tôi sử dụng phương thức Dir , nhưng với tham số vbDirectory .
Sub Check_folder_exists()
Dim NameDir As String
NameDir = InputBox("Enter file directory")
If (Dir(NameDir, vbDirectory)) = "" Then
MsgBox ("Folder doesn't exist")
Else
MsgBox ("Folder exists")
End If
End Sub
Sử dụng mã
- Mở Microsoft Excel và điều hướng đến sổ làm việc của bạn.
- Nhấn Nhà phát triển và sau đó nhấn Visual Basic.
- Sao chép và Dán mã từ phía trên dưới dạng chương trình con trong một trang tính cụ thể của mô-đun VBA của bạn.
- Chạy (F5) mã.
- Lưu sổ làm việc của bạn.
Các phần mở rộng có thể có
Mã tấm lò hơi trên một được mở rộng cho các trường hợp sử dụng sau:
- Tạo một thư mục / tệp nếu nó chưa tồn tại.
- Xóa tệp thư mục miễn là chúng có trong thư mục tệp hệ điều hành của bạn.
- Tìm kiếm tệp / thư mục bằng ký tự đại diện.