On Error Goto 语句,为什么

[cqnucsmoon]

我有一段代码:
On Error Goto ErrorHandle

...............
..................
ErrorHandle:
select case err.number
case 3021
......
case else'这一句本想捕获其它错误的,但没有错误时也执行下面一句(弹出窗口),怎么 解决呢
msgbox "其它错误"
end select

[tollers]

On Error Goto ErrorHandle

...............
..................
goto ExitTheSub

ErrorHandle:
select case err.number
case 3021
......
case else'这一句本想捕获其它错误的,但没有错误时也执行下面一句(弹出窗口),怎么 解决呢
msgbox "其它错误"
end select

ExitTheSub:
........

[MoQi_123]

看你的程序是否在ErrorHandle:语句前写了退出语句.即Exit Sub(或Exit Function)

如果是,更正为

On Error GoTo ErrorHandle
.....
.....
Exit Sub ''或Exit Function

ErrorHandle:
Select case err.Number
case 0000
case 0001
case else
msgbox "Other Error"
End Select
End Sub ''或End Function

[cqnucsmoon]

哦明白了
谢谢
结帐我