精华内容
下载资源
问答
  • 在Word、Excel乃至其他支持VBA的Office组件中,在代码中处理错误的方式通常都是使用“On Error Goto错误标签”语句,然后在代码的后面添加错误标签及其中包含的错误处理代码。下面总结了创建错误处理程序的步骤: ...

      在 Word 、 Excel 乃至其他支持 VBA 的 Office 组件中,在代码中处理错误的方式通常都是使用“ On Error Goto 错误标签”语句,然后在代码的后面添加错误标签及其中包含的错误处理代码。下面总结了创建错误处理程序的步骤:

      ( 1 )在过程中可能导致错误的代码行的前面添加错误处理语句 On Error Goto ErrHandler ,其中的“ ErrHandler ”为自定义的错误标签名称。

      ( 2 )在有可能导致错误的代码行后面添加取消错误处理的语句 On Error Goto 0 ,这样当遇到错误时,就不会跳转到指定的错误标签处,而是直接显示错误提示窗口,其中包括【调试】、【结束】等按钮。

      ( 3 )在宏的末尾(正常程序的末尾)添加代码行 Exit Sub ,这样可以避免程序未发生错误时执行错误处理程序。

      ( 4 )在代码行 Exit Sub 的下一行添加一个错误标签,该标签由名称和冒号组成,例如“ MyErr”。

      ( 5 )在错误标签的下一行编写错误处理代码。如果要返回导致错误的代码行后面的代码行,可以使用 Resume Next 语句。

      注意:可以在过程的末尾添加多个错误处理程序,但必须确保每个错误处理程序都以Resume Next 或 Exit Sub 语句结束,这样可以避免从当前错误程序之后继续执行其后的错误处理程序。

      举一个简单的例子可能会更直观地反映出上面所说的内容。在下面的代码中,当检测到工作簿中没有指定的工作表时,将出现错误,并执行错误代码,显示一个包含错误号与错误描述的对话框。

     1 Sub 检测工作表是否存在 ()
     2 
     3     Dim wksname As String, msg As String
     4 
     5     On Error GoTo MyErr
     6 
     7     wksName = Worksheets("sx").Name
     8 
     9     MyErr:
    10 
    11     msg = " 错误 " & Err.Number & "" & Err.Description
    12 
    13     MsgBox msg
    14 
    15 End Sub

       注意:无论在导致问题的代码行前面使用 On Error Resume Next 语句还是“ On Error Goto 标签”语句,要想让程序重新获取其他错误信息,则都必须在导致问题的代码行后面使用 On Error Goto 0 语句恢复正常的错误捕获状态。否则当前的错误处理程序将对后面的所有错误都起作用。例如,下面的代码由于没有使用 On Error Goto 0 语句,因此,在后面遇到错误时(两次 x/y ),都会转到标签 MyErr 处执行错误处理程序。

    Sub ErrTest()
    
        Dim x As Integer, y As Integer, z As Single
    
        x = 1
    
        y = 0
    
        On Error GoTo MyErr
    
        MsgBox x / y
    
        MsgBox x / y
    
        MsgBox " 继续执行错误代码行的下一行代码 "
    
        Exit Sub
    
    MyErr:
    
        MsgBox " 第 1 次:除数不能为 0"
    
        Resume Next   
    
    End Sub

     

      而下面的代码由于及时使用了 On Error Goto 0 语句,因此,在第 2 次错误发生时(即第 2 个 x/y ),系统将显示内置错误消息,而不是运行 MyErr 标签处的代码。

     1 Sub ErrTest1()
     2 
     3     Dim x As Integer, y As Integer, z As Single
     4 
     5     x = 1
     6 
     7     y = 0
     8 
     9     On Error GoTo MyErr
    10 
    11     MsgBox x / y
    12 
    13     On Error GoTo 0
    14 
    15     MsgBox x / y
    16 
    17     MsgBox " 继续执行错误代码行的下一行代码 "
    18 
    19     Exit Sub
    20 
    21 MyErr:
    22 
    23     MsgBox " 第 1 次:除数不能为 0"
    24 
    25     Resume Next
    26 
    27 End Sub

     

      下面的代码虽然未使用 On Error Goto 0 语句,但是在第 2 个错误发生前,添加了第2 个错误标签,因此,两个错误处理程序分别处理各自的错误。

     1 Sub ErrTest2()
     2 
     3     Dim x As Integer, y As Integer, z As Single
     4 
     5     x = 1
     6 
     7     y = 0
     8 
     9     On Error GoTo MyErr1
    10 
    11     MsgBox x / y
    12 
    13     On Error GoTo MyErr2
    14 
    15     MsgBox x / y
    16 
    17     MsgBox " 继续执行错误代码行的下一行代码 "
    18 
    19     Exit Sub
    20 
    21 MyErr1:
    22 
    23     MsgBox " 第 1 次:除数不能为 0"
    24 
    25     Resume Next
    26 
    27 MyErr2:
    28 
    29     MsgBox " 第 2 次:除数不能为 0"
    30 
    31     Resume Next
    32 
    33 End Sub

      以上 3 段代码在执行完错误处理程序后,都会返回发生错误的代码之后继续执行。对于本例来说,在执行完错误处理程序后,都会继续执行“ MsgBox " 继续执行错误代码行的下一行代码 " ”代码行。

      虽然我们不希望在程序运行时出现错误,但是有些时候我们可以利用错误来提高代码的效率。例如,当用户由于某些原因将工作簿中的某个工作表删除,如果 VBA 程序中包括操作该工作表的代码,那么当用户运行该程序时,将导致错误发生。此时,可以利用错误来检测要操作的工作表是否存在于工作簿中。代码如下:

     1 Sub 检测工作表是否存在()
     2 
     3     Dim WksName As String
     4 
     5     On Error Resume Next
     6 
     7     WksName = Worksheets("sx").Name
     8 
     9     If Err.Number <> 0 Then
    10 
    11         MsgBox prompt:=" 此工作簿中未找到工作表 sx", Title:=" 错误 "
    12 
    13     End If
    14 
    15     On Error GoTo 0
    16 
    17 End Sub

     

      注意:当使用 On Error Resume Next 语句后,应该及时在可能导致错误的代码行之后使用 On Error Goto 0 语句恢复错误的捕获,即恢复到错误检查的正常状态,以便可以获悉其他任何可能发生的错误。另外,如果使用 On Error Resume Next 语句忽略了无法忽略的错误,将会立刻结束当前运行的过程。而更糟糕的是,如果宏 1 调用宏 2 ,但宏 2 发生了无法忽略的错误,那么将立刻结束宏 2 的运行,而继续执行宏 1 中的下一行代码,这种情况可能会使整个代码包含了不可预知的错误,因此务必要小心。

    Resume 语句

      在错误处理程序结束后,恢复原有的运行。

    语句描述
    Resume 如果错误和错误处理程序出现在同一个过程中,则从产生错误的语句恢复运行。如果错误出现在被调用的过程中,则从最近一次调用包含错误处理程序的过程的语句处恢复运行
    Resume Next 如果错误和错误处理程序出现在同一个程序中,则从紧随产生错误的语句的下个语句恢复运行。如果错误发生在被调用的过程中,则对最后一次调用包含错误处理程序的过程的语句(或 On Error Resume Next 语句),从紧随该语句之后的语句处恢复运行。
    Resume line 在必要的 line 参数指定的 line 处恢复运行。line 参数是行标签行号,必须和错误处理程序在同一个过程中。

     

    On Error 语句
      启动一个错误处理程序并指定该子程序在一个过程中的位置;也可用来禁止一个错误处理程序。

    语句描述

    On Error GoTo line            

     启动错误处理程序,且该例程从必要的 line 参数中指定的line 开始。line 参数可以是任何行标签或行号。如果发生一个运行时错误,则控件会跳到 line,激活错误处理程序。指定的 line 必须在一个过程中,这个过程与 On Error 语句相同; 否则会发生编译时间错误。
    On Error Resume Next 说明当一个运行时错误发生时,控件转到紧接着发生错误的语句之后的语句,并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。
    On Error GoTo 0

    禁止当前过程中任何已启动的错误处理程序。

     

     

     

      错误处理程序依靠 Err 对象的 Number 属性中的值来确定错误发生的原因。在其它任何错误发生之前,或在调用一个可能会导致错误发生的过程之前,错误处理程序应该先测试或存储 Err 对象中相关的属性值。Err 对象中的属性值只反映最近发生的错误。Err.Description 中包含有与 Err.Number 相关联的错误信息。

      On Error GoTo 0 停止在当前过程中处理错误。即使过程中包含编号为 0 的行,它也不把行 0 指定为处理错误的代码的起点。如果没有 On Error GoTo 0 语句,在退出过程时,错误处理程序会自动关闭。

     

    摘:https://blog.csdn.net/daihongliu/article/details/78285088

    转载于:https://www.cnblogs.com/maol986162214/p/11128415.html

    展开全文
  • 错误捕捉语句---错误转义语句 错误捕捉陷阱 on error goto on erro resume next on error goto line 等,只能执行1次? 或者是循环内只能执行1次 Sub test3() ...On Error GoTo...
    展开全文
  • On Error GoTo的应用(VB6.0代码编写) On Error GoTo的应用 QQ223857666勾月
  •  'On Error GoTo here  On Error GoTo errHandler  d = CDate(Curentdatestr)  If Not DateStr Like Curentdatestr Then  cnt1 = 0  cnt2 = 0  DateStr = Curentdatestr  ii = ii + 1  End...


     Set TextObj = FileObj.OpenTextFile(strPath)
     Do While Not TextObj.AtEndOfStream
       Dim Line$, DateStr$, Curentdatestr$, Datecountstr$
       Line = TextObj.ReadLine
       Curentdatestr = Left(Line, 10)
       'MsgBox "Curentdatestr : " & Curentdatestr
       'On Error GoTo here
       On Error GoTo errHandler
       d = CDate(Curentdatestr)
       If Not DateStr Like Curentdatestr Then
             cnt1 = 0
             cnt2 = 0
             DateStr = Curentdatestr
             ii = ii + 1
       End If
       If InStr(Line, Target1) Then
          If InStr(Line, Target3) Then
            cnt1 = cnt1 + 1
          End If
       End If
       If InStr(Line, Target2) Then
          If InStr(Line, Target3) Then
            cnt2 = cnt2 + 1
          End If
       End If
       Datecountstr = DateStr & ":" & cnt1 & ":" & cnt2
       ReDim Preserve Datecountstrs(ii)
       Datecountstrs(ii) = Datecountstr
       'MsgBox "there"
    'here: Err.Clear
    continue:

     Loop
     
     tqwb = Datecountstrs ‘方法返回
     Exit Function
    errHandler:
        Err.Clear
        Resume continue

    巧用的 GoTo ,Exit Function/End Sub, Resume在循环里,方法的逻辑处理都很有用

    展开全文
  • VBA## on error go to多次跳转## 求教 代码如下: Function Owner(CPN as string,WholePN as range,Versionless as range) as string Err.Clear On Error GoTo Line1 Owner = WorksheetFunction.Vlookup(CPN, ...

    VBA## on error go to多次跳转问题## 求教

    代码如下:

    1. Function Owner(CPN as string,WholePN as range,Versionless as range) as string
    2. Err.Clear
    3. On Error GoTo Line1
    4. Owner = WorksheetFunction.Vlookup(CPN, WholePN, 3, 0)
    5. GoTo FinalOwner
    6. Line1:
    7. Err.Clear
    8. On Error GoTo Line2
    9. Owner = WorksheetFunction.Vlookup(Left(CPN,Len(CPN) - 3), Versionless as range, 2, 0)
    10. GoTo FinalOwner
    11. Line2:
    12. Err.Clear
    13. On Error GoTo Line3
    14. Owner = WorksheetFunction.Vlookup(Left(CPN,Len(CPN) - 1), WholePN, 3, 0)
    15. GoTo FinalOwner
    16. Line3:
    17. Err.Clear
    18. Owner = “NA”
    19. FinalOwner:
    20. End Function

    测试发现第5行和第11行的结果是可以出来,但是后面两种情况怎么都是"#VALUE!"

    按道理不管CPN是个啥,结果最差也是"NA"才对呀,为啥出来"#VALUE!"?求大神指教。谢谢!

    展开全文
  • Excel VBA On Error Resume Next错误处理

    千次阅读 2016-11-29 08:04:14
    On Error GoTo 0 End Sub 原来判断的是Q,第一次出错时,Q未被赋值,初始值就是0,之后当出错的时候,Q没有被赋值,变成保持上一个值。实际上,你判断的不应该是Q值,应该判断是否有出错值Err.Number,当Match出错...
  • vba error

    2016-07-07 06:35:24
    转自[url]...Excel/VBA提供On Error关键词来处理程序运行过程中的错误,具体有下面两种用法: 1.On Error Resume Next:当出错时跳到下一行继续运行。 2.On Error...
  • VBScript语言提供了两个语句和一个对象来处理"运行时错误",如下所示: On Error Resume Next语句  On Error Goto 0语句  Err对象  ...On Error Resume Next语句和On Error Goto 0语句指明了当出现
  • On Error GoTo 0表示禁止当前过程中任何已启动的错误处理程序。On Error Resume Next说明当一个运行时错误发生时,控件转到紧接着发生错误的语句之后的语句,并在此继续运行。访问对象时要使用这种形式而不使用 On ...
  • Word中的宏采用VBA,但是不支持VB中的错误处理机制,只能on error设置错误陷阱的方法进行错误处理。一般有以下几种方法: 方法一: On Error Resume Next 使用这种方法会在遇到错误语句时跳过此句,继续运行...
  • on error resume next用法

    千次阅读 2020-08-11 15:00:58
    on error resume next用法 转载源 作者:xuxujian VBScript语言提供了两个语句和一个对象来处理"运行...On Error Resume Next语句和On Error Goto 0语句指明了当出现"运行时错误"时的处理方式。 当加上On Error Resume
  • VB On Error 使用详解

    万次阅读 2017-01-12 22:57:01
    VB On Error 使用详解
  • VBA常用命令解析之001——On Error(将错就错) 谁都希望自己的程序能一顺百顺,但是错误却一直是我们心中的痛。总是时不时地跳出来影响我们的情绪。虽然跳出来的错误提示会中断我们程序的运行,但是它就象我们的痛...
  • VBS之on error resume next用法

    万次阅读 2014-09-19 10:13:06
    On Error Resume Next语句 On Error Goto 0语句 Err对象 简单介绍一下On Error Resume Next,On Error Goto 0,Err这三者 On Error Resume Next语句和On Error Goto 0语句指明了当出现
  • VBScript:err.clear与On error goto 0的区别

    千次阅读 2012-11-07 19:45:21
    On Error Goto AAA语句,即当有错误发生的时候不提示错误,即刻执行AAA标签后的语句。 On Error Resume Next 即不提示错误,直接执行错误语句的下一句。 On Error Goto 0,停止错误处理(默认情况),当有...
  • 标准Sub/Function定义,带ScreenUpdating、On Error GoTo Sub AutoFillRole() '--------------- ERROR MSG------------------------------ On Error GoTo errorhandle: 'On Error Resume Next...
  • VBA的异常处理

    万次阅读 2017-10-19 15:06:34
    VBA的错误处理   ... 一、 网上摘录 在 Word 、 Excel 乃至其他支持 VBA 的 Office 组件中,在代码中处理... Error Goto 错误标签”语句,然后在代码的后面添加错误标签及其中包含的错误处理代码。下面总
  • Error Handling In VBA

    2010-08-26 00:17:00
    http://www.cpearson.com/excel/ErrorHandling.htm<br />  Pearson Software Consulting Services  Error Handling In VBA   Introduction Error handling refers to the programming...
  • VBAgoto语句用法,标签和行号。

    千次阅读 2020-01-03 12:14:27
    1 goto语句 语法:goto 行号/行标签 goto可以跳转到 行号,或行标签 行号:可以查VBE的行数 行标签:需要先定义 例子 line_goto1: goto line_goto1 '可以带: 或没有 2 VBE自带的行号 VBE其实是有默认...
  • vba代码中并没有 try catch异常处理语句,但有 on error 语句和try catch语句的功能类似; 其形式如:on error +处理方式 异常处理方法分类 语法 功能 on error GoTo 0 默认报错 ,和不使用该语句报错情况...
  • 我这里是关键词是 "测试",逻辑是:现实情况中,不方便/不允许使用On Error的情况下,我们可换一个思路,可以判断是不是Nothing 1、先说第一种情况:遍历所有工作表,是否存在某一个关键词 Sub 搜索确认() Dim ...
  • VBA错误处理

    2021-08-28 12:20:46
    VBA错误处理相关
  • VBA Error Handling On Error Resume Next

    千次阅读 2010-08-26 00:10:00
    http://vbaexcel.eu/vba-macro-code/vba-error-handling-on-error-resume-next<br />    This macro code enables the On Error Resume Next function.Explanation To enable On Error ...
  • 2. On Error Resume Next / On Error Goto 0语句 当加上On Error Resume Next语句后,如果后面的程序出现"运行时错误"时,会继续运行,不中断。 当加上On Error Goto 0语句后,如果后面的程序出现"运行时错误"时...
  • VBA编程中,终止、退出及错误处理都是很有用的程序控制方法。那么,有哪些具体的方法呢?看到别人的培训资料里已有所总结,这里借花献佛一下。代码1: 程序终止及退出方法Option Explicit '一、END语句 '作用:...
  • Handle Error in VBA

    2011-09-13 20:02:20
    If you don't use an On Error statement, any run-time error of VBA that occurs is fatal; that is, an error message is displayed and execution
  • VBA做日报

    千次阅读 多人点赞 2019-01-22 21:45:57
    前言:有个同事需要每天做日报,但是电脑又因为种种原因用不了power query,所以就用VBA帮他写了一段代码 报表成品如下图: 其实东西并不多,只有8列数据,用power query大概也就15分钟的时间,可是VBA我写了...
  • VBA中的错误处理

    千次阅读 2017-11-21 16:22:00
    从理论上讲,VBA没有提供任何的错误处理机制,这种被用在微软Office产品中的以Visual Basic语言为基础的脚本语言根本就不要任何的错误处理,当程序出现错误或产生异常情况时,VBA会自动定位到出错的代码行,然后提示...
  • vba常用英文

    2014-10-26 17:02:30
    (3) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息 (4) On Error GoTo 100 '当错误发生时跳转到过程中的某个位置 (5) On Error GoTo 0 '恢复正常的错误提示 (6) Application.DisplayAlerts=False...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,078
精华内容 831
关键字:

errorgotoonvba