Ermitteln, ob die Datei existiert

Question

Ich möchte Arbeitsmappe bis zu Variable in der Archivliste öffnen.

Wenn ich die Datei nicht im Archiv habe, möchte ich, dass es ein Meldungsfeld anzeigt, aber es hat nicht funktioniert.

strVariable = Left(PictureNo, 4) 
d = "Teknik Resim Arsiv Listesi_" & strVariable & ".xls" 
Dim Ret 
Ret = Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & d) 

If Ret = False Then 
    MsgBox "Not Found" 
End If 

Answer 1

prüfen für die Existenz der Datei vor versuchen, sie zu öffnen:

strVariable = Left(PictureNo, 4) 
d = "Teknik Resim Arsiv Listesi_" & strVariable & ".xls" 
If Dir(ThisWorkbook.Path & Application.PathSeparator & d) = "" Then 
    MsgBox "Not Found" 
Else 
    Dim wb As Workbook 
    Set wb = Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & d) 
End If