1．On Error GoTo line 如果发生一个运行时错误，则控件会跳到line标记行，激活错误处理程序。指定的line 必须在一个过程中，否则会发生编译时间错误。错误处理程序不是Sub过程或Function过程，它是一段用行标记的代码。2．On Error Resume Next 程序从紧随产生错误语句之后的语句继续执行，或是从紧随最近一次调用含...
Excel/VBA提供OnError关键词来处理程序运行过程中的错误,具体有下面两种用法: 1.OnErrorResume Next:当出错时跳到下一行继续运行。 2.OnErrorGoto Line:出错时跳到行号Line。这里行号Line可以为数字(不为0和-1),也可以为字符串。 其它与之相关的还有: 1.On E...
错误处理程序不是Sub过程或Function过程,它是一段用行标记的代码。 2.On Error Resume Next 程序从紧随产生错误语句之后的语句继续执行,或是从紧随最近一次调用含有On Error Resume Next语句的过程中的语句继续运行。这个语句可以忽略运行时产生的错误,使程序得以继续执行。 3.On Error GoTo 0 On Error GoTo 0停止...
Loop Close #1 On Error GoTo 0 End Sub 在上述示例中,程序试图打开一个文本文件进行读取。使用"On Error Resume Next"可以避免在文件不存在或无权限访问时导致程序出错,并且后续的代码可以正常执行。 2.处理数组索引错误: Sub AccessArray() On Error Resume Next Dim arr() As Integer ReDim arr(0 To 4)...
VBASub GetData() On Error Resume Next Dim ie As Object Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True '登录网站 ie.Navigate "; Do While ie.Busy Or ie.ReadyState <>4: Loop ie.Document.getElementsByName("username")(0).Value ="your_usernam...
Do until...Loop 语句是直到条件变成True时才停止循环 如果事先知道循环次数,应该使用For循环,据说它比Do循环速度快 不知道起点和终点,需要在循环内计算结果出来以后才能判断是否该终止循环的,用Do Loop循环。反之,如果很明确需要循环计算的次数,则用For……Next……计量循环。
4、 For Each…Next语句 5、 Do…Loop语句 6、 GoTo、On…GoTo语句 7、 On Error错误控制语句 8、其他常用语句 1、If…Then…Else…End If语句 根据条件的值,可使用If…Then…Else…End If语句运行指定的语句或一个语句块。语句可根据需要嵌套多级,然而,为了程序可读性有时使用Select Case语句。
Next i On Error GoTo Line:Loop End Sub 或者，干脆用On Error Resume Next 吧 Sub test2()Dim i On Error Resume Next Do While i <> 4 For i = 1 To 3 ChDir "D:\TMP"Next i Loop End Sub 你也可以仔细研究一下帮助文档里的例子 On Error 语句示例 本示例先使用 On Error GoTo ...
On Error Resume Next '出现错误跳转到下一步 Dim f, mychar f = ThisWorkbook.path & "/a.txt" Open f For Input As #1 Do While Not EOF(1) '循环至文件尾,EOF文件结尾 mychar = Input(3, #1) '读入一个字符 Debug.Print mychar & ":" & Asc(mychar)'显示到立即窗口。
On Error Resume Next If GetAsyncKeyState(13) = -32767 Then 'enter按下，显示面积 UserForm1.Show ...