Запуск внешней программы, управление ею

Запуск макроса в заданное время

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

При помощи OnTime можно организовать ожидание завершения какой-то операции. Таким образом реализуется перемещение текущего документа в другую папку. Поскольку активный документ не может быть перемещен, то можно запустить при помощи Shell специальный документ-перемещалку, то есть документ, в котором через некоторое время после открытия будет запускаться макрос, перемещающий исходный файл.

В исходном файле с именем g:\try\ish.docm по закрытию документа выполняется следующий код, в котором вызывается MS Word с параметром – документом, содержащем макрос, выполняемый через заданное время.

Private Sub Document_Close()

ThisDocument.Save

Shell "e:\Program Files\Microsoft Office\Office12\WINWORD.EXE g:\Doc1.docm"

End Sub

В открытом файле Doc1.docm обработчик события Document_Open выглядит следующим образом:

Private Sub Document_Open()

Application.OnTime Now + TimeValue("00:00:15"), "Module1.replace"

End Sub

Наконец, в модуле содержится процедура replace, код которой перемещает исходный файл в некоторую папку.

Sub replace()

Dim fs As New Scripting.FileSystemObject

fs.MoveFile " g:\try\ish.docm ", " g:\arh\ish.docm"

Application.Quit True

End Sub

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

Очень важно то, что запуск внешней задачи при помощи Shell осуществляется в асинхронном режиме! Если же Вы запускаете внешнее приложение с помощью CreateObject или GetObject, то такой запуск осуществляется в синхронном режиме, по крайней мере, ожидается окончание выполнения кода обработчика события «открытие документа». Кроме того, при помощи Shell можно запустить любой выполняемый файл, а при помощи CreateObject – только COM-сервер.

Запущенным по команде Shell приложением можно управлять. Для этого следует его активизировать – оператор AppActivate, а затем отправить ему команды, имитируя клавиатурный ввод – оператор SendKeys. Второй параметр команды SendKeys определяет, ожидать или нет завершения указанной операции.

В примере ниже открывается «Блокнот», затем активизируется его окно. В текстовое окно записывается выражение, в котором складываются несколько подряд расположенных чисел (от 1 до 50). Затем закрывается окно Блокнота, причем передается имя файла для сохранения.

Dim RetVal

RetVal = Shell("E:\WINDOWS\NOTEPAD.EXE", 1) ' запуск блокнота

AppActivate RetVal ‘ блокнот располагается сверху всех окон

For i = 1 To 50 '

SendKeys i & "{+}", True ' в текстовое окно вносится выражение 1+2+3+..+50

Next

SendKeys "%{F4}", True ' закрываем окно

SendKeys "{ENTER}", True ' отвечаем на появившийся запрос, что хотим сохранить

SendKeys "g:\ttt{ENTER}{ENTER}", True ' задаем имя файла, и окно закрывается

Дата добавления: 2014-01-04