没有合适的资源？快使用搜索试试~ 我知道了~

首页On Error Resume Next语句 On Error Goto 0语句 Err对象

On Error Resume Next语句 On Error Goto 0语句 Err对象

Error

Goto

4星 · 超过85%的资源需积分: 32 12 下载量 102 浏览量更新于2023-06-19 收藏 52KB DOC 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

试读

11页

On Error Resume Next语句 On Error Goto 0语句 Err对象

资源详情

资源推荐

on error resume next

用法

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 Next 语句后，如果后面的程序出现"运行时错误"时，会继续运行，

不中断。

当加上 On Error Goto 0 语句后，如果后面的程序出现"运行时错误"时，会显示"出错信息"并

停止程序的执行。

Err 对象保存了“错误信息”

下面结合例子讲解 On Error Resume Next，On Error Goto 0，Err 这三者没有加上 On

Error Resume Next 语句

如果没有加上 On Error Resume Next 语句，当出现"运行时错误"时,会显示"出错信息"并停

止程序的执行.

举例（/test.asp 文件）：

i = 1/0 '0 作除数，产生"运行时错误",显示"出错信息"并停止程序的执行

Response.Write "除法执行后"

'这句话将不会执行

结果：

Microsoft VBScript

运行时错误错误

'800a000b'

被零除

/test.asp，行 2

加上 On Error Resume Next 语句

当我们在某处加上 On Error Resume

Next 这条语句后,随后的程序即便出现"运行时错误"时,也不会显示"出错信息",并且会继续运行

下去.

举例：

On Error Resume Next '后面的程序即便出现"运行时错误"时，也会继续运行

i = 1/0

'0 作除数，这是一种"运行时错误"，但因为有了上面 On Error Resume

Next 这句话，所以不会中断执行，而是会继续运行下去

Response.Write "除法执行后" '这句话将会执行

结果：

除法执行后

加上 On Error Resume Next 语句后，使用 Err 对象来得到错误信息

使用了 On Error Resume Next 之后，如果出错,那么 Err 对象中将放置最近一次出错的信息。

Err 对象重要的属性有三个：Number, Source, Description。分别是错误号，错误来源，错

误描述。

你能捕获的都是运行时错误，而且 If Err then 这样的写法等价于 If Err.Number then

Dim i

i = 1/0 '第一个错误

unde)ned_function "test"

'第二个错误，函数 unde)ned_function 未定义

Response.Write Err.Description

剩余10页未读，继续阅读

错误处理_VBScript_On Error

QTP错误处理机制中VBScript处理方式的测试代码

关于on error resume next滥用

On Error Resume Next 语句

On Error Resume Next 语句也可以与其他错误处理语句结合使用，例如 On Error GoTo 0 语句，用于禁用错误处理程序。当退出一个过程时，错误处理程序可恢复到它在进入所退出过程之前的状态。在实际应用中，On Error...

以下代码中未正确显示N7单元格中的工作表名字，请帮我修改 Sub 打开工作簿() Dim wbName As String Dim wsName As String wbName = Range("N11").Value If InStr(wbName, ".") = 0 Then wbName = wbName & ".xlsx" End If On Error Resume Next Workbooks(wbName).Activate If Err.Number <> 0 Then MsgBox "尚未找到名为 " & wbName & " 的工作簿，请确认该工作簿已打开。", vbInformation, "呆仔提示" Else wsName = Range("N7").Value On Error Resume Next Worksheets(wsName).Activate If Err.Number <> 0 Then MsgBox "尚未找到名为 " & wsName & " 的工作表，请确认该工作表存在于 " & wbName & " 工作簿中。", vbInformation, "呆仔提示" End If End If On Error GoTo 0 End Sub

请将代码中的 Range("N7").Value 改为 Worksheets("Sheet1").Range("N7").Value，其中"Sheet1"需根据实际工作表名称进行修改。这样可以明确指定要操作的工作表，避免因为没有指定工作表而... On Error GoTo 0 End Sub

优化如下代码： Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") ' 文件夹路径 Dim folder_path As String folder_path = "C:\Users\Administrator\Desktop\pr\2\5E2206172401600E" ' 判断文件夹是否存在 If Not fs.FolderExists(folder_path) Then MsgBox "路径不存在！" Exit Sub End If ' 创建另一个文件系统对象 Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") ' 创建Excel应用程序对象和工作簿对象 Dim excel_app As Object Dim Workbook As Object ' 遍历文件夹下的所有文件 Dim file As Object For Each file In fso.GetFolder(folder_path).Files ' 判断文件是否是Excel文件 If LCase(Right(file.Name, 4)) = "xlsx" Or LCase(Right(file.Name, 3)) = "xls" Then ' 尝试打开Excel文件并将其转换为PDF格式 On Error Resume Next Set excel_app = CreateObject("Excel.Application") Set Workbook = excel_app.Workbooks.Open(file.path) Workbook.ExportAsFixedFormat 0, Replace(file.path, ".xlsx", ".pdf") Workbook.Close False excel_app.Quit Set excel_app = Nothing Set Workbook = Nothing On Error GoTo 0 End If Next file ' 显示执行结束的消息框 MsgBox "执行结束！"

On Error Resume Next With excel_app.Workbooks.Open(file.Path) .ExportAsFixedFormat 0, Replace(file.Path, ".xlsx", ".pdf") .Close False End With On Error GoTo 0 End If Next file '释放Excel...

vba中的异常处理语句怎么写

1. `On Error Resume Next`：表示在发生错误时跳过错误，继续执行下一条语句。 2. `On Error GoTo [label]`：表示在发生错误时跳转到指定的代码标签（label）处执行相应的异常处理代码。以下是一个使用`On Error ...

VBA 判断文件夹是否存在

可以使用VBA中的Dir函数来判断文件夹是否存在。具体代码如下： ``` Function FolderExists(ByVal FolderPath As String) As Boolean ...使用On Error Resume Next语句可以避免当文件夹不存在时的运行时错误。

vbscript基础知识

这段代码中，我们首先使用On Error Resume Next语句来忽略错误，然后进行除法运算，由于除数为0，会产生一个错误。接着，我们使用If语句检查错误，如果发生错误，则使用wscript.echo语句输出错误信息。

如果存在工作表的名字是“YIET21”則做流程1，否則結束流程，用VBA怎麼表達

On Error GoTo 0 If ws Is Nothing Then '不存在名为 "YIET21" 的工作表，执行结束流程的代码 Else '存在名为 "YIET21" 的工作表，执行流程1的代码 End If ``` 这段代码的意思是，先定义一个名为 ws 的 ...

vba error handler

On Error Resume Next '执行代码 If Err.Number <> 0 Then MsgBox "出现错误：" & Err.Description Err.Clear End If End Sub ``` 在这个例子中，如果执行代码时出现错误，程序不会跳转到错误处理程序，而是...

VB on error goto 例句

以下是一个简单的 VB 代码示例，展示了如何使用 On Error GoTo 语句处理运行时异常： ``` Sub Example() Dim x As Integer On Error GoTo ErrorHandler x = 1 / 0 ' 引发除以零的异常 MsgBox ("The result is ...

family20102010

粉丝: 85
资源: 10

上传资源快速赚钱

我的内容管理收起

我的资源快来上传第一个资源

我的收益

登录查看自己的收益

我的积分登录查看自己的积分

我的C币登录后查看C币余额

我的收藏

我的下载

下载帮助

会员权益专享

On Error Resume Next语句 On Error Goto 0语句 Err对象

错误处理_VBScript_On Error

关于on error resume next滥用

On Error Resume Next 语句

文件不存在 运行会报错 中断

怎么暂停vba中ontimer的循环调用

vba中弹出选择文件并避免的方法

在ASP中判断SQL语句是否执行成功

vba中如何根据代码是否发生异常而跳过执行，并提示错误信息

VB on error goto

判断newworkbook.sheets("sip")的工作簿是否存在名为小莉的工作表

vba中如果发生了异常，是否可以跳过某一段代码然后继续执行

excel VBA 提取范围中唯一值

vba中的异常处理语句怎么写

VBA 判断 文件夹是否存在

vbscript基础知识

如果存在工作表的名字是“YIET21”則做流程1，否則結束流程，用VBA怎麼表達

vba error handler

VB on error goto 例句

会员权益专享

最新资源

文件不存在运行会报错中断

VBA 判断文件夹是否存在