[已解决]请问，能否在error时调用某个错误处理过程

mansohu

比如
sub A
    on error  call ErrSub    '当然这是不对了，怎么能实现这个需求呢？
    ……
end sub

sub ErrSub
          msgbox  err.number
          end
end  sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-1 14:51

1. Sub test()
   
2.     On Error GoTo xxx
   
3.     Debug.Print 5 / 0
   
4.     Exit Sub
   
5. xxx:
   
6.     Call err1
   
7. End Sub
   
8. 
   
9. Sub err1()
   
10.     MsgBox Err.Number & vbCrLf & Err.Description
    
11. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

on error goto xxx
xxx:
     call 过程

hwc2ycy

1. Sub test()
   
2.     On Error GoTo xxx
   
3.     Debug.Print 5 / 0
   
4.     Exit Sub
   
5. xxx:
   
6.     Call err1
   
7. End Sub
   
8. 
   
9. Sub err1()
   
10.     MsgBox Err.Number & vbCrLf & Err.Description
    
11. End Sub

复制代码