Cần viết Code hiện Msgbox là "Không tồn tại File A.xls" trong máy tính (1 người xem)

[hung2412]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tôi có 1 File Excel tên là A.xls nằm trong máy tính theo đường dẫn D:\Cong viec\A.xls. Để mở File A.xls, tôi xài Code như sau:

Workbooks.Open Filename:="D:\Cong viec\A.xls"

=> Vấn đề được đặt ra ở đây là: Nếu không tồn tại File A.xls theo đường dẫn D:\Cong viec\A.xls thì khi chạy Code trên sẽ hiện ra Msgbox là "Không tồn tại File A.xls"
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!

 

[vu_tuan_manh_linh]

Có một cách là sử dụng bẫy lỗi On Error Goto Tbao
Tbao:
Msgbox "Khong ton tai File A.xls"

 

[dhn46]

Bạn dùng cái này

Sub FileExists()
Dim fPath As String
fPath = "D:\Cong viec\A.xls"
    With CreateObject("Scripting.FileSystemObject")
        If .FileExists(fPath) = False Then
            MsgBox "File khong ton tai", vbInformation, "dhn46"
        End If
    End With
End Sub

 

[Kiều Mạnh]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tôi có 1 File Excel tên là A.xls nằm trong máy tính theo đường dẫn D:\Cong viec\A.xls. Để mở File A.xls, tôi xài Code như sau:

Workbooks.Open Filename:="D:\Cong viec\A.xls"

=> Vấn đề được đặt ra ở đây là: Nếu không tồn tại File A.xls theo đường dẫn D:\Cong viec\A.xls thì khi chạy Code trên sẽ hiện ra Msgbox là "Không tồn tại File A.xls"
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!

Có cả một đống cách làm cho Bạn một cách

Sub Check_File()
Dim FileName As String
FileName = "D:\A.xls"''Thay doi lai duong dan File
With CreateObject("Scripting.FileSystemObject")
    If .FileExists(FileName) Then
        Workbooks.Open (FileName)
    Else
        MsgBox "File khong ton tai", 64, "Thong Bao"
    End If
End With
End Sub