获取程序的具体错误信息(1)

时　间:2017-06-25 08:41:11
作　者:杨雪   ID：42182  城市：南京
摘　要:错误处理及工程安全：Err对象、Number属性、Description属性
正　文:

在程序处理执行过程中，如果希望程序在出错时，打开提示对话框返回错误的编号和错误的描述，可以使用Err对象的Number 属性和Description属性，具体语法为：

Err.Number

Err.Description

本例需要返回在为整数型变量赋值字符串时的错误编号和错误描述。

编写VBA代码，获取输入数据，输出结果，输入数据不是整数或不能够转换为整数型时，则跳转至打开“您出错了！”消息对话框的代码处，具体如下：

执行过程

保存编写的VBA代码，然后按【F5】键运行“错误消息”过程，如图：

 源码：

'显示错误信息
Sub 错误信息()
    '出错时跳转至“行标签”标签
    On Error GoTo 行标签
    Dim Num As Integer
    Num = InputBox("请输入数据：")
    MsgBox "输入数据为：" & Num
    Exit Sub
'设置行标签
行标签:
    '出错时输出错误编号及错误描述信息
    MsgBox "错误编号：" & Err.Number & vbCrLf & "错误描述：" _
    & Err.Description, , "您出错了！"
End Sub