出错时转到0不重置错误捕获

why*_*heq 8 error-handling excel vba excel-vba

我的印象是On Error GoTo 0重置错误处理.

那么为什么似乎On error resume next没有在以下注册?

Sub GetAction()
Dim WB As Workbook
Set WB = ThisWorkbook

On Error GoTo endbit:
'raise an error
Err.Raise 69
Exit Sub
endbit:
On Error GoTo 0 '<<<reset error handling?

On Error Resume Next
WB.Sheets("x").Columns("D:T").AutoFit
MsgBox "ignored error successfully and resumed next"    

End Sub
Run Code Online (Sandbox Code Playgroud)

Fra*_*ean 7

您需要使用On Error GoTo -1 Err.Clear重置错误捕获.

检查几个月前我发布的这个答案,以获得更详细的解释.