Source 方法

返回或设置最初生成错误的对象或应用程序的名称。

语法

object.Source

参数：

Object：必需。始终为 Err 对象。

注释

Source 属性指定字符串表达式，该表达式通常是导致错误的对象的类名或编程 ID。当您的代码无法处理访问对象中生成的错误时，使用 Source 向用户提供信息。例如，如果访问生成“除数为零”错误的代码，则 Err.Number 将设置为该错误的错误代码。

Source 始终包含最初生成错误的对象的名称 - 您的代码可以尝试根据您访问的对象的错误文档来处理该错误。如果错误处理程序失败，可以使用 Err 对象信息向用户描述错误，使用 Source 和其他 Err 通知用户最初导致错误的对象、错误说明等。

从代码生成错误时，Source 是应用程序的编程 ID。

以下代码说明了 Source 方法的用法。

示例 1：

Sub RaiseUserDefinedError()
    On Error Resume Next       ' Enable error handling.
    Err.Raise 1, "SomeObject", "A custom error description."
     Output =  "Error # " & Err.Number & ": " & Err.Description & " Source: " & Err.Source
    Err.Clear                  ' Clear the error.
End Sub
'Output : Error # -1: A custom error description. Source: SomeObject