{"id":445053,"date":"2025-01-15T03:00:14","date_gmt":"2025-01-15T03:00:14","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=445053"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=445053","title":{"rendered":"Traceback \u0432 VBA? \u0427\u0422\u041e?<\/span>"},"content":{"rendered":"
<\/div>\n
\n
\n
\n
\n
\"O_o\"<\/p>\n
O_o<\/figcaption><\/div>\n<\/figure>\n

\u041a\u0430\u043a \u0447\u0430\u0441\u0442\u043e \u0432\u044b \u043b\u043e\u0432\u0438\u0442\u0435 \u043e\u0448\u0438\u0431\u043a\u0438 \u0432 VBA?
\u0410 \u043a\u0430\u043a \u0447\u0430\u0441\u0442\u043e \u0432\u0430\u043c \u043f\u0440\u0438\u0445\u043e\u0434\u0438\u0442\u0441\u044f \u043f\u044b\u0442\u0430\u0442\u044c\u0441\u044f \u043f\u043e\u043d\u044f\u0442\u044c \u043e\u0442\u043a\u0443\u0434\u0430 \u043d\u043e\u0433\u0438 \u0440\u0430\u0441\u0442\u0443\u0442?<\/p>\n

\u0415\u0441\u043b\u0438 \u043c\u0430\u043a\u0440\u043e\u0441 \u0441\u043e\u0441\u0442\u043e\u0438\u0442 \u0438\u0437 \u043e\u0434\u043d\u043e\u0439 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b, \u044d\u0442\u043e \u043d\u0435\u043c\u043d\u043e\u0433\u043e \u0434\u0440\u0443\u0433\u0430\u044f \u0438\u0441\u0442\u043e\u0440\u0438\u044f…
\u041d\u043e \u0432\u043e\u0442 \u0435\u0441\u043b\u0438 \u0443 \u0432\u0430\u0441 \u043f\u043e\u043b\u043d\u043e\u0446\u0435\u043d\u043d\u044b\u0439 \u0441\u0442\u0435\u043a \u0432\u044b\u0437\u043e\u0432\u043e\u0432, \u043a\u043e\u0433\u0434\u0430:<\/p>\n

Main() -> NestedSub1 -> NestedFunc -> NestedSub2 ... -> NestedSubN<\/code><\/p>\n

\u043a\u0430\u043a \u043e\u0442\u043b\u043e\u0432\u0438\u0442\u044c, \u0432 \u043a\u0430\u043a\u043e\u043c \u043f\u0440\u043e\u0438\u0437\u043e\u0448\u043b\u0430 \u043e\u0448\u0438\u0431\u043a\u0430?
\u041e\u043a\u0435\u0439, \u0432\u044b \u0441\u043a\u0430\u0436\u0438\u0442\u0435 «\u041f\u043e\u0441\u0442\u0430\u0432\u0438\u043c On Error GoTo Catch<\/code> \u0438 \u0432 Catch: Debug.Print \"Function name\"<\/code>«, \u0434\u0430?<\/p>\n

<\/figure>\n

\u0410 \u0435\u0441\u043b\u0438 \u044d\u0442\u0443 \u0444\u0443\u043d\u043a\u0446\u0438\u044e \u0432\u044b\u0437\u044b\u0432\u0430\u044e\u0442 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0440\u0430\u0437\u043d\u044b\u0445 Sub\/Function, \u043a\u0430\u043a \u043f\u043e\u043d\u044f\u0442\u044c \u0432 \u043a\u0430\u043a\u043e\u043c \u0438\u0437 \u043d\u0438\u0445 \u043f\u0440\u043e\u0438\u0437\u043e\u0448\u043b\u0430 \u043e\u0448\u0438\u0431\u043a\u0430?<\/p>\n

\u0412 «\u043d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u044b\u0445» (\u043d\u0435 \u043e\u0431\u0440\u0435\u0437\u0430\u043d\u043d\u044b\u0445) \u044f\u0437\u044b\u043a\u0430\u0445 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u0434\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u043f\u0440\u0438\u0434\u0443\u043c\u0430\u043d\u044b Traceback’\u0438, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043f\u043e\u0441\u043b\u0435 \u043e\u0448\u0438\u0431\u043a\u0438 \u0432\u044b\u0432\u043e\u0434\u044f\u0442 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043e \u0432\u044b\u0437\u043e\u0432\u0430\u0445, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043f\u0440\u0438\u0432\u0435\u043b\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u043a \u043e\u0448\u0438\u0431\u043a\u0435. VBA, \u043a \u0441\u043e\u0436\u0430\u043b\u0435\u043d\u0438\u044e, \u043b\u0438\u0448\u0435\u043d \u044d\u0442\u043e\u0439 \u043f\u043b\u044e\u0448\u043a\u0438. \u0422\u0430\u043a \u043a\u0430\u043a \u0436\u0435 \u0431\u044b\u0442\u044c?<\/p>\n

\u0418\u0437\u043e\u0431\u0440\u0435\u0442\u0430\u0442\u044c \u043a\u043e\u0441\u0442\u044b\u043b\u0438, \u043a\u043e\u043d\u0435\u0447\u043d\u043e<\/h2>\n

\u041f\u0440\u0435\u0434\u043b\u0430\u0433\u0430\u044e \u0432\u0430\u0448\u0435\u043c\u0443 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u044e \u043d\u0435 \u0441\u0430\u043c\u044b\u0439 \u0443\u043c\u043d\u044b\u0439 \u0438 \u043b\u0435\u043d\u0438\u0432\u044b\u0439 \u0438 \u043f\u0440\u044f\u043c\u043e\u043b\u0438\u043d\u0435\u0439\u043d\u044b\u0439, \u043d\u043e \u0432\u0441\u0435 \u0442\u0430\u043a\u0438 \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043d\u0430\u0433\u043b\u044f\u0434\u043d\u044b\u0439 \u0438 \u0434\u0435\u0439\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u0439 \u0441\u043f\u043e\u0441\u043e\u0431.<\/p>\n

\u0418\u0442\u0430\u043a, \u0447\u0442\u043e \u043d\u0430\u043c \u043f\u043e\u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f:<\/p>\n

    \n
  1. \n

    \u041c\u043e\u0434\u0443\u043b\u044c Exception<\/code>.<\/p>\n<\/li>\n

  2. \n

    \u0422\u0440\u0438 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b: PushTrace<\/code>, PopTrace<\/code>, PrintTrace<\/code><\/p>\n<\/li>\n<\/ol>\n

    \u0421\u043e\u0431\u0441\u043d\u0430 \u0432\u0441\u0435.
    \u041d\u0430\u0447\u043d\u0435\u043c \u0438\u0437\u043e\u0431\u0440\u0435\u0442\u0430\u0442\u044c \u0441 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b PushTrace<\/code>.<\/p>\n

    PushTrace<\/h3>\n

    \u0427\u0442\u043e \u043e\u043d\u0430 \u0431\u0443\u0434\u0435\u0442 \u0434\u0435\u043b\u0430\u0442\u044c? \u041a\u043e\u043f\u0438\u0442\u044c \u0432 \u043a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u044e Trace<\/code> \u043f\u0435\u0440\u0435\u0434\u0430\u043d\u043d\u044b\u0435 \u0432\u0430\u043c\u0438 \u0434\u0430\u043d\u043d\u044b\u0435, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440 «\u041c\u043e\u0434\u0443\u043b\u044c.\u041f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430» \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u043c\u044b \u0441\u0435\u0439\u0447\u0430\u0441 \u043d\u0430\u0445\u043e\u0434\u0438\u043c\u0441\u044f.<\/p>\n

    Public Sub PushTrace(ParamArray Args() As Variant)   If this.Trace Is Nothing Then Set this.Trace = New Collection   ' \u0420\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c \u0438 \u0432\u0440\u0435\u043c\u044f \u0432 \u043d\u0430\u0447\u0430\u043b\u0435 \u043c\u043e\u0436\u043d\u043e \u0432\u044b\u0431\u0440\u0430\u0442\u044c \u043d\u0430 \u0441\u0432\u043e\u0435 \u0443\u0441\u043c\u043e\u0442\u0440\u0435\u043d\u0438\u0435   this.Trace.Add DateTime.Now & \": \" & Strings.Join(Args, \" \") End If<\/code><\/pre>\n
    \u0417\u0430\u0431\u044b\u043b \u0443\u0442\u043e\u0447\u043d\u0438\u0442\u044c, \u0432 \u0432\u0435\u0440\u0445\u0443 \u043c\u043e\u0434\u0443\u043b\u044f \u043d\u0430\u0434\u043e \u043e\u0431\u044a\u044f\u0432\u0438\u0442\u044c \u043f\u0440\u0438\u0432\u0430\u0442\u043d\u044b\u0435 UDT TException<\/code> \u0438 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e this<\/code>:<\/p>\n
    Private Type TException   Trace As Collection End Type  Private this As TException<\/code><\/pre>\n
    \u0418\u0434\u0435\u043c \u0434\u0430\u043b\u0435\u0435…<\/p>\n
    PopTrace<\/h3>\n
    \u0427\u0442\u043e \u0431\u0443\u0434\u0435\u0442 \u0434\u0435\u043b\u0430\u0442\u044c PopTrace<\/code>? \u041f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e — \u0443\u0434\u0430\u043b\u044f\u0442\u044c \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u044e\u044e \u0437\u0430\u043f\u0438\u0441\u044c \u0432 \u043a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u0438 Trace<\/code>:<\/p>\n
    Public Sub PopTrace()   If this.Trace Is Nothing Then Exit Sub   this.Trace.Remove this.Trace.Count ' \u0412 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0435, \u043c\u043e\u0436\u043d\u043e \u0435\u0449\u0435 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0442\u044c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435,                                      ' \u043d\u043e \u044f \u043d\u0435 \u0437\u043d\u0430\u044e \u0437\u0430\u0447\u0435\u043c :D End If<\/code><\/pre>\n
    PrintTrace<\/h3>\n
    \u041d\u0443 \u0441\u0435\u0439\u0447\u0430\u0441 \u043f\u0440\u0438\u0434\u0435\u0442\u0441\u044f \u043d\u0435\u043c\u043d\u043e\u0433\u043e \u043f\u043e\u0434\u043d\u0430\u043f\u0440\u044f\u0447\u044c\u0441\u044f… \u041a\u0430\u043a \u0432\u044b \u0443\u0436\u0435 \u0434\u043e\u0433\u0430\u0434\u0430\u043b\u0438\u0441\u044c, PrintTrace \u043f\u0435\u0447\u0430\u0442\u0430\u0435\u0442 \u0441\u0442\u0435\u043a \u0432\u044b\u0437\u043e\u0432\u043e\u0432. \u0427\u0442\u043e\u0431\u044b \u043d\u0435 \u0437\u0430\u0441\u043e\u0440\u0438\u0442\u044c \u043a\u0443\u0447\u0435\u0439 \u043c\u0443\u0441\u043e\u0440\u0430 \u0432\u0431\u0430\u043d\u0441\u043e\u043b\u044c (immediate window), \u044f \u0440\u0435\u0448\u0438\u043b \u0434\u043e\u0431\u0430\u0432\u0438\u0442\u044c \u043e\u043f\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u044b\u0439 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442 LastN \u0441\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u043c \u043f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e 10. \u042d\u0442\u043e \u0437\u043d\u0430\u0447\u0438\u0442, \u0447\u0442\u043e \u043f\u0435\u0447\u0430\u0442\u0430\u0442\u044c\u0441\u044f \u0431\u0443\u0434\u0443\u0442 \u0442\u043e\u043b\u044c\u043a\u043e LastN (\u0435\u0441\u043b\u0438 \u043d\u0435 \u0443\u043a\u0430\u0437\u0430\u043d\u043e — 10) \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u0445 \u0432\u044b\u0437\u043e\u0432\u043e\u0432:<\/p>\n
    Public Sub PrintTrace(Optional ByVal LastN As Long = 10)   If this.Trace Is Nothing Then Exit Sub   If this.Trace.Count = 0 Then Exit Sub   If LastN < 1 Then Exit Sub    Dim Index As Long   If LastN > this.Trace.Count Or this.Trace.Count - LastN < 1 Then     Index = 1   Else     Index = this.Trace.Count - LastN + 1   End If    Dim TraceString As String   Dim T As Variant   Dim Sep As String   Do While this.Trace.Count > 0     If this.Trace.Count < Index Then Exit Do      T = this.Trace(Index)     Index = Index + 1      TraceString = TraceString & Sep & T     Sep = VbNewLine   Loop    Dim ErrMsg As String   ErrMsg = \"#{number}: [{source}] {message}\"   ErrMsg = Strings.Replace(ErrMsg, \"{number}\", Err.Number)   ErrMsg = Strings.Replace(ErrMsg, \"{source}\", Err.Source)   ErrMsg = Strings.Replace(ErrMsg, \"{message}\", Err.Description)    TraceString = TraceString & Sep & Sep & ErrMsg    Debug.Print \"Traceback:\"   Debug.Print TraceString End Sub<\/code><\/pre>\n
    \u041e\u043f\u0438\u0441\u0430\u043d\u0438\u0435:<\/p>\n
      \n
    1. \n
      \u0414\u0435\u043b\u0430\u0435\u043c «\u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u043d\u0430 \u0434\u0443\u0440\u0430\u043a\u0430».<\/p>\n<\/li>\n
    2. \n
      \u0414\u0430\u043b\u0435\u0435, \u0432\u044b\u0447\u0438\u0441\u043b\u044f\u0435\u043c \u0441\u0442\u0430\u0440\u0442\u043e\u0432\u044b\u0439 \u0438\u043d\u0434\u0435\u043a\u0441: \u0435\u0441\u043b\u0438 LastN<\/code> \u0431\u043e\u043b\u044c\u0448\u0435 Trace<\/code> \u0438\u043b\u0438 Trace - LastN < 1<\/code>, \u0442\u043e\u0433\u0434\u0430 \u0441\u0442\u0430\u0440\u0442\u043e\u0432\u044b\u0439 \u0438\u043d\u0434\u0435\u043a\u0441 1 (\u0442.\u043a. \u043a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u044f \u0441\u0442\u0430\u0440\u0442\u0443\u0435\u0442 \u0441 1), \u0438\u043d\u0430\u0447\u0435 \u0438\u043d\u0434\u0435\u043a\u0441 = Trace - LastN + 1<\/code>.<\/p>\n<\/li>\n
    3. \n
      \u0414\u0430\u043b\u044c\u0448\u0435 \u0432 \u0446\u0438\u043a\u043b\u0435 \u0432\u044b\u0442\u0430\u0441\u043a\u0438\u0432\u0430\u0435\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0438\u0437 Trace, \u043d\u0430\u0447\u0438\u043d\u0430\u044f \u0441\u043e \u0441\u0442\u0430\u0440\u0442\u043e\u0432\u043e\u0433\u043e \u0438\u043d\u0434\u0435\u043a\u0441\u0430.<\/p>\n<\/li>\n
    4. \n
      \u041f\u043e\u0442\u043e\u043c \u0438\u0437\u0432\u043b\u0435\u043a\u0430\u0435\u043c \u0442\u0435\u043a\u0441\u0442 \u043e\u0448\u0438\u0431\u043a\u0438 \u0432 \u043f\u043e\u0434\u0433\u043e\u0442\u043e\u0432\u043b\u0435\u043d\u043d\u044b\u0439 \u0448\u0430\u0431\u043b\u043e\u043d #{number}: [{source}] {message}<\/code>.<\/p>\n<\/li>\n
    5. \n
      \u0418 \u0432 \u0438\u0442\u043e\u0433\u0435 \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0432 \u0432\u0431\u0430\u043d\u0441\u043e\u043b\u044c.<\/p>\n<\/li>\n<\/ol>\n
      \u041a\u0430\u043a \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f?<\/h3>\n
      \u0410, \u043a\u0430\u043a \u044f \u0438 \u043f\u0438\u0441\u0430\u043b \u0432\u044b\u0448\u0435, \u0432\u0441\u0435 \u043e\u0447\u0435\u043d\u044c \u043f\u0440\u043e\u0441\u0442\u043e:<\/p>\n
        \n
      1. \n
        \u0412 \u043d\u0430\u0447\u0430\u043b\u0435 \u043a\u0430\u0436\u0434\u043e\u0439 (\u043d\u0443 \u0438\u043b\u0438 \u0442\u043e\u043b\u044c\u043a\u043e \u043e\u0442\u0441\u043b\u0435\u0436\u0438\u0432\u0430\u0435\u043c\u043e\u0439) \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b \u0432\u044b\u0437\u044b\u0432\u0430\u0435\u043c:
        Exception.PushTrace \"<Module.Sub>\" ' \u043f\u043e\u0434\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u0441\u0432\u043e\u0438 \u0434\u0430\u043d\u043d\u044b\u0435<\/code><\/p>\n<\/li>\n
      2. \n
        \u0412 \u043a\u043e\u043d\u0446\u0435 \u043a\u0430\u0436\u0434\u043e\u0439 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b, \u043d\u0435\u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043f\u0435\u0440\u0435\u0434 \u0447\u0438\u0441\u0442\u044b\u043c \u0432\u044b\u0445\u043e\u0434\u043e\u043c (\u0431\u0435\u0437 \u043e\u0448\u0438\u0431\u043a\u0438), \u044d\u0442\u043e \u0432\u0430\u0436\u043d\u043e:
        Exception.PopTrace<\/code><\/p>\n<\/li>\n
      3. \n
        \u041d\u0430 \u043e\u0441\u043d\u043e\u0432\u043d\u0443\u044e \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 \u0432\u0435\u0448\u0430\u0435\u043c On Error GoTo Catch<\/code> \u0438 \u0432 Catch<\/code> \u0432\u044b\u0437\u044b\u0432\u0430\u0435\u043c:
        Exception.PrintTrace ' \u043f\u0440\u0438 \u044d\u0442\u043e\u043c \u043c\u043e\u0436\u043d\u043e \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0438\u0442\u044c \u0432\u044b\u0432\u043e\u0434 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e LastN<\/code><\/p>\n<\/li>\n<\/ol>\n
        \u041f\u0440\u0438\u043c\u0435\u0440:<\/strong><\/p>\n
        ' \u0422\u043e\u0447\u043a\u0430 \u0432\u0445\u043e\u0434\u0430 Public Sub Main()   On Error GoTo Catch   Exception.PushTrace \"Module.Main\" ' \u041f\u043e\u043b\u043e\u0436\u0438\u043b\u0438 \u0432 Trace   DoStuff    Exception.PopTrace ' \u0423\u0434\u0430\u043b\u0438\u043b\u0438 \u0438\u0437 Trace Exit Sub  Catch:   Exception.PrintTrace LastN:=3 End Sub  Public Sub DoStuff()   Exception.PushTrace \"Module.DoStuff\" ' \u041f\u043e\u043b\u043e\u0436\u0438\u043b\u0438 \u0432 Trace   DoOtherStuff    Exception.PopTrace ' \u0423\u0434\u0430\u043b\u0438\u043b\u0438 \u0438\u0437 Trace End Sub  Public Sub DoOtherStuff()   Exception.PushTrace \"Module.DoOtherStuff\" ' \u041f\u043e\u043b\u043e\u0436\u0438\u043b\u0438 \u0432 Trace   DoSomeERRORStuff    Exception.PopTrace ' \u0423\u0434\u0430\u043b\u0438\u043b\u0438 \u0438\u0437 Trace End Sub  Public Sub DoSomeERRORStuff()   Exception.PushTrace \"Module.DoSomeERRORStuff\" ' \u041f\u043e\u043b\u043e\u0436\u0438\u043b\u0438 \u0432 Trace   DoSomeOtherStuff ' \u042d\u0442\u0430 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u0441\u044f \u0431\u0435\u0437 \u043e\u0448\u0438\u0431\u043a\u0438                    ' \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0432 Trace \u043e\u0441\u0442\u0430\u043d\u0435\u0442\u0441\u044f \u0442\u043e\u043b\u044c\u043a\u043e                    ' \u0442\u0435\u043a\u0443\u0449\u0430\u044f \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430, \u0442.\u043a. \u043d\u0438\u0436\u0435 \u043e\u0448\u0438\u0431\u043a\u0430   Err.Raise 9, Source:=\"DoSomeERRORStuff\", Description:=\"THIS IS THE ERROR\"   Exception.PopTrace ' \u041d\u0435\u0434\u043e\u0441\u0442\u0438\u0436\u0438\u043c\u044b\u0439 \u043a\u043e\u0434 End Sub  Public Sub DoSomeOtherStuff()   Exception.PushTrace \"Module.DoSomeOtherStuff\"   DoSomeOtherStuff    Exception.PopTrace ' \u0423\u0434\u0430\u043b\u0438\u043b\u0438 \u0438\u0437 Trace End Sub<\/code><\/pre>\n
        \u041d\u0430 \u0432\u044b\u0445\u043e\u0434\u0435 \u043f\u043e\u043b\u0443\u0447\u0438\u043c \u0447\u0442\u043e-\u0442\u043e \u0432\u0440\u043e\u0434\u0435:<\/p>\n
        Traceback: 01.01.1970 0:00:00: Module.DoStuff 01.01.1970 0:00:00: Module.DoOtherStuff 01.01.1970 0:00:00: Module.DoSomeERRORStuff  #9: [DoSomeERRORStuff] THIS IS THE ERROR<\/code><\/pre>\n
        \u041e\u0431\u0440\u0430\u0442\u0438\u0442\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435, \u0447\u0442\u043e \u0442\u0430\u043a \u043a\u0430\u043a \u043c\u044b \u043f\u043e\u0441\u0442\u0430\u0432\u0438\u043b\u0438 \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0438\u0442\u0435\u043b\u044c LastN = 3<\/code>, \u0432\u044b\u0432\u0435\u043b\u043e\u0441\u044c \u0442\u043e\u043b\u044c\u043a\u043e \u0442\u0440\u0438 \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u0445 Trace.<\/p>\n
        \u041a\u0430\u043a-\u0442\u043e \u0442\u0430\u043a, \u043d\u0430\u0434\u0435\u044e\u0441\u044c \u0431\u0443\u0434\u0435\u0442 \u043f\u043e\u043b\u0435\u0437\u043d\u043e \ud83d\ude42<\/p>\n
        P.S. \u042f, \u043a\u0441\u0442\u0430\u0442\u0438, \u0435\u0449\u0435 \u0432 \u0442\u0435\u043b\u0435\u0433\u0440\u0430\u043c<\/a> \u0438\u043d\u043e\u0433\u0434\u0430 \u043f\u0438\u0448\u0443 \u0432\u0441\u044f\u043a\u0443\u044e vba’\u0448\u043d\u0443\u044e (\u0438 \u043d\u0435 \u0442\u043e\u043b\u044c\u043a\u043e) \u0432\u0441\u044f\u0447\u0438\u043d\u0443.<\/p>\n<\/p>\n<\/div>\n<\/div>\n<\/div>\n
        <\/div>\n

         \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438          https:\/\/habr.com\/ru\/articles\/873686\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
        <\/div>\n
        \n
        \n
        \n
        \n
        \n
        O_o<\/figcaption><\/div>\n<\/figure>\n
        \u041a\u0430\u043a \u0447\u0430\u0441\u0442\u043e \u0432\u044b \u043b\u043e\u0432\u0438\u0442\u0435 \u043e\u0448\u0438\u0431\u043a\u0438 \u0432 VBA?
        \u0410 \u043a\u0430\u043a \u0447\u0430\u0441\u0442\u043e \u0432\u0430\u043c \u043f\u0440\u0438\u0445\u043e\u0434\u0438\u0442\u0441\u044f \u043f\u044b\u0442\u0430\u0442\u044c\u0441\u044f \u043f\u043e\u043d\u044f\u0442\u044c \u043e\u0442\u043a\u0443\u0434\u0430 \u043d\u043e\u0433\u0438 \u0440\u0430\u0441\u0442\u0443\u0442?<\/p>\n
        \u0415\u0441\u043b\u0438 \u043c\u0430\u043a\u0440\u043e\u0441 \u0441\u043e\u0441\u0442\u043e\u0438\u0442 \u0438\u0437 \u043e\u0434\u043d\u043e\u0439 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b, \u044d\u0442\u043e \u043d\u0435\u043c\u043d\u043e\u0433\u043e \u0434\u0440\u0443\u0433\u0430\u044f \u0438\u0441\u0442\u043e\u0440\u0438\u044f…
        \u041d\u043e \u0432\u043e\u0442 \u0435\u0441\u043b\u0438 \u0443 \u0432\u0430\u0441 \u043f\u043e\u043b\u043d\u043e\u0446\u0435\u043d\u043d\u044b\u0439 \u0441\u0442\u0435\u043a \u0432\u044b\u0437\u043e\u0432\u043e\u0432, \u043a\u043e\u0433\u0434\u0430:<\/p>\n
        Main() -> NestedSub1 -> NestedFunc -> NestedSub2 ... -> NestedSubN<\/code><\/p>\n
        \u043a\u0430\u043a \u043e\u0442\u043b\u043e\u0432\u0438\u0442\u044c, \u0432 \u043a\u0430\u043a\u043e\u043c \u043f\u0440\u043e\u0438\u0437\u043e\u0448\u043b\u0430 \u043e\u0448\u0438\u0431\u043a\u0430?
        \u041e\u043a\u0435\u0439, \u0432\u044b \u0441\u043a\u0430\u0436\u0438\u0442\u0435 «\u041f\u043e\u0441\u0442\u0430\u0432\u0438\u043c On Error GoTo Catch<\/code> \u0438 \u0432 Catch: Debug.Print \"Function name\"<\/code>«, \u0434\u0430?<\/p>\n
        <\/figure>\n
        \u0410 \u0435\u0441\u043b\u0438 \u044d\u0442\u0443 \u0444\u0443\u043d\u043a\u0446\u0438\u044e \u0432\u044b\u0437\u044b\u0432\u0430\u044e\u0442 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0440\u0430\u0437\u043d\u044b\u0445 Sub\/Function, \u043a\u0430\u043a \u043f\u043e\u043d\u044f\u0442\u044c \u0432 \u043a\u0430\u043a\u043e\u043c \u0438\u0437 \u043d\u0438\u0445 \u043f\u0440\u043e\u0438\u0437\u043e\u0448\u043b\u0430 \u043e\u0448\u0438\u0431\u043a\u0430?<\/p>\n
        \u0412 «\u043d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u044b\u0445» (\u043d\u0435 \u043e\u0431\u0440\u0435\u0437\u0430\u043d\u043d\u044b\u0445) \u044f\u0437\u044b\u043a\u0430\u0445 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u0434\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u043f\u0440\u0438\u0434\u0443\u043c\u0430\u043d\u044b Traceback’\u0438, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043f\u043e\u0441\u043b\u0435 \u043e\u0448\u0438\u0431\u043a\u0438 \u0432\u044b\u0432\u043e\u0434\u044f\u0442 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043e \u0432\u044b\u0437\u043e\u0432\u0430\u0445, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043f\u0440\u0438\u0432\u0435\u043b\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u043a \u043e\u0448\u0438\u0431\u043a\u0435. VBA, \u043a \u0441\u043e\u0436\u0430\u043b\u0435\u043d\u0438\u044e, \u043b\u0438\u0448\u0435\u043d \u044d\u0442\u043e\u0439 \u043f\u043b\u044e\u0448\u043a\u0438. \u0422\u0430\u043a \u043a\u0430\u043a \u0436\u0435 \u0431\u044b\u0442\u044c?<\/p>\n
        \u0418\u0437\u043e\u0431\u0440\u0435\u0442\u0430\u0442\u044c \u043a\u043e\u0441\u0442\u044b\u043b\u0438, \u043a\u043e\u043d\u0435\u0447\u043d\u043e<\/h2>\n
        \u041f\u0440\u0435\u0434\u043b\u0430\u0433\u0430\u044e \u0432\u0430\u0448\u0435\u043c\u0443 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u044e \u043d\u0435 \u0441\u0430\u043c\u044b\u0439 \u0443\u043c\u043d\u044b\u0439 \u0438 \u043b\u0435\u043d\u0438\u0432\u044b\u0439 \u0438 \u043f\u0440\u044f\u043c\u043e\u043b\u0438\u043d\u0435\u0439\u043d\u044b\u0439, \u043d\u043e \u0432\u0441\u0435 \u0442\u0430\u043a\u0438 \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043d\u0430\u0433\u043b\u044f\u0434\u043d\u044b\u0439 \u0438 \u0434\u0435\u0439\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u0439 \u0441\u043f\u043e\u0441\u043e\u0431.<\/p>\n
        \u0418\u0442\u0430\u043a, \u0447\u0442\u043e \u043d\u0430\u043c \u043f\u043e\u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f:<\/p>\n
          \n
        1. \n
          \u041c\u043e\u0434\u0443\u043b\u044c Exception<\/code>.<\/p>\n<\/li>\n
        2. \n
          \u0422\u0440\u0438 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b: PushTrace<\/code>, PopTrace<\/code>, PrintTrace<\/code><\/p>\n<\/li>\n<\/ol>\n
          \u0421\u043e\u0431\u0441\u043d\u0430 \u0432\u0441\u0435.
          \u041d\u0430\u0447\u043d\u0435\u043c \u0438\u0437\u043e\u0431\u0440\u0435\u0442\u0430\u0442\u044c \u0441 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b PushTrace<\/code>.<\/p>\n
          PushTrace<\/h3>\n
          \u0427\u0442\u043e \u043e\u043d\u0430 \u0431\u0443\u0434\u0435\u0442 \u0434\u0435\u043b\u0430\u0442\u044c? \u041a\u043e\u043f\u0438\u0442\u044c \u0432 \u043a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u044e Trace<\/code> \u043f\u0435\u0440\u0435\u0434\u0430\u043d\u043d\u044b\u0435 \u0432\u0430\u043c\u0438 \u0434\u0430\u043d\u043d\u044b\u0435, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440 «\u041c\u043e\u0434\u0443\u043b\u044c.\u041f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430» \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u043c\u044b \u0441\u0435\u0439\u0447\u0430\u0441 \u043d\u0430\u0445\u043e\u0434\u0438\u043c\u0441\u044f.<\/p>\n
          Public Sub PushTrace(ParamArray Args() As Variant)   If this.Trace Is Nothing Then Set this.Trace = New Collection   ' \u0420\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c \u0438 \u0432\u0440\u0435\u043c\u044f \u0432 \u043d\u0430\u0447\u0430\u043b\u0435 \u043c\u043e\u0436\u043d\u043e \u0432\u044b\u0431\u0440\u0430\u0442\u044c \u043d\u0430 \u0441\u0432\u043e\u0435 \u0443\u0441\u043c\u043e\u0442\u0440\u0435\u043d\u0438\u0435   this.Trace.Add DateTime.Now & \": \" & Strings.Join(Args, \" \") End If<\/code><\/pre>\n
          \u0417\u0430\u0431\u044b\u043b \u0443\u0442\u043e\u0447\u043d\u0438\u0442\u044c, \u0432 \u0432\u0435\u0440\u0445\u0443 \u043c\u043e\u0434\u0443\u043b\u044f \u043d\u0430\u0434\u043e \u043e\u0431\u044a\u044f\u0432\u0438\u0442\u044c \u043f\u0440\u0438\u0432\u0430\u0442\u043d\u044b\u0435 UDT TException<\/code> \u0438 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e this<\/code>:<\/p>\n
          Private Type TException   Trace As Collection End Type  Private this As TException<\/code><\/pre>\n
          \u0418\u0434\u0435\u043c \u0434\u0430\u043b\u0435\u0435…<\/p>\n
          PopTrace<\/h3>\n
          \u0427\u0442\u043e \u0431\u0443\u0434\u0435\u0442 \u0434\u0435\u043b\u0430\u0442\u044c PopTrace<\/code>? \u041f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e — \u0443\u0434\u0430\u043b\u044f\u0442\u044c \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u044e\u044e \u0437\u0430\u043f\u0438\u0441\u044c \u0432 \u043a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u0438 Trace<\/code>:<\/p>\n
          Public Sub PopTrace()   If this.Trace Is Nothing Then Exit Sub   this.Trace.Remove this.Trace.Count ' \u0412 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0435, \u043c\u043e\u0436\u043d\u043e \u0435\u0449\u0435 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0442\u044c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435,                                      ' \u043d\u043e \u044f \u043d\u0435 \u0437\u043d\u0430\u044e \u0437\u0430\u0447\u0435\u043c :D End If<\/code><\/pre>\n
          PrintTrace<\/h3>\n
          \u041d\u0443 \u0441\u0435\u0439\u0447\u0430\u0441 \u043f\u0440\u0438\u0434\u0435\u0442\u0441\u044f \u043d\u0435\u043c\u043d\u043e\u0433\u043e \u043f\u043e\u0434\u043d\u0430\u043f\u0440\u044f\u0447\u044c\u0441\u044f… \u041a\u0430\u043a \u0432\u044b \u0443\u0436\u0435 \u0434\u043e\u0433\u0430\u0434\u0430\u043b\u0438\u0441\u044c, PrintTrace \u043f\u0435\u0447\u0430\u0442\u0430\u0435\u0442 \u0441\u0442\u0435\u043a \u0432\u044b\u0437\u043e\u0432\u043e\u0432. \u0427\u0442\u043e\u0431\u044b \u043d\u0435 \u0437\u0430\u0441\u043e\u0440\u0438\u0442\u044c \u043a\u0443\u0447\u0435\u0439 \u043c\u0443\u0441\u043e\u0440\u0430 \u0432\u0431\u0430\u043d\u0441\u043e\u043b\u044c (immediate window), \u044f \u0440\u0435\u0448\u0438\u043b \u0434\u043e\u0431\u0430\u0432\u0438\u0442\u044c \u043e\u043f\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u044b\u0439 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442 LastN \u0441\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u043c \u043f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e 10. \u042d\u0442\u043e \u0437\u043d\u0430\u0447\u0438\u0442, \u0447\u0442\u043e \u043f\u0435\u0447\u0430\u0442\u0430\u0442\u044c\u0441\u044f \u0431\u0443\u0434\u0443\u0442 \u0442\u043e\u043b\u044c\u043a\u043e LastN (\u0435\u0441\u043b\u0438 \u043d\u0435 \u0443\u043a\u0430\u0437\u0430\u043d\u043e — 10) \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u0445 \u0432\u044b\u0437\u043e\u0432\u043e\u0432:<\/p>\n
          Public Sub PrintTrace(Optional ByVal LastN As Long = 10)   If this.Trace Is Nothing Then Exit Sub   If this.Trace.Count = 0 Then Exit Sub   If LastN < 1 Then Exit Sub    Dim Index As Long   If LastN > this.Trace.Count Or this.Trace.Count - LastN < 1 Then     Index = 1   Else     Index = this.Trace.Count - LastN + 1   End If    Dim TraceString As String   Dim T As Variant   Dim Sep As String   Do While this.Trace.Count > 0     If this.Trace.Count < Index Then Exit Do      T = this.Trace(Index)     Index = Index + 1      TraceString = TraceString & Sep & T     Sep = VbNewLine   Loop    Dim ErrMsg As String   ErrMsg = \"#{number}: [{source}] {message}\"   ErrMsg = Strings.Replace(ErrMsg, \"{number}\", Err.Number)   ErrMsg = Strings.Replace(ErrMsg, \"{source}\", Err.Source)   ErrMsg = Strings.Replace(ErrMsg, \"{message}\", Err.Description)    TraceString = TraceString & Sep & Sep & ErrMsg    Debug.Print \"Traceback:\"   Debug.Print TraceString End Sub<\/code><\/pre>\n
          \u041e\u043f\u0438\u0441\u0430\u043d\u0438\u0435:<\/p>\n
            \n
          1. \n
            \u0414\u0435\u043b\u0430\u0435\u043c «\u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u043d\u0430 \u0434\u0443\u0440\u0430\u043a\u0430».<\/p>\n<\/li>\n
          2. \n
            \u0414\u0430\u043b\u0435\u0435, \u0432\u044b\u0447\u0438\u0441\u043b\u044f\u0435\u043c \u0441\u0442\u0430\u0440\u0442\u043e\u0432\u044b\u0439 \u0438\u043d\u0434\u0435\u043a\u0441: \u0435\u0441\u043b\u0438 LastN<\/code> \u0431\u043e\u043b\u044c\u0448\u0435 Trace<\/code> \u0438\u043b\u0438 Trace - LastN < 1<\/code>, \u0442\u043e\u0433\u0434\u0430 \u0441\u0442\u0430\u0440\u0442\u043e\u0432\u044b\u0439 \u0438\u043d\u0434\u0435\u043a\u0441 1 (\u0442.\u043a. \u043a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u044f \u0441\u0442\u0430\u0440\u0442\u0443\u0435\u0442 \u0441 1), \u0438\u043d\u0430\u0447\u0435 \u0438\u043d\u0434\u0435\u043a\u0441 = Trace - LastN + 1<\/code>.<\/p>\n<\/li>\n
          3. \n
            \u0414\u0430\u043b\u044c\u0448\u0435 \u0432 \u0446\u0438\u043a\u043b\u0435 \u0432\u044b\u0442\u0430\u0441\u043a\u0438\u0432\u0430\u0435\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0438\u0437 Trace, \u043d\u0430\u0447\u0438\u043d\u0430\u044f \u0441\u043e \u0441\u0442\u0430\u0440\u0442\u043e\u0432\u043e\u0433\u043e \u0438\u043d\u0434\u0435\u043a\u0441\u0430.<\/p>\n<\/li>\n
          4. \n
            \u041f\u043e\u0442\u043e\u043c \u0438\u0437\u0432\u043b\u0435\u043a\u0430\u0435\u043c \u0442\u0435\u043a\u0441\u0442 \u043e\u0448\u0438\u0431\u043a\u0438 \u0432 \u043f\u043e\u0434\u0433\u043e\u0442\u043e\u0432\u043b\u0435\u043d\u043d\u044b\u0439 \u0448\u0430\u0431\u043b\u043e\u043d #{number}: [{source}] {message}<\/code>.<\/p>\n<\/li>\n
          5. \n
            \u0418 \u0432 \u0438\u0442\u043e\u0433\u0435 \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0432 \u0432\u0431\u0430\u043d\u0441\u043e\u043b\u044c.<\/p>\n<\/li>\n<\/ol>\n
            \u041a\u0430\u043a \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f?<\/h3>\n
            \u0410, \u043a\u0430\u043a \u044f \u0438 \u043f\u0438\u0441\u0430\u043b \u0432\u044b\u0448\u0435, \u0432\u0441\u0435 \u043e\u0447\u0435\u043d\u044c \u043f\u0440\u043e\u0441\u0442\u043e:<\/p>\n
              \n
            1. \n
              \u0412 \u043d\u0430\u0447\u0430\u043b\u0435 \u043a\u0430\u0436\u0434\u043e\u0439 (\u043d\u0443 \u0438\u043b\u0438 \u0442\u043e\u043b\u044c\u043a\u043e \u043e\u0442\u0441\u043b\u0435\u0436\u0438\u0432\u0430\u0435\u043c\u043e\u0439) \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b \u0432\u044b\u0437\u044b\u0432\u0430\u0435\u043c:
              Exception.PushTrace \"<Module.Sub>\" ' \u043f\u043e\u0434\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u0441\u0432\u043e\u0438 \u0434\u0430\u043d\u043d\u044b\u0435<\/code><\/p>\n<\/li>\n
            2. \n
              \u0412 \u043a\u043e\u043d\u0446\u0435 \u043a\u0430\u0436\u0434\u043e\u0439 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b, \u043d\u0435\u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043f\u0435\u0440\u0435\u0434 \u0447\u0438\u0441\u0442\u044b\u043c \u0432\u044b\u0445\u043e\u0434\u043e\u043c (\u0431\u0435\u0437 \u043e\u0448\u0438\u0431\u043a\u0438), \u044d\u0442\u043e \u0432\u0430\u0436\u043d\u043e:
              Exception.PopTrace<\/code><\/p>\n<\/li>\n
            3. \n
              \u041d\u0430 \u043e\u0441\u043d\u043e\u0432\u043d\u0443\u044e \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 \u0432\u0435\u0448\u0430\u0435\u043c On Error GoTo Catch<\/code> \u0438 \u0432 Catch<\/code> \u0432\u044b\u0437\u044b\u0432\u0430\u0435\u043c:
              Exception.PrintTrace ' \u043f\u0440\u0438 \u044d\u0442\u043e\u043c \u043c\u043e\u0436\u043d\u043e \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0438\u0442\u044c \u0432\u044b\u0432\u043e\u0434 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e LastN<\/code><\/p>\n<\/li>\n<\/ol>\n
              \u041f\u0440\u0438\u043c\u0435\u0440:<\/strong><\/p>\n
              ' \u0422\u043e\u0447\u043a\u0430 \u0432\u0445\u043e\u0434\u0430 Public Sub Main()   On Error GoTo Catch   Exception.PushTrace \"Module.Main\" ' \u041f\u043e\u043b\u043e\u0436\u0438\u043b\u0438 \u0432 Trace   DoStuff    Exception.PopTrace ' \u0423\u0434\u0430\u043b\u0438\u043b\u0438 \u0438\u0437 Trace Exit Sub  Catch:   Exception.PrintTrace LastN:=3 End Sub  Public Sub DoStuff()   Exception.PushTrace \"Module.DoStuff\" ' \u041f\u043e\u043b\u043e\u0436\u0438\u043b\u0438 \u0432 Trace   DoOtherStuff    Exception.PopTrace ' \u0423\u0434\u0430\u043b\u0438\u043b\u0438 \u0438\u0437 Trace End Sub  Public Sub DoOtherStuff()   Exception.PushTrace \"Module.DoOtherStuff\" ' \u041f\u043e\u043b\u043e\u0436\u0438\u043b\u0438 \u0432 Trace   DoSomeERRORStuff    Exception.PopTrace ' \u0423\u0434\u0430\u043b\u0438\u043b\u0438 \u0438\u0437 Trace End Sub  Public Sub DoSomeERRORStuff()   Exception.PushTrace \"Module.DoSomeERRORStuff\" ' \u041f\u043e\u043b\u043e\u0436\u0438\u043b\u0438 \u0432 Trace   DoSomeOtherStuff ' \u042d\u0442\u0430 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u0441\u044f \u0431\u0435\u0437 \u043e\u0448\u0438\u0431\u043a\u0438                    ' \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0432 Trace \u043e\u0441\u0442\u0430\u043d\u0435\u0442\u0441\u044f \u0442\u043e\u043b\u044c\u043a\u043e                    ' \u0442\u0435\u043a\u0443\u0449\u0430\u044f \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430, \u0442.\u043a. \u043d\u0438\u0436\u0435 \u043e\u0448\u0438\u0431\u043a\u0430   Err.Raise 9, Source:=\"DoSomeERRORStuff\", Description:=\"THIS IS THE ERROR\"   Exception.PopTrace ' \u041d\u0435\u0434\u043e\u0441\u0442\u0438\u0436\u0438\u043c\u044b\u0439 \u043a\u043e\u0434 End Sub  Public Sub DoSomeOtherStuff()   Exception.PushTrace \"Module.DoSomeOtherStuff\"   DoSomeOtherStuff    Exception.PopTrace ' \u0423\u0434\u0430\u043b\u0438\u043b\u0438 \u0438\u0437 Trace End Sub<\/code><\/pre>\n
              \u041d\u0430 \u0432\u044b\u0445\u043e\u0434\u0435 \u043f\u043e\u043b\u0443\u0447\u0438\u043c \u0447\u0442\u043e-\u0442\u043e \u0432\u0440\u043e\u0434\u0435:<\/p>\n
              Traceback: 01.01.1970 0:00:00: Module.DoStuff 01.01.1970 0:00:00: Module.DoOtherStuff 01.01.1970 0:00:00: Module.DoSomeERRORStuff  #9: [DoSomeERRORStuff] THIS IS THE ERROR<\/code><\/pre>\n
              \u041e\u0431\u0440\u0430\u0442\u0438\u0442\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435, \u0447\u0442\u043e \u0442\u0430\u043a \u043a\u0430\u043a \u043c\u044b \u043f\u043e\u0441\u0442\u0430\u0432\u0438\u043b\u0438 \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0438\u0442\u0435\u043b\u044c LastN = 3<\/code>, \u0432\u044b\u0432\u0435\u043b\u043e\u0441\u044c \u0442\u043e\u043b\u044c\u043a\u043e \u0442\u0440\u0438 \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u0445 Trace.<\/p>\n
              \u041a\u0430\u043a-\u0442\u043e \u0442\u0430\u043a, \u043d\u0430\u0434\u0435\u044e\u0441\u044c \u0431\u0443\u0434\u0435\u0442 \u043f\u043e\u043b\u0435\u0437\u043d\u043e \ud83d\ude42<\/p>\n
              P.S. \u042f, \u043a\u0441\u0442\u0430\u0442\u0438, \u0435\u0449\u0435 \u0432 \u0442\u0435\u043b\u0435\u0433\u0440\u0430\u043c<\/a> \u0438\u043d\u043e\u0433\u0434\u0430 \u043f\u0438\u0448\u0443 \u0432\u0441\u044f\u043a\u0443\u044e vba’\u0448\u043d\u0443\u044e (\u0438 \u043d\u0435 \u0442\u043e\u043b\u044c\u043a\u043e) \u0432\u0441\u044f\u0447\u0438\u043d\u0443.<\/p>\n<\/p>\n<\/div>\n<\/div>\n<\/div>\n
              <\/div>\n

               \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438                https:\/\/habr.com\/ru\/articles\/873686\/<\/a>
              <\/br><\/br><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-445053","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/445053","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=445053"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/445053\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=445053"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=445053"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=445053"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}