我們是否需要爲每個子例程創建一個錯誤處理程序？

Question

我從SO複製一段代碼作爲例子。子例程包含一個錯誤處理程序。應該爲所有Subs製作一個錯誤處理程序嗎？

Public Sub SubA() 
    On Error Goto ProcError 

    Connection.Open 
    Open File for Writing 
    SomePreciousResource.GrabIt 

ProcExit: 
    Connection.Close 
    Connection = Nothing 
    Close File 
    SomePreciousResource.Release 

    Exit Sub 

ProcError: 
    MsgBox Err.Description 
    Resume ProcExit 
End Sub 

順便說一下，如何做一個子程序內部的控制流時，代碼執行遇到Exit Sub，End Sub和Resume？在執行過程中遇到諸如ProcError:這樣的標籤時，它是執行它還是跳過它？

Answer 1

退出小組將退出子程序立刻像Java中返回

結束子只是對於像的子程序塊的末尾中的Java

標記}標籤是簡單地在代碼的標記這是用來定義一個跳轉目標。如果您沒有跳轉到標籤但是「定期」到達那裏，標籤本身將被忽略，但標籤後面的代碼將被執行，就好像沒有標籤一樣，您示例中的代碼將一直執行到只要沒有錯誤發生，就退出Sub語句。如果一個occures它會跳到ProcError

簡歷會在這種情況下執行ProcExit看到更多here

Answer 2

簡短的回答是：不，你不僅不需要有錯誤處理程序中的每個程序，但實際上你通常不會在每個過程中出現想要錯誤處理程序。

你會想要做錯誤處理，最有意義的地方去做。通常情況下，您只需要最高級過程中的錯誤處理程序，即調用所有其他程序的錯誤處理程序;較低層次的程序應該在樓上解決問題，並讓錯誤「冒泡」到更高層次的程序。有時你會想在低級過程中進行一些錯誤處理。

如需更多信息，請您看看這兩個優秀的答案被@jtolle：

• VBA Error "Bubble Up"
• Handling errors in math functions

此外，互聯網搜索，就會發現有一個整體上的文獻該網頁關於錯誤處理。在我看來，它有些是錯誤的！但如果它堅持我在前兩段中寫的內容，那麼值得考慮。

Exit Sub和End Sub相當直觀：前者停止執行當前Sub並將控制返回給調用它的過程（或者如果過程未被另一過程調用，則完全停止執行）。後者只是向編譯器指示此處特定Sub的代碼結束的位置 - 如果執行，則End Sub的行爲與Exit Sub的行爲相同。

Resume指定在錯誤處理例程完成後接下來應該發生什麼。原始Resume返回到導致錯誤的同一語句並嘗試再次執行它。 Resume Next跳過導致錯誤的語句，而是跳轉到緊跟其後的語句。 Resume mylabel轉到標籤mylabel:。

如果在執行過程中遇到ProcError:等標籤，則不會發生任何特殊情況，並且執行會轉到標籤後面的下一個語句。當然，在你的例子中，ProcError:將永遠不會被直接執行（即除非產生錯誤），因爲在它之前有Exit Sub。

---

順便說一句，在ProcExit:塊也許應該有On Error Resume Next開始（即保持在關閉的一切，無論任何錯誤的退出），或者，由@Phydaux指出，一個On Error Goto 0（上錯誤，停止執行），否則如果那裏有東西觸發錯誤，你可能會進入錯誤處理程序和代碼之間的無限乒乓循環。

ProcExit: 
    On Error Resume Next ' or, alternatively, On Error Goto 0 
    Connection.Close 
    Connection = Nothing 
    Close File 
    SomePreciousResource.Release 
Exit Sub