Обработчик ошибок

[XPAiN]

Допустим есть некоторый обработчик ошибок в VBA; мне необходимо чтобы при появлении некой ошибки в коде я узнавал в каком модуле , в какой процедуре , в какой строчке кода это произошло. Помогите плз кто знает как. Заранее благодарен.

[SAS888]

Могу лишь посоветовать метод, как узнать имя модуля, в котором произошла ошибка. Можно сделать так:
Перед каждым перехватом ошибки (перед On Error...) вставить какой-нибудь идентификатор (в предложенном коде это строковая переменная Ident) и в коде обработки ошибки выполнить предложенную подпрограмку.

Dim Ident As String
    Ident = "Identifikator_1"
    Call Poisk(Ident)
    MsgBox Ident ' Теперь это имя модуля в котором произошла ошибка
    '
    '
    '
Private Sub Poisk(Ident)

    Dim CompName As Object, ModulName As String
    For Each CompName In ThisWorkbook.VBProject.VBComponents
        With CompName.CodeModule
            If .Find(Ident, 1, 1, .CountOfLines, 1) = True Then
                Ident = CompName.Name
                Exit For
            End If
        End With
    Next

End Sub

[SAS888]

А если в качестве идентификатора использовать имя процедуры и номер вхождения оператора On Error в эту процедуру, то очень просто получить имя модуля и имя самой процедуры:

Sub IfErrorIsTrue()

    Dim Ident As String
    Ident = "Procedure: Macro1()_1" 'Имя процедуры и номер оператора On Error
    Call Poisk(Ident) 'Две последние строки вставить в код обработки при возникновении ошибки

End Sub
Sub Poisk(Ident)

    Dim CompName As Object, ModulName As String, Nm As String
    For Each CompName In ThisWorkbook.VBProject.VBComponents
        With CompName.CodeModule
            If .Find(Ident, 1, 1, .CountOfLines, 1) = True Then
                Nm = CompName.Name
                Exit For
            End If
        End With
    Next
    
'Для примера, выведем сообщение, содержащее имя модуля и имя процедуры
'в которой произошла ошибка. Что нужно с этими данными делать на
'самом деле - Вам виднее.

    MsgBox "Module: " & Nm & vbCrLf & Ident

End Sub

Получить номер строки я пока не пробовал.

[XPAiN]

Спасибо Попробую