在VBA中error handling部分代码执行

我正在编写一个macros程序，因为如果发生错误，我需要显示自定义错误消息，我在这里面临一个问题。 error handling正常工作。 但error handling部分中的代码即使未发生错误也正在执行

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" 

我每次都看到“FILE NOT FOUND”错误。 帮助我，干杯…

Answer 1

您需要添加一个退出子语句（或退出函数，如果您的代码来自函数）。 例如：

 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