excel - VBA On Error 语句执行时没有错误

Question

我使用下面的简单代码来处理错误。没有错误的情况下为什么会出现msgbox？如何让消息框只在出现错误时才出现？

Sub Test()
On Error GoTo ErrHandler
On Error GoTo 0


'rest of the code is here

ErrHandler:
MsgBox "Please make sure the file exists in the current folder."
Exit Sub
End Sub

Answer 1

您应该在实际错误处理程序之前添加一个退出，并在显示对话框后恢复默认错误处理。 (第一个错误 goto 0 可能放错了位置)。

Sub Test()
On Error GoTo ErrHandler


'rest of the code is here

'Exit before error handlers
Exit Sub

ErrHandler:
  MsgBox "Please make sure the file exists in the current folder."
  ' Reset error handler
  On Error GoTo 0
  Exit Sub
End Sub