ブックを開いて、失敗すると終了する/中止する

Question

マクロのバックグラウンドでwoorkbookを開こうとしています。ユーザーが開いているファイルのダイアログボックスを終了すると、私はもちろん、プログラムを終了します。

しかし、そうやって失敗したのあらゆる試み...私がこれまで試したどのような

' Get the file to open 
tempFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls") 

：私は常に「型の不一致」エラーを取得

' Catch abort of the open file dialog 
If IsEmpty(tempFile) Then 
    End 
End If 
' Catch abort of the open file dialog 
If IsEmpty(tempFile) Or Not tempFile Then 
    End 
End If 
' Catch abort of the open file dialog 
If IsEmpty(tempFile) Or Not CBool(tempFile) Then 
    End 
End If 
' Catch abort of the open file dialog 
If IsEmpty(tempFile) Or tempFile Like "false" Then 
    End 
End If 

、どんな。また

Answer 1

dim tempFile 
tempFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls") 
if tempFile = False then 
    'user cancelled the dialog. exit the code 
else 
    msgbox "User wants to open the file at : " & tempFile 
end if 

Answer 2

、あなたはおそらく行うには正しいことだ

dim tempFile as String 

を...行う場合は、あなたがこのようなチェックをしなければならないので注意してください：

If tempFile = "False" Then 

は穀物に逆らっていますが、機能します。