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”

image 1

Để 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

image 2

image 3

===

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

image 4

  • 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ở

image 5

  • 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]