Source 属性

返回或设置最初生成错误的对象或应用程序的名称。 [code][i]object[/i].[b]Source [/b][= stringexpression][/code] [h3]参数[/h3]object [b]Err[/b] 对象。 stringexpression 字符串表达式，表示生成错误的应用程序。 [h3]说明[/h3][b]Source[/b] 属性指定一个字符串表达式，此表达式通常是导致错误的对象的类名称或程序设计的 ID。当代码无法处理可访问对象产生的错误时，请使用 [b]Source[/b] 为用户提供信息。例如，如果访问 Microsoft Excel 并且产生一个[b]被零除[/b]的错误，Microsoft Excel 将 [b]Err.Number[/b] 设置为此错误的错误代码并将 [b]Source[/b] 设置为 Excel.Application。注意，如果错误产生于另一个由 Microsoft Excel 调用的对象中，则 Excel 截获此错误并且将 [b]Err.Number[/b] 设置为它自己的[b]被零除[/b]的代码。但是，它保留其他 [b]Err[/b] 对象（包括 [b]Source[/b]），就象由产生错误的对象设置一样。 [b]Source[/b] 总是含有最初产生错误的对象名称，您可根据所访问对象的错误信息文档，编写处理错误的代码。若错误处理程序失败，则可使用 [b]Err[/b] 对象信息为用户描述错误，使用 [b]Source[/b] 和其他 [b]Err[/b] 通知用户最初导致错误的对象、错误描述等等。 在代码中产生错误时，[b]Source[/b] 是应用程序的程序设计 ID 。 下面代码举例说明如何使用 [b]Source[/b] 属性:

[code]On Error Resume NextErr.Raise 6   ' Raise an overflow error.MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description & [b]Err.Source[/b])Err.Clear   ' Clear the error.[/code]