On Error Goto 语句,为什么

Question

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

Answer 1

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

Answer 2

看你的程序是否在ErrorHandle:语句前写了退出语句.即Exit Sub(或Exit Function)如果是,更正为On Error GoTo ErrorHandle
.....
.....
Exit Sub ''或Exit FunctionErrorHandle:
   Select case err.Number
         case 0000
         case 0001
         case else
              msgbox "Other Error"
   End Select 
End Sub  ''或End Function