[已解决]为什么On Error Goto Line对定位、查找失效？

excel盲2013

cbg2008 发表于 2014-3-10 21:08
Sub 错误处理3()
Dim str As String
Dim sht As Worksheet

请教下高人。err.number的属性值都有哪些，分别代表什么含义。
帮助文件里只有这么些示例：
Number 属性示例
第一个示例说明 Number 属性在错误处理过程中的典型用法。第二个示例则检查 Err 对象的 Number 属性，以确定由某个 Automation 对象所返回的错误代号为该对象定义的，或是 Visual Basic 所定义的。请注意，常数 vbObjectError 为一个绝对值很大之负数，通常由 OLE Automation 对象所定义的错误代号会加上这个值，而由 Visual Basic 所定义的就不会。所以，将 Err.Number 减去 vbObjectError 后便可判断是否为 OLE Automation 对象定义的错误代号（引用代码中的注释）。示例中如果错误代号为 OLE Automation 对象定义的，则该错误代号便是 MyError 的值，并会和错误来源一起显示出来。如果 Err.Number 为 Visual Basic 定义的错误代号，则只将 Visual Basic 错误代号显示出来。
' Number 属性的典型用法Sub test()    On Error GoTo out        Dim x, y    x = 1 / y    ' 引发一个“除以零”的错误    Exit Sub    out:    MsgBox Err.Number    MsgBox Err.Description    ' 检查是否发生“除以零”的错误    If Err.Number = 11 Then        y = y + 1    End If    ResumeEnd Sub' 使用 Number 属性来判断Automation 对象返回的错误代号Dim MyError, Msg' 首先，减去 OLE Automation 对象所加上的常数。MyError = Err.Number - vbObjectError' 如果减去常数 vbObjectError 后的值仍然在' 0 到 65,535 之间，便是 OLE Automation 对象定义的错误代号。If MyError > 0 And MyError < 65535 Then    Msg = "The object you accessed assigned this number to the error: " _             & MyError & ". The originator of the error was: " _            & Err.Source & ". Press F1 to see originator's Help topic。"' 否则便是 Visual Basic 定义的错误代号。Else    Msg = "This error (# " & Err.Number & ") is a Visual Basic error" & _            " number. Press Help buttonor F1 for the Visual Basic Help" _            & " topic for this error."End If    MsgBox Msg, , "Object Error", Err.HelpFile, Err.HelpContext

1. 
   

复制代码

cbg2008

错误号有很多，我不能一一列举，得找书，不过定位不到的错误号是1004，这个跟手工操作时的提示是一样的。