Khi bạn đang lập trình macro của mình, bạn có thể cần xác định xem một tệp cụ thể có tồn tại trên đĩa hay không. Ví dụ, mục đích của macro của bạn có thể là để mở và đọc từ một tệp văn bản. Trước khi làm như vậy, bạn sẽ muốn kiểm tra xem tệp có tồn tại hay không để tránh xảy ra lỗi.

Hàm VBA sau có thể được sử dụng để kiểm tra sự tồn tại của tệp. Tất cả những gì bạn cần làm là chuyển cho nó tên tệp đầy đủ dưới dạng một chuỗi và macro trả về True (nếu tệp tồn tại) hoặc False (nếu không có).

Function FileThere(FileName As String) As Boolean      FileThere = (Dir(FileName) > "")

End Function

Hàm này hoạt động bằng cách sử dụng hàm Dir, hàm này kiểm tra tệp trong thư mục. Nếu tệp tồn tại, thì Dir trả về đường dẫn đầy đủ của tệp. Điều kiện Đúng / Sai của hàm được suy ra bằng cách so sánh những gì Dir trả về với một chuỗi trống. Nếu một thứ gì đó được trả về, tệp sẽ tồn tại vì Dir không trả về một chuỗi trống.

Bạn có thể sử dụng chức năng tương tự như sau:

If FileThere("c:\myfile.txt") Then      '      ' Do stuff here      ' Else      MsgBox "File Not There!"

End If

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (2516) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: