Sub ErrDemo() 1010 On Error GoTo ErrorHandler ' Set up an error handler.1020 B 1: C 0 ' Initialize variables. 1030 A = B \ C ' Cause a "Division by zero" error. 1040 Exit Sub ErrorHandler: ' Error handler. ErrorNumber = Err ' Get run-time error number. ErrorLine = Erl ' Get line number. Resume Next ' Resume execution at next line. End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question