第三种形式, On Error Goto <label>:,是最常用的方式。这个语句告诉VBA,当出现异常的时候,跳到Label标识的异常处理块去执行。例如: OnErrorGotoErrHandler: N =1/0'cause an error ' 'more code ' ExitSub ErrHandler: 'error handling code ResumeNext End Sub 请注意Exit Sub语句的作用,它会隔开正常的程序...
在Excel VBA中,常用的错误处理语句是On Error语句。通过使用On Error语句,我们可以指定在程序执行过程中遇到错误时应该执行的操作。常见的On Error语句有以下几种形式: On Error Resume Next:当程序遇到错误时,跳过错误继续执行下一条语句。 On Error GoTo 0:取消错误处理,将错误交给系统默认的错误处理机制。 On Er...
Exit Sub/Function(如果没有这条语句,即使没有错误也会执行错误处理语句) Err_Handle: 语句 xxxxxx 2、举例: Sub 查找数字() ’本段代码查找电子表格中有没有数字12 On Error GoTo Err_Handle MsgBox Cells.Find(12).Address Exit Sub '如果没有这个退出过程语句,会一直执行下去 Err_Handle: MsgBox ("不存...
Application.ScreenUpdating = True'禁止运行程序过程,放在程序结尾 Exit 'Sub'退出’Sub子过程 On error resume next'如果发生错误,忽略继续执行。 On error goto 1'如果发生错误,跳到自动区域。1: Application.CutCopyMode = False'设置不处于复制模式,防止提醒 Application.DisplayAlerts = False'在程序执行过程中使...
On Error GoTo 0 '保存并关闭当前工作簿 ActiveWorkbook.SaveAs Filename:=strFile ActiveWorkbook.Close End Sub 在Kill语句之前,使用了On Error Resume Next语句,如果要删除的文件不存在,则会忽略由此而导致的错误,继续执行下一行代码On Error GoT...
VBA默认错误处理是On Error GoTo 0, 就是当出现问题时候, 显示错误. 按OK可直接退出 或者按debug进入VBE debug. 这样对用户当然是不大友好, 对码code的人又有点信息不足. 写自定义错误处理, 我们有两个常用选择: On ErrorGoTolabel/Line :有错误的时候跳到标签或者行 ...
一、On Error GoTo 语法: On Error Go To 指定位置的代码 代码 Exit Sub 指定位置的代码 举例: 新建一个工作簿,打开VBE,插入模块,输入以下代码,运行 Sub 删除工作表() On Error GoTo skip Sheets('销售').Delete Exit Sub skip: MsgBox '工作簿中无此工作表' ...
VBA默认错误处理是On Error GoTo 0, 就是当出现问题时候, 显示错误. 按OK可直接退出 或者按debug进入VBE debug. 这样对用户当然是不大友好, 对码code的人又有点信息不足. 写自定义错误处理, 我们有两个常用选择: On ErrorGoTolabel/Line :有错误的时候跳到标签或者行 ...
1 打开Excel表格，点击【开发工具】，【Visual Basic】打开VBA编辑器，也可以使用【Alt+F11】组合键打开VBA编辑器。（如果已经打开VBA编辑器，则忽略此步）2 在VBA编辑器上面点击【插入】，【模块】。（如果已经插入模块，则忽略此步）3 在VBA编辑器代码框里面输入以下VBA代码程序：Sub ExitWorkbook()On Error ...
On Error GoTo line On Error Resume Next On Error GoTo 0 On Error语句的语法可以具有以下任何一种形式: On Error GoTo line启动错误处理程序,且从必要的line参数中指定的line开始。line参数可以是任何行标签或行号。如果发生一个运行时错误,则控件会跳到line,激活错误处理程序。指定的line必须在一个过程中,这个...