[VBA函数]：”无错误恢复“

xsquan

请问在vb中出现了“无错误恢复”，这样的错误，怎么样处理？

On Error GoTo xuan8
－－－－
－－
一些内容
－－－－－
xuan8:
     
      MsgBox Err
      MsgBox "选择的等高线中有不是多义线的等高线,将退出画断面的命令！", vbCritical
      Exit Sub
在程序内容中我调试的时候知道是没有出错的，但为什么还是到最后会执行xuan8：这里的内容？

i_want_2

应该是这样：


On Error GoTo xuan8
－－－－
－－
一些内容
－－－－－

Exit Sub  

xuan8:

MsgBox Err
MsgBox "选择的等高线中有不是多义线的等高线,将退出画断面的命令！", vbCritical
Exit Sub

xsquan

我知道了，是不是用on error goto 就要有exit sub

efan2000

On Error GoTo Label，表示发生错误时转到Label指定的地方去执行，那儿一般都是错误处理语句，通常它们跟其它语句等价，也都属于过程或者函数的一部分，并没有本质上的区别，要让这些语句不执行，就要跳过它，可以在它之前用Exit Sub（过程中）或者Exit Function（函数）提前结束，或者放到一个条件语句If Err.Number<>0 Then...End If中，表示错误发生时才执行。