Erl 函数

返回在程序执行过程中出现错误的行号。

语法：

Erl

返回值：

整数

参数：

批注图标

Erl 函数仅返回行号而不返回行的数据标志。


示例：

Sub ExampleError

On Error GoTo ErrorHandler ' 设置错误处理程序

Dim iVar As Integer

Dim sVar As String

' 由于文件不存在而出现的错误

    iVar = Freefile

    Open "\file9879.txt" For Input As #iVar

    Line Input #iVar, sVar

    Close #iVar

    Exit Sub

ErrorHandler:

    MsgBox "错误 " & err & ": " & Error$ + chr(13) + "位于行 : " + Erl + chr(13) + Now , 16 ,"发生错误"

End Sub