错误处理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