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

[Hugo121]

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

[strannick]

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

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

Hugo121

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

Похоже, что так. А как и посредством чего вести логи? ну и проверять их. Хотя бы в общем виде или ссылку на источник. Что-то полегче. Может существует готовое решение.

[IgorGO]

логи вести Вашими макросами - дописывать в текстовый файл строку за строкой, а вот чем, когда и как их анализировать - это вопрос на который Вам предстоит найти ответ

[Hugo121]

У меня готового нет.
Лог это обычный текстовый файл, который сразу после записи освобождается для доступа (хотя может и занятый можно считать, точно не знаю).
Примеров кода записи/дозаписи текста много всюду.
Сложнее написать этот сторонний скрипт, чтоб он работал и периодически чекал этот файл, анализировал содержимое. И чтоб не работал вечно

[DiemonStar]

А как и посредством чего вести логи? ну и проверять их.

Вести логи лучше всего непосредственно в ваших макросах (можно даже и без файла логов - например, через реестр).

т.е. при запуске макроса записывается значение с временем начала исполнения данной процедуры в лог, а перед завершением - с временем окончания.

Для проверок придется писать программу на каком-либо из языков программирования (Delphi, C++ и т.п.), которая будет работать, например, в трее и проверять данные по работе процедур с определенной периодичностью. в принципе, программа элементарная...

[Hugo121]

Кажется можно и vbs заставить это делать. Т.е. тот же VBA практически.

Или же создать другой экземпляр Экселя, в котором выполнить макрос по проверке этого лога.
Вот только не знаю, что будет с вторым Экселем, если первый зависнет или рухнет?

[DiemonStar]

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

Кажется можно и vbs заставить это делать. Т.е. тот же VBA практически.

Там, скорее всего, придется использовать планировщик задач для запуска. или сильно углубляться в API.

[Hugo121]

Да, я нашёл только такое. Но в принципе можно приспособить

 ' Monitor File Creation (from VBSEDIT Collection)

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & _
        strComputer & "\root\cimv2")

Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
    ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _
        & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
            & "TargetInstance.GroupComponent= " _
                & "'Win32_Directory.Name=""C:\\\\Documents and Settings\\\\\юзер\\\\\Desktop""'")

Do
    Set objLatestEvent = colMonitoredEvents.NextEvent
    Wscript.Echo objLatestEvent.TargetInstance.PartComponent
Loop

P.S. Кто объяснит, зачем в этих кодах всегда
strComputer = "."
Почему нельзя просто использовать "."?

[Скрипт]

Hugo121: Почему нельзя просто использовать "."?

можно сразу использовать. Это связано с тем, что то, что вы предлагаете использовать, относится к программе "WMI". Вместе с операционной системой "Windows" продаётся ещё программа "WMI". Программа "WMI" предназначена для работы с удалённым компьютером, а не с локальным компьютером. Но для "WMI" придумали другое использование - для локального компьютера. Точка означает "локальный компьютер". Вместо точки должно быть имя удалённого компьютера. Видимо имя удалённого компьютера удобнее кому-то писать в переменную. Но для точки решили не изменять синтаксис и так и оставили переменную "strComputer".

[Hugo121]

Скрипт, спасибо. Наконец-то прояснилось