- 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
复制代码