錯誤處理VBA中的代碼段執行

Question

我正在編寫一個宏程序，因爲如果發生錯誤，我需要顯示自定義錯誤消息，我在這裏面臨一個問題。錯誤處理工作正常。但在錯誤處理部分的代碼被執行即使錯誤沒有發生

On Error GoTo ErrorHandling 
Source_File_Path = "G:\" & Source_File_name & ".csv" 
Open Source_File_Path For Input As #1 
On Error GoTo 0 
. 
. 
. 
ErrorHandling: 
Worksheets("REPORT_VIEW").Activate 
MsgBox "FILE NOT FOUND" 

我看到了「找不到文件」的每一次錯誤。 幫助我，歡呼...

Answer 1

您需要添加一個Exit子語句（或者如果您的代碼來自函數，則退出函數）。例如：

sub MySub() 

    On Error GoTo ErrorHandling 
    Source_File_Path = "G:\" & Source_File_name & ".csv" 
    Open Source_File_Path For Input As #1 
    On Error GoTo 0 
    . 
    . 
Exit sub 
    ErrorHandling: 
    Worksheets("REPORT_VIEW").Activate 
    MsgBox "FILE NOT FOUND" 

end sub