On Error语句

最新推荐文章于 2025-02-13 22:48:28 发布
最新推荐文章于 2025-02-13 22:48:28 发布
阅读量1.2k 收藏
点赞数
CC 4.0 BY-SA版权
分类专栏： 26..Net学习 文章标签： oracle string
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/jacky01130/article/details/2601574

1.含义（MSDN）

On Error GoTo 0 表示禁止当前过程中任何已启动的错误处理程序。

 On Error Resume Next 说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。

On Error GoTo line 启动错误处理程序，且该例程从必要的 line 参数中指定的 line 开始。line 参数可以是任何行标签或行号。如果发生一个运行时错误，则控件会跳到 line，激活错误处理程序。指定的 line 必须在一个过程中，这个过程与 On Error 语句相同； 否则会发生编译时间错误。

以上MSDN上的解释 一般情况下，如果在对我们创建的对象或控件进行错误捕捉，需要使用On Error Resume Next ，然后在判断它的Err.Number，根据错误类型来做相应的处理。

2.例子

一个错误处理函数，当系统发生错误用来处理相应的错误。

Public Sub Hbora_err_handler(prmstrProgName As String)        

      Dim lngErrCD        As Long     ' 错误Code

      Dim strErrDes       As String   '  错误内容

      ' Oracle连接错误   

     If Err.Number = 440 Then             

           ' セッション系を先に参照するように変更        

             If PBora_session.LastServerErr <> 0 Then            

                              lngErrCD = PBora_session.LastServerErr            

                              If prmstrProgName <> "" Then                

                                                      strErrDes = "｢" & prmstrProgName & "｣ " & _            

                                                        PBora_session.LastServerErrText           

                              Else                

                                                         strErrDes = PBora_session.LastServerErrText            

                             End If                

               ElseIf PBora_database.LastServerErr <> 0 Then           

                            lngErrCD = PBora_database.LastServerErr            

                             If prmstrProgName <> "" Then                

                                                        strErrDes = "｢" & prmstrProgName & "｣ " & _         

                                                        PBora_database.LastServerErrText            

                             Else                

                                                          strErrDes = PBora_database.LastServerErrText           

                             End If                

                 Else            

                            lngErrCD = Err.Number            

                             If prmstrProgName <> "" Then                

                                                         strErrDes = "｢" & prmstrProgName & "｣ " & Err.Description       

                             Else                

                                                         strErrDes = Err.Description           

                              End If      

                    End If        

    ' Oracle连接外的错误    

      Else        

                  lngErrCD = Err.Number        

                  If prmstrProgName <> "" Then            

                                    strErrDes = Chr(10) & "｢" & prmstrProgName & "｣ " & Chr(10) & Chr(10) & Err.Description

                  Else            

                                       strErrDes = Err.Description       

                  End If    

       End If    

 On Error Resume Next        

                  ' 打印log

                  Call Hbpub_put_log(HM_LOG_ERROR, lngErrCD, strErrDes)      

                 ' 显示信息

                  Call Hbora_msg_stop("WCM001", lngErrCD, strErrDes)        

                  ' 回滚 

                  PBora_session.Rollback       

                  ' 断开连接

                 Call Hbora_close_connection    

On Error GoTo 0       

                 ' 程序终了

                  End    

 End Sub

错误捕捉On Error Goto(Resume)
驽马十驾 才定不舍
11-29 5363
iamlaosong文 经常会用到错误捕捉，防止程序意外中断。有三种捕捉方式： On Error GoTo 0 表示禁止当前过程中任何已启动的错误处理程序，测试发现用-1居然也可以，和0效果相同。 On Error Resume Next 说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。
onerror 事件
zhuxuerong的博客
12-03 1314
onerror 事件会在文档或图像加载过程中发生错误时被触发。 支持该事件的 HTML 标签：<img>, <object>, <style> 支持该事件的 JavaScript 对象：window, image img标签的onerror事件 情景分析： 　　有时，img标签中的src图片加载失败，原来的图片位置会出现一个碎片图标 　　 解决方案： 　　可...
VBScript中On Error语句用法小结
09-03
VBScript语言提供了两个语句和一个对象来处理"运行时错误"，如下，1.On Error Resume Next语句,2.On Error Goto 0语句,3.Err对象,下面我们就来详细探讨下。
On Error 语句
阿拜彩带的专栏
07-19 1294
该语句的作用是：启用或禁用错误处理程序。一般用法如下：On Error Resume NextOn Error GoTo 0如果在您的代码中未使用On Error Resume Next语句，所发生的运行时错误将显示错误信息，同时，代码的执行也随之终止。但当你采用它时，就会使程序按照产生错误的语句之后的语句继续执行，或是按照最近一次所调用的过程（该过程含有 On Error Res
onerror
weixin_42594143的博客
01-12 285
img标签支持onerror 事件，在装载文档或图像的过程中如果发生了错误，就会触发onerror事件。可以使用一张提示错误的图片代替显示不了的图片。
On Error Resume Next 语句
10-31
On Error Resume Next 语句 On Error Resume Next 语句是 Visual Basic 中的一种错误处理机制，用于启用或禁用错误处理程序。当在代码中使用 On Error Resume Next 语句时，程序将忽略运行时错误，继续执行下一条...
On Error Resume Next语句 On Error Goto 0语句 Err对象
11-06
VBScript语言提供了两个语句和一个对象来处理“运行时错误”，它们分别是On Error Resume Next语句、On Error Goto 0语句和Err对象。这三者联合使用可以实现灵活的错误处理机制。 一、On Error Resume Next语句 On...
VBA 一句代码解决On error goto line 多次使用的问题 .txt
06-26
一句代码解决On error goto line 多...On error goto line 错误跳转语句只能使用一次 本代码只需要加一句即可重复使用错误跳转 On error goto line VBA错误跳转多次使用的问题 On error goto 0 不行 err.clear也不行
on error resume next用法
热门推荐
博客
08-11 2万+
on error resume next用法 转载源 作者：xuxujian VBScript语言提供了两个语句和一个对象来处理"运行时错误"，如下所示： 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语句指明了当出现"运行时错误"时的处理方式。 当加上On Error Resume
on error语句,when语句
Awaited的专栏
03-21 846
<br />vb.net推荐使用try...end try块来进行结构化的异常处理，但是为了确保兼容性，它也从以前版本的basic中借鉴了on error语句。其实on error并不能算是vb的优点，因为使用它会破坏程序的结构，让带有异常处理的程序难以看懂和调试。但是我一直很惊叹于vb的工程师是怎样实现它的，因为on error可以让异常的跳转变得很灵活，不像try那样受到限制。首先看看try是怎样实现的： <br /><br />public function f1() as integer <br /
onerror事件
weixin_57763117的博客
07-21 1396
而在客户端JavaScript中，全局对象就是Window对象，表示允许JavaScript代码的Web浏览器窗口JavaScript核心语言中，全局对象的预定义属性都是不可枚举的，所有可以用for/in循环列出所有隐式或显式声明的全局变量。如果找到了我们要的cookie，就返回值，否则返回空字符串创建一个函数，这个函数的作用是如果cookie已设置，则显示欢迎词，否则显示提示框来要求用户输入名字访问者首次访问你的网站时，当前的日期可存储于cookie中。...
VB中 On error 的用法
Le vent se lève, il faut tenter de vivre
11-25 4355
定义： 1.启动一个错误处理程序并指定该子程序在一个过程中的位置；也可用来禁止一个错误处理程序。 2. 如果产生错误则跳到需要跳转的地方，删掉后可能会不能正确运行。 语法： On Error GoTo line 、On Error Resume Next、On Error GoTo 0 1. On Error GoTo line：启动错误处理程序，且该例程从必要的 line...
vue自定义指令+onerror 解决图片显示报错问题
Gik99的博客
03-20 789
vue自定义指令+onerror 解决图片显示报错问题
深入解析 VBA 代码中的 On Error Goto ErrorHandler
2007 年 ~ 2025 年，深耕 SAP 技术 18 年
02-13 1239
在 Excel 的 VBA（Visual Basic for Applications）代码中，是一种常见的错误处理机制。要理解这行代码的具体作用，我们需要深入探讨 VBA 的错误处理机制、控制流，以及On Error语句的不同用法。
触发器详解
weixin_34357928的博客
09-19 271
1. ACCEPTAPP_STANDARD.EVENT(‘ACCEPT’);这个触发器处理菜单或工具条上调用Save and Proceed (保存并继续)动作。它执行保存，并移动到指定当作第一个导航块的块上。替换这个触发器中的代码，或创建块级触发器并把执行类型指定为‘Override’.2. FOLDER_RETURN_ACTIONnull;这个触发器允许指定客户化的文件夹事件用需要的处理文件...
VB==容错处理策略(全)
hktl的专栏
03-30 2156
 　　本文将详细地讨论在Visual Basic中处理错误发生的On Error命令家族，它们的任务就是安装错误代理并解决错误的发生，并解释错误代码的含义。阅读完本文后，你将能编写基本的错误代理程序，有效地防止以外错误。作者:甘冀平2000-11-03function recommend(){ OpenWindow = window.
Intellij IDEA该如何设置忽略部分类编译错误 
longsq602的专栏
07-04 702
1.如何设置Intellij IDEA忽略部分类编译错误？ 2.为什么要在Intellij IDEA中使用Eclipse编译器？ 3.为什么Intellij IDEA设置忽略部分类编译错误？ 有些时候我们的项目中有些错误，但这些错误并不影响项目的整体运行（或许是没有使用到），默认情况下idea是无法通过编译的，因此也就无法部署运行，要达到正确运行项目的目的需要作一些设置才行。 设置Intellij IDEA忽略部分类编译错误 设置很简单，只需要两步即可。 1、设置Java编译器 如上图所示...
Excel VBA on error语句
最新发布
04-02
<think>好的，我现在需要帮助用户解决关于Excel VBA中On Error Goto语句的用法及常见示例的问题。首先，我需要回顾自己对于VBA错误处理的知识，特别是On Error语句的不同用法。根据用户提供的引用内容，特别是引用[1]中提到的On Error Goto ErrorHandler是常见的错误处理机制，我需要详细解释这个结构的作用和用法。 首先，我应该从基础开始，解释On Error语句在VBA中的作用。VBA中的错误处理机制允许程序在遇到运行时错误时不会立即崩溃，而是转向指定的错误处理代码。On Error Goto标签就是其中一种方式，当错误发生时，程序会跳转到标签所在的位置执行错误处理程序。 接下来，我需要分点说明On Error Goto的用法，可能包括基本语法、错误处理块的组成、恢复执行的方式等。例如，基本结构可能包括On Error Goto ErrorHandler，然后定义ErrorHandler标签后的代码，处理错误后使用Resume语句返回原代码。 然后，我需要考虑用户可能需要常见示例，比如处理文件打开错误、除零错误、类型不匹配等。这些示例需要具体且实用，用户可以直接参考并应用到自己的代码中。例如，当尝试打开一个不存在的文件时，使用On Error Goto来捕获错误并提示用户。 此外，还需要注意不同On Error语句的区别，比如On Error Resume Next和On Error Goto 0的使用场景。用户可能会混淆这些，所以需要明确说明它们的差异，例如，On Error Resume Next会忽略错误继续执行下一行，而On Error Goto 0会关闭错误处理。 同时，我需要提醒用户在使用错误处理时的注意事项，比如避免无限循环、确保错误处理程序执行后正确退出过程、使用Err对象获取错误信息等。这些注意事项能帮助用户编写更健壮的代码。 最后，根据用户提供的引用内容，引用[1]详细讨论了错误处理机制，引用[2]和[3]提到了VBA的常用用法和代码示例，因此在回答中可以适当引用这些内容来增强权威性。例如，在说明错误处理机制时，可以引用[1]中的描述。 在生成相关问题部分，需要考虑用户可能的后续问题，比如错误处理的最佳实践、其他错误处理语句的区别、如何调试包含错误处理的代码等。这些问题能帮助用户进一步深入学习和解决问题。 总结一下，回答的结构应该是：首先介绍On Error Goto的作用，然后详细说明其用法，接着给出常见示例，再讨论注意事项，最后附上相关问题。这样结构清晰，符合用户的要求。同时，确保使用正确的中文表达和LaTeX格式，如变量使用$...$包裹，独立公式用$$...$$，但在这个问题中可能涉及代码较多，数学公式较少，但如果有的话需要正确应用格式。</think>### Excel VBA中`On Error Goto`用法详解 #### 1. `On Error Goto`的作用 `On Error Goto`是VBA中处理运行时错误的核心语句。当代码执行过程中发生错误时，它会将程序控制权转移到指定的标签位置，避免程序崩溃并允许开发者自定义错误处理逻辑[^1]。 --- #### 2. 基本语法与结构 ```vba Sub Example() On Error Goto ErrorHandler ' 启用错误处理，指向标签ErrorHandler ' 主代码块 ... Exit Sub ' 正常退出，避免进入错误处理块 ErrorHandler: ' 错误处理标签 ' 错误处理代码 ... Resume Next ' 恢复执行错误行的下一行 End Sub ``` **关键点**： - `On Error Goto`必须位于可能出错的代码之前。 - `Exit Sub`用于在无错误时跳过错误处理代码。 - `Resume`语句控制错误处理后的执行位置。 --- #### 3. 常见示例 ##### 示例1：处理文件打开错误 ```vba Sub OpenFile() On Error Goto FileError Workbooks.Open "C:\NonExistentFile.xlsx" Exit Sub FileError: MsgBox "文件打开失败，错误号：" & Err.Number & "，描述：" & Err.Description Resume Next End Sub ``` - 当文件不存在时，跳转到`FileError`提示错误信息[^2]。 ##### 示例2：忽略除零错误 ```vba Sub DivideNumbers() On Error Goto MathError Dim result As Double result = 10 / 0 ' 触发错误 Exit Sub MathError: MsgBox "数学运算错误！" Resume Next End Sub ``` - 捕获除零错误后恢复执行后续代码。 ##### 示例3：类型不匹配处理 ```vba Sub TypeCheck() On Error Goto TypeMismatch Dim num As Integer num = "ABC" ' 类型不匹配 Exit Sub TypeMismatch: MsgBox "输入值类型错误！" Resume Next End Sub ``` --- #### 4. `On Error`的其他形式对比 | 语句 | 行为 | |-----------------------|----------------------------------------------------------------------| | `On Error Goto Label` | 跳转到指定标签处理错误 | | `On Error Resume Next`| 忽略错误，继续执行下一行代码 | | `On Error Goto 0` | 禁用当前错误处理，恢复默认中断行为 | --- #### 5. 注意事项 1. **避免无限循环**：错误处理代码中需确保能退出，例如用`Exit Sub`分隔主代码与错误处理块。 2. **错误信息获取**：使用`Err.Number`和`Err.Description`获取错误详细信息。 3. **作用域限制**：错误处理仅在当前过程中有效，跨过程需单独设置。 ---
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值