'定义两个变量，a用来存储要查找的值所在行，b用来接收Match函数返回的结果以便下一步处理 ...
Sub 过程名() i = 1 s = 0 '初始值为0可略 While i <= 100 s = s + i i =...
(1)在过程中可能导致错误的代码行的前面添加错误处理语句On Error Goto ErrHandler,其中的“ErrHandler”为自定义的错误标签名称。 (2)在有可能导致错误的代码行后面添加取消错误处理的语句On Error Goto 0,这样当遇到错误时,就不会跳转到指定的错误标签处,而是直接显示错误提示窗口,其中包括【调试】、【结束】等按钮。
1Sub检测工作表是否存在()23DimWksNameAsString45OnErrorResumeNext67WksName = Worksheets("sx").Name89IfErr.Number <>0Then1011MsgBoxprompt:="此工作簿中未找到工作表 sx", Title:="错误"1213EndIf1415OnErrorGoTo01617End Sub 注意:当使用On Error Resume Next语句后,应该及时在可能导致错误的代码行之后使...
1. On Error Resume Next：跳过错误继续执行。2. On Error GoTo 0：恢复正常错误处理。3. Err.Number：获取错误编号。4. Err.Description：获取错误描述。下面是示例代码：VBASub GetData() On Error Resume Next Dim ie As Object Set ie = CreateObject("InternetExplorer.Application") ie.Visible...
Error 事件 結束 FileCopy For Each...Next For...Next 函數 Get GoSub...Return GoTo If...Then...Else Implements Input # Kill Let Line Input # Load Lock、Unlock LSet Mid MkDir 名稱 On Error On...GoSub、On...GoTo 開啟 Option Base Option Compare Option Explicit Option Private Print # Pri...
On Error GoTo 1 Call test2 Call test3 Call test4 Exit Sub 1: MsgBox "test" End Sub Sub test2() On Error Resume Next Dim sht As Worksheet Set sht = Worksheets(20) MsgBox sht.Name Exit Sub 2: MsgBox "test2" End Sub Sub test3() ...
1Sub检测工作表是否存在()23DimWksNameAsString45OnErrorResumeNext67WksName = Worksheets('sx').Name89IfErr.Number <>0Then1011MsgBoxprompt:='此工作簿中未找到工作表 sx', Title:='错误'1213EndIf1415OnErrorGoTo01617End Sub 注意:当使用On Error Resume Next语句后,应该及时在可能导致错误的代码行之后使...
On Error Goto -1 清除当前错误设置并恢复为默认值。 On Error Resume Next 忽略错误,代码继续运行。 On Error Goto [标签] 当发生错误时,跳转到指定的标签处执行。 Err对象 当发生错误时,存储错误信息的对象。 Err.Number 错误编号。可以在需要检查发生指定...