程序错误处理之On Error、Resume

qxnljx

laosanjie 发表于 2011-5-8 17:32
谢谢楼主的讲解！楼主说：“打算有时间再整理个关于类的帖子”？从第一页看到第7页(截至今天的最后一页)， ...

是的，没有看到哦，，，

香川群子

如果在循环过程中的同一语句可能经常出错，出错后需要消除错误后继续，那么这样处理：

方法1：
Do
  On Error GoTo 0
   On Error Resume Next   
   ……易出错语句

……继续处理语句
Loop

这两句代码写一起，然后每次出错On Error Resume Next忽略以后，
可以通过On Error GoTo 0来消除错误记忆，重新开始。

否则会在第2次出错时挂起。


方法2：
Do
     On Error Resume Next
     ……易出错语句
   If Err.Number Then Err.Clear: Resume
     ……继续处理语句
Loop

这是用Resume方法忽略错误。

qxnljx

香川群子 发表于 2014-2-13 09:16
如果在循环过程中的同一语句可能经常出错，出错后需要消除错误后继续，那么这样处理：

方法1：

我觉得两种方法应该都可以的吧，没测试过。

我有一代码段，也是某一句经常提示出错，然后弹窗（VBE）、挂起，点击VBE的“运行宏”后，又可以通过；如此反复，出错好像是随机的，没有什么规律，很是头疼。
代码如下：
'鼠标单击列表框释放操作，实现对选中项目的复制
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 And Flag_Func = 1 Then
        Dim I1 As Integer
        If UserForm1.ListBox1.ListCount <> 0 Then
            I1 = 0
            Do While I1 < UserForm1.ListBox1.ListCount
                If UserForm1.ListBox1.Selected(I1) = True Then
                    TextBox2.Value = ListBox1.List(I1)
                    TextBox2.SelStart = 0
                    TextBox2.SelLength = TextBox2.TextLength
                    Sleep 10
                    TextBox2.Copy（经常出错语句）
                    UserForm1.ListBox1.Selected(I1) = False
                    Exit Sub
                Else
                    I1 = I1 + 1
                End If
            Loop
        End If
    End If
End Sub

现增加出错处理代码如下：

'鼠标单击列表框释放操作，实现对选中项目的复制
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    On Error GoTo 100
    If Button = 1 And Flag_Func = 1 Then
        Dim I1 As Integer
        If UserForm1.ListBox1.ListCount <> 0 Then
            I1 = 0
            Do While I1 < UserForm1.ListBox1.ListCount
                If UserForm1.ListBox1.Selected(I1) = True Then
                    TextBox2.Value = ListBox1.List(I1)
                    TextBox2.SelStart = 0
                    TextBox2.SelLength = TextBox2.TextLength
                    Sleep 10
                   TextBox2.Copy
                    UserForm1.ListBox1.Selected(I1) = False
                    Exit Sub
                Else
                    I1 = I1 + 1
                End If
            Loop
        End If
    End If
    Exit Sub
100:
    Resume
End Sub

好像出错的现象暂时消失了，但还待长时间使用测试......

davidzwb

楼主太强了，很有钻劲。

xiangyuxl

非常感谢楼主细致的讲解

wrnews

谢谢         ，太好啦。

yxrlqy

谢谢版主，无私奉献。

peiqlu

收了，辛苦楼主

ahh0511

错误处理程序代码，经典!

jial1047

谢谢楼主，讲解很详细，学习中！