Developing.ru

Код: Выделить всё

Public Sub errLogger(lNum&, sDescr$, sProc$)
Dim FileNum%, sFile$
FileNum = FreeFile
sFile = ActiveWorkbook.Path & "\Errors.log"
'sFile = App.Path & "\Errors.log" ' при использовании VB
Open sFile For Append As FileNum
Write #FileNum, lNum, Chr(9) & sDescr, Chr(9) & sProc
Close FileNum
End Sub

Код: Выделить всё

 Sub Proc()
On Error Resume Next
...
...
If Not Err.Number = 0 Then
    errLogger Err.Number, Err.Description, "Имя процедуры, ..."
    Err.Clear
End If
End Sub

Код: Выделить всё

Sub Trace2Left(ByRef Tr As Trace, ind As Integer) 

[B]On Error Resume Next[/B]
    
    SU False
    Dim Shift As Integer: Shift = -1
    Dim ac4 As Range: Set ac4 = ActiveCell.Worksheet.Cells(ActiveCell.Row, 4)
                LogW "Trace2Left", "Ind = " & ind, az_Log_Default

        Tr.Add_Node_from_Cell_Ref ac4, ind 
        ind = ind - 1
        
        Do While ac4.Offset(0, Shift).HyperLinks.Count > 0
            
            ac4.Offset(0, Shift).HyperLinks(1).Follow ' [B]здесь вылетает ошибка - "Run-time error - Не удаётся открыть файл"[/B] (файл я намеренно удалил)
            
            If Err.Number <> 0 Then MsgBox Err.Description: Exit Do ' [B]до этого места выполнение кода не доходит[/B]
            
            Set ac4 = ActiveCell.Worksheet.Cells(ActiveCell.Row, 4)
            
            Tr.Add_Node_from_Cell_Ref ac4, ind 
            ind = ind - 1:            If Shift = 5 Then Shift = -1 Else Shift = 5
        Loop
    SU True
End Sub

Код: Выделить всё

.... 
    s = ac4.Offset(0, Shift).Hyperlinks(1)
    If Len(Dir(s)) > 0 Then ...