1 Тема от Fck_This

  • Запись исполняемого кода
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

Тема: Запись исполняемого кода

Доброго всем времени суток. Нахожусь в поиске информации о ведении логов исполнения макросов. Интересует возможность записывать выполненные строки кода и возникающие ошибки. Желательно в текстовый файл или в переменные. Может быть есть какие-то функции или библиотеки для подобного?

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

2 Ответ от Boris_R

  • Boris_R
  • полковник
  • Неактивен
  • Зарегистрирован: 07.08.2012
  • Сообщений: 234
  • Поблагодарили: 110

Re: Запись исполняемого кода

Лог ошибок, возникающих при выполнении макроса можно создать примерно так

Sub err_print()
Dim Msg
    On Error GoTo ErrHandler
'   ......
'   Здесь ваш код
'   ......
'    Err.Raise 6    ' Генерация ошибки "Overflow" .
'    Err.Raise 13   ' Генерация ошибки "Type mismatch".
'    ......
    Exit Sub
'Формируем лог ошибок в окне Immediate
ErrHandler:
    If Err.Number <> 0 Then
        Msg = "Error # " & str(Err.Number) & " was generated by " _
                & Err.Source & vbTab & Err.Description
        Debug.Print Msg, "Error", Err.HelpFile, Err.HelpContext
    End If
    Resume Next

End Sub

3 Ответ от Fck_This

  • Запись исполняемого кода
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

Re: Запись исполняемого кода

Boris_R пишет:

Лог ошибок, возникающих при выполнении макроса можно создать примерно так

Sub err_print()
Dim Msg
    On Error GoTo ErrHandler
'   ......
'   Здесь ваш код
'   ......
'    Err.Raise 6    ' Генерация ошибки "Overflow" .
'    Err.Raise 13   ' Генерация ошибки "Type mismatch".
'    ......
    Exit Sub
'Формируем лог ошибок в окне Immediate
ErrHandler:
    If Err.Number <> 0 Then
        Msg = "Error # " & str(Err.Number) & " was generated by " _
                & Err.Source & vbTab & Err.Description
        Debug.Print Msg, "Error", Err.HelpFile, Err.HelpContext
    End If
    Resume Next

End Sub

Спасибо, конечно, но про ошибки по " он эррор го ту" и так понятно. Больше интересовала запись выполнения всего кода, какие строки выполнились, а какие нет. Важно понять кто из пользователей что делал до ошибки (т.е. по какому пути пошёл макрос с результатом-ошибкой). Ну и плюс номер строки с ошибкой.

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871