ファイルが存在するかどうかを確認します

Question

アーカイブリストの変数までワークブックを開きたいとします。

ファイルをアーカイブに保存していない場合は、メッセージボックスを表示しても機能しません。

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

それを開こうと前にファイルが存在するかどうかを確認：

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