Код попадает в обработчик ошибок, даже если задача выполнена без ошибок

Question

Я использую рабочую книгу, которая копирует информацию из других рабочих книг, используя следующий код:

Sub importarbens()
On Error GoTo ErrorHandler

{...}

ErrorHandler:
    Workbooks(nomearq2).Close
    MsgBox "Arquivo Incompatível"
    Exit Sub


End Sub

Но, очевидно, мой код всегда попадает вErrorHandler, даже когда код выполняется без ошибок и после выполнения задачи.Появляется сообщение в окне сообщения. Когда я отключаю обработчик ошибок, код работает хорошо

Answer 1

Вам необходимо добавить Exit Sub:

Sub importarbens()
On Error GoTo ErrorHandler
{...}

Exit Sub  '<< end of the "happy path" for your code....

ErrorHandler:
    Workbooks(nomearq2).Close
    MsgBox "Arquivo Incompatível"

    Exit Sub '<< Don't really need this since you're already 
             '   at the end of the sub


End Sub