Макрос-оповещение

[strannick]

Добрый день, уважаемые форумчане!
Опишу ситуацию. Есть файл, в котором ряд макросов срабатывает либо по времени, либо с периодичностью. Иногда зависает на выполнении какого-либо из них. Конечно, борюсь с этим, но до конца не поборол.
Так вот, вопрос в следующем: Как можно организовать оповещение, допустим по почте или отправкой смс, в случае, если файл (макрос) завис? Интересует не код, а алгоритм. С обратной ситуацией, когда макрос сработал и оповещение ушло, все понятно. А вот при зависании - не могу сообразить.
Буду благодарен любому совету. Заранее спасибо!

[DiemonStar]

Зависания разные бывают... все не предусмотришь.

[strannick]

Сообщение от DiemonStar

Зависания разные бывают... все не предусмотришь.

Хотя бы в варианте, когда макрос вываливается в debag.

[IgorGO]

алгоритм простой:
сообщение на старте: стартовал макрос, время
сообщение на финише: отработал макрос, время

если в почте "стартовал" есть, а парного "отработал" нету - висит Ваш макрос, надо тщательно дорабатывать код напильником...

[DiemonStar]

Хотя бы в варианте, когда макрос вываливается в debag.

On Error GoTo

вполне Вам поможет...

[DiemonStar]

сорри, дубль...

[Hugo121]

Я думаю так - если висит макрос, то другой макрос не поможет, тут нет мультизадачности.
А вот сочинить какойнить внешний скрипт/exe, который запустить при старте макроса, и который будет периодически проверять результат работы макроса (например внешний текстовый файл) можно.
Например раз в 5/10/15 секунд проверяет текст и ищет в нём метки - каждый раз метка должна увеличиваться. Если файла нет или метка зависла - значит висит.

А on error может не наступить - например что-то там зациклится, или вообще эксель вылетит...

[DiemonStar]

А on error может не наступить - например что-то там зациклится, или вообще эксель вылетит...

я уже об этом говорил: #2

[strannick]

Сообщение от IgorGO

алгоритм простой:
сообщение на старте: стартовал макрос, время
сообщение на финише: отработал макрос, время

если в почте "стартовал" есть, а парного "отработал" нету - висит Ваш макрос, надо тщательно дорабатывать код напильником...

Да, тут можно было бы отправлять сообщение просто по завершении работы макроса "отработал макрос, время". Если отработал, то сообщение поступило. Если нет (завис), то и сообщения нет. Этот вариант я продумывал и в процедуру прописывал, тут сложностей нет. Самый часто используемый макрос срабатывает раз в 20 мин. Вот по его срабатыванию и можно было бы.
Но, хотелось бы как раз наоборот, чтобы сообщения отсылались не когда отработал, а когда Не отработал. Вот наверное как DiemonStar писал: Если On Error GoTo "отправить сообщение", Если не On Error, то по обычной процедуре.

[DiemonStar]

Сообщение от strannick

Но, хотелось бы как раз наоборот, чтобы сообщения отсылались не когда отработал, а когда Не отработал. Вот наверное как DiemonStar писал: Если On Error GoTo "отправить сообщение", Если не On Error, то по обычной процедуре.

Как правильно заметил Hugo121, в случае бесконечной рекурсии или зависания офиса этот вариант не поможет.

Могу предложить другой способ: вести лог запуска процедур в текстовом файле (процедура запущена[время] и процедура завершена[время]), а для проверки использовать стороннюю программку, периодически проверяющую логи процедур на завершение через определенный интервал. Остальные способы так или иначе будут не срабатывать в ряде случаев.