Source 屬性

返回或設(shè)置最初生成錯(cuò)誤的對象或應(yīng)用程序的名稱。

object.Source [= stringexpression]

參數(shù)

object

Err 對象。

stringexpression

字符串表達(dá)式，表示生成錯(cuò)誤的應(yīng)用程序。

說明

Source 屬性指定一個(gè)字符串表達(dá)式，此表達(dá)式通常是導(dǎo)致錯(cuò)誤的對象的類名稱或程序設(shè)計(jì)的 ID。當(dāng)代碼無法處理可訪問對象產(chǎn)生的錯(cuò)誤時(shí)，請使用 Source 為用戶提供信息。例如，如果訪問 Microsoft Excel 并且產(chǎn)生一個(gè)被零除的錯(cuò)誤，Microsoft Excel 將 Err.Number 設(shè)置為此錯(cuò)誤的錯(cuò)誤代碼并將 Source 設(shè)置為 Excel.Application。注意，如果錯(cuò)誤產(chǎn)生于另一個(gè)由 Microsoft Excel 調(diào)用的對象中，則 Excel 截獲此錯(cuò)誤并且將 Err.Number 設(shè)置為它自己的被零除的代碼。但是，它保留其他 Err 對象（包括 Source），就象由產(chǎn)生錯(cuò)誤的對象設(shè)置一樣。

Source 總是含有最初產(chǎn)生錯(cuò)誤的對象名稱，您可根據(jù)所訪問對象的錯(cuò)誤信息文檔，編寫處理錯(cuò)誤的代碼。若錯(cuò)誤處理程序失敗，則可使用 Err 對象信息為用戶描述錯(cuò)誤，使用 Source 和其他 Err 通知用戶最初導(dǎo)致錯(cuò)誤的對象、錯(cuò)誤描述等等。

在代碼中產(chǎn)生錯(cuò)誤時(shí)，Source 是應(yīng)用程序的程序設(shè)計(jì) ID 。

下面代碼舉例說明如何使用 Source 屬性:

On Error Resume NextErr.Raise 6   ' Raise an overflow error.MsgBox ("Error # "  CStr(Err.Number)  " "  Err.Description  Err.Source)Err.Clear   ' Clear the error.