vba如何表示error判斷

No.1

程式設計過程中，程式出現錯誤不可避免，遇到問題及時返回錯誤提示，然後按照相關問題進行相應的處理，這就是程式設計過程，並不像行雲流水般敲鍵盤，大多時候是看著螢幕發呆，大腦不停地旋轉，思考問題出在什麼地方。

但是如果有一個合理的錯誤提示，過程就簡單多了。

本節就主要介紹一下VBA程式設計中如何獲取返回錯誤號，並且附錯誤號說明。

No.2

Err物件方法

Err物件有兩個方法，一個是Clear，一個是Raise。

可在處理錯誤後使用 Clear 顯式清除 Err 物件。 只要執行以下任意語句，就會自動呼叫 Clear 方法：

任何型別的 Resume 語句

Exit Sub 、 Exit Function 、 Exit Property

任何 On Error 語句

Raise用於生成執行時錯誤， 可用於替代"Error" 語句。

Raise 對於在編寫類模組時生成錯誤很有用，因為相比於通過 Error 語句生成錯誤， Err 物件可以提供更豐富的資訊。 例如，通過 Raise 方法，可在 Source 屬性中指定生成錯誤的源，可以引用有關錯誤的聯機幫助，等等。

Err錯誤號以及說明

Err物件屬性

Description 返回或設定包含與物件關聯的描述性字串的字串表示式

HelpContext 返回或設定包含幫助檔案中的主題的上下文 ID 的字串表示式

HelpFile 返回或設定一個包含幫助檔案的完全限定路徑的字串表示式

Number 返回或設定指定錯誤的數值

Source 指定表示生成錯誤的物件的字串表示式

No.3

Err示例

本例中，可實現模擬錯誤號發生，下拉框中列出所有錯誤號程式碼，選擇任意錯誤號，單擊錯誤程式碼按鈕即可彈出錯誤號提示。

程式碼

Private Sub CommandButton1_Click()

On Error Resume Next '

Dim Msg， x

x = e'選擇錯誤號

r

e x

If er <> 0 Then

Msg = "Error # " & Str(er) & " was generated by " _

& ce & Chr(13) & ription

MsgBox Msg， ， "Error"， File， Context

End If

End Sub

Err物件學習程式設計中是一個漸進的過程，可以在遇到某些問題的時候進行錯誤處理，由於其錯誤號太多，錯誤型別也難以全部記住，所以沒必要全部掌握。

同時在程式設計中有一個通用方法，防止錯誤發生，那就是要在程式碼中寫入如下一行程式碼。

On Error Resume Next

此行程式碼可理解為，當錯誤發生的時候跳過錯誤行繼續下一行執行程式。

可避免較多的錯誤發生。