1.跳转到指定位置: vba Sub GotoExample() '跳转到Label1位置 GOTO Label1 '这段代码将被跳过 MsgBox "这是Label1下的一段代码" Exit Sub Label1: '这里是Label1的位置 MsgBox "这是Label1处的代码" End Sub 2.异常处理: vba Sub ExceptionExample() On Error GoTo ErrorHandler '设置异常处理程序 '代...
gosub 和 goto 区别,就是 gosub 带 return 语法结构1 gosub subname1 subname1: return '返回之前gosub位置的下一句 语法结构2 goto label1 label1:
1 Dim timeOut As Date 2 3 '把现在的时间加上20秒 4 timeOut = Now + TimeSerial(0, 0, 20) 5 6 Do While objIE.Busy = True Or objIE.readyState <> 4 7 DoEvents 8 Sleep 1 9 If Now > timeOut Then 10 '跳转到label01 11 GoTo label01 12 End If 13 Loop 14 15 label01: 16 ...
23 If Now > timeOut Then 24 '跳转到label02 25 GoTo label02 26 End If 27 Loop 28 29 label02: 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. ■改良版的例程序 下面是网页加载完成之前进行等待...
1、On Error GoTo Label:当代码遇到错误时,执行流程将跳转到指定的标签(Label),在那里你可以编写错误处理代码。 2、On Error Resume Next:忽略错误,继续执行下一条语句。 3、On Error GoTo 0:关闭错误处理,当错误发生时,VBA将显示标准的错误消息框。
Sub GotoLabel() Dim x As Long Dim y As Long On Error GoTo errH x = 6 y = 6 / 0 x = 7 Done: Exit Sub errH: MsgBox "发生了错误: "& Err.Description EndSub 运行代码的结果如下图5所示。 图5 运行上述VBA代码,代码执行到以0作为除数这一行时,发生错误,代码跳至On Error GoTo 语句指...
首先,我们将讨论VBA GOTO语句的第一种用法,即无条件跳转。无条件跳转意味着无论在任何情况下,程序都将跳转到指定的代码行或标签处执行代码。下面是一个简单的示例,演示了如何使用VBA GOTO语句进行无条件跳转: Sub GotoExample() MsgBox"Step 1" Goto MyLabel MsgBox "Step 2" MyLabel: MsgBox "Step 3" End ...
On Error GoTo [Label]语句将执行流程跳转到指定的标签处。这通常用于在发生错误时执行特定的错误处理代码。 1.2 Err对象 Err对象用于访问有关最近一次发生的错误的信息。它包含了以下几个常用的属性。 1.2.1 Number Number属性返回一个错误代码,用于标识特定类型的错误。 1.2.2 Description Description属性返回一个描...
VBA默认错误处理是On Error GoTo 0, 就是当出现问题时候, 显示错误. 按OK可直接退出 或者按debug进入VBE debug. 这样对用户当然是不大友好, 对码code的人又有点信息不足. 写自定义错误处理, 我们有两个常用选择: On ErrorGoTolabel/Line :有错误的时候跳到标签或者行 ...
On Error GoTo Label语句用于指定错误处理的跳转标签。当执行到On Error GoTo Label语句时,如果发生错误,将会跳转到指定的标签处继续执行。 3.4. On Error GoTo -1 On Error GoTo -1语句用于恢复默认的错误处理行为。当执行到On Error GoTo -1语句时,将会恢复默认的错误处理行为,即将错误抛出给系统默认的错误处理...