Xác định xem sổ làm việc có tồn tại bằng VBA trong Microsoft Excel hay không
Trong Microsoft Excel, chúng ta có thể kiểm tra xem tệp có tồn tại ở vị trí cụ thể hay không bằng cách sử dụng mã VBA. Macro sẽ hiển thị trạng thái dưới dạng hộp thông báo. Trong bài viết này, chúng tôi sẽ xác định xem trạng thái của bất kỳ tệp cụ thể nào có tồn tại hay không, với sự trợ giúp của mã VBA. Chúng ta có thể sử dụng hàm Dir để kiểm tra xem tệp có tồn tại trong Vị trí hay không bằng Excel VBA.
Sử dụng chương trình này, chúng tôi có thể kiểm tra xem có tệp nào tồn tại ở cùng vị trí hay không. Vì vậy, chúng ta có thể xóa hoặc đổi tên tệp cũ.
===
Câu hỏi: Khi chúng tôi đang tạo macro để tự động hóa tác vụ, chúng tôi thường lưu tệp đầu ra ở một vị trí. Tôi muốn có một macro để xác minh và đổi lại hiển thị tệp có sẵn hay không tại đường dẫn cụ thể.
Để minh họa ví dụ này, chúng tôi sẽ lưu tệp “Sample.xlsx” trong đường dẫn “D: \ FolderName \ Sample.xlsx”
Để xác định xem sổ làm việc có tồn tại hay không, chúng ta cần làm theo các bước sau để khởi chạy trình soạn thảo VB:
Nhấp vào tab Nhà phát triển Từ nhóm Mã chọn Visual Basic
===
Nhấp vào Chèn rồi nhấp vào Mô-đun Thao tác này sẽ tạo mô-đun mới * Nhập mã sau vào Mô-đun chuẩn
Sub FileExists() Dim FilePath As String Dim TestStr As String FilePath = "D:\FolderName\Sample.xlsx" TestStr = "" On Error Resume Next TestStr = Dir(FilePath) On Error GoTo 0 If TestStr = "" Then MsgBox "File doesn't exist" Else Workbooks.Open "D:\FolderName\Sample.xlsx" End If End Sub
-
Bây giờ macro đã được thiết lập để chạy, chúng tôi sẽ sử dụng phím tắt F5 và tệp “Mẫu” sẽ mở
-
Nếu tệp không có sẵn theo đường dẫn được xác định trước thì hộp thông báo sau sẽ hiển thị
Nếu bạn thích blog của chúng tôi, hãy chia sẻ nó với bạn bè của bạn trên Facebook. Và bạn cũng có thể theo dõi chúng tôi trên Twitter và Facebook.
Chúng tôi rất muốn nghe ý kiến từ bạn, hãy cho chúng tôi biết cách chúng tôi có thể cải thiện, bổ sung hoặc đổi mới công việc của mình và làm cho nó tốt hơn cho bạn. Viết thư cho chúng tôi tại [email protected]