On Error Resume Next

CreateObject("Excel.Application").WorkBooks.Open "d:\test.xls"
'这一行的意思是用 Excel 打开指定文件。前提是已装 Excel
'当文件不存在时，就产生了错误

MsgBox "错误代码： " & Err.Number      & vbCrLf & vbCrLf & _
       "错误对象： " & Err.Source      & vbCrLf & vbCrLf & _
       "错误说明： " & Err.Description & vbCrLf & vbCrLf & _
       "帮助文件： " & Err.HelpFile    & vbCrLf & vbCrLf & _
       "帮助文件主题的上下文 ID： " & Err.HelpContext

Err.Source = "QQ.exe"           '自定义错误信息的对象
Err.Description = "QQ20147578"  '自定义错误信息的说明
Err.HelpFile = "yourHelp.hlp"   '自定义错误信息的帮助文件
Err.HelpContext = 1             '自定义错误信息的帮助文件主题的上下文 ID

Err.Raise vbObjectError + 1     '自定义错误信息代码
'vbs常数 vbObjectError = -2147221504 ，自定义错误信息代码应大于该值
'vbs自带的错误信息代码，范围是 0 ~ 65535

'再来看错误信息
MsgBox "错误代码： " & Err.Number      & vbCrLf & vbCrLf & _
       "错误对象： " & Err.source      & vbCrLf & vbCrLf & _
       "错误说明： " & Err.Description & vbCrLf & vbCrLf & _
       "帮助文件： " & Err.HelpFile    & vbCrLf & vbCrLf & _
       "帮助文件主题的上下文 ID： " & Err.HelpContext

Err.Clear    '清除错误信息

'看下初始状态的错误信息
MsgBox "错误代码： " & Err.Number      & vbCrLf & vbCrLf & _
       "错误对象： " & Err.source      & vbCrLf & vbCrLf & _
       "错误说明： " & Err.Description & vbCrLf & vbCrLf & _
       "帮助文件： " & Err.HelpFile    & vbCrLf & vbCrLf & _
       "帮助文件主题的上下文 ID： " & Err.HelpContext

'Raise 方法也可同时定义所有错误信息
Err.Raise 123, "QQ", "20147578", "d:\yourHelp.hlp", 456

'再来看错误信息
MsgBox "错误代码： " & Err.Number      & vbCrLf & vbCrLf & _
       "错误对象： " & Err.source      & vbCrLf & vbCrLf & _
       "错误说明： " & Err.Description & vbCrLf & vbCrLf & _
       "帮助文件： " & Err.HelpFile    & vbCrLf & vbCrLf & _
       "帮助文件主题的上下文 ID： " & Err.HelpContext
复制代码