On Error Resume Next语句作用域测试与官方说明不符的技术疑问
关于VBA中On Error Resume Next作用域的测试解析
首先得理清微软文档里“当调用另一个过程时,On Error Resume Next语句会失效”这句话的真实含义——它指的是被调用过程不会继承调用者的错误处理规则,而不是说调用者的错误处理会被被调用过程修改甚至关闭。
你的测试代码逻辑拆解
我们一步步看代码执行流程:
CallingSub里先执行On Error Resume Next,开启本过程的错误捕获模式(遇到错误会跳过,不触发中断)。- 调用
CalledSub:此时CallingSub的错误处理上下文会被暂时挂起,CalledSub拥有独立的错误处理环境。你在CalledSub最后加的On Error Goto 0,作用是关闭**当前过程(也就是CalledSub)**的错误捕获,但CalledSub里本来就没开启过错误捕获,所以这行代码其实没产生任何实际效果。 CalledSub执行完毕返回CallingSub,此时CallingSub之前设置的On Error Resume Next会自动恢复生效。- 接下来执行
MsgBox 1/0,因为CallingSub的错误捕获还在生效,所以这个除以零的错误被直接跳过,不会触发中断——这就是你看到的现象。
微软文档描述的“失效”场景
文档说的“失效”,其实是指在被调用过程内部,调用者的错误处理规则不生效。举个例子,如果把CalledSub改成这样:
Sub CalledSub () MsgBox 1/0 ' 这里的错误不会被CallingSub的On Error Resume Next捕获 End Sub
此时运行CallingSub,CalledSub里的除以零错误会直接触发中断,因为CalledSub自己没有设置错误处理,调用者的On Error Resume Next在被调用过程内部是“失效”的,这才是文档想要表达的意思。
关键结论
On Error系列语句的作用范围是当前过程,但过程调用时,调用者的错误处理会被暂时挂起,被调用过程结束后自动恢复。On Error Goto 0只会关闭它所在过程的错误捕获,不会影响调用者的错误处理状态。
内容的提问来源于stack exchange,提问作者stranno strannovasrr
相关产品推荐
相关产品推荐

