MS VBA | Err.Raise

Поднять Exception

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

Например:

Sub MainSub()

On Error GoTo Err

'…

Call Sub_1

'…

Exit Sub

Err:

 MsgBox err.Number & err.Description, vbCritical, err.Source

 Exit Sub

End Sub

Вложенная процедура при этом (не поднимает Exception):

Sub Sub1()

On Error GoTo Err

'…

Exit Sub

Err:

       Exit Sub

End Sub

В вызываемой процедуре Sub1 уточняем Err:

Sub Sub1()

On Error GoTo Err

'…

Exit Sub

Err:

       err.Raise err.Number, "Sub1", err.Description

       Exit Sub

End Sub