Запуск приложения макросом

[chobo]

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

[doober]

Запуск так.

Shell ("I:\Program Files\Notepad++\Notepad++.exe")

А как определяется конец выполнения программой определенного этапа.?
Варианты могут быть разные.
1.если программа отработала и закрылась-по запущенным процессам
2.Если известно время отработки-через таймер.
3.если создается файл-по его наличию,или времени изменения файла

Посмотрите здесь по процессу

[chobo]

Надо запустить скрипт cmd, дождаться его отработки (закрытия черного окна), и продолжить выполнения макроса.

[doober]

Function Cont_Proc() As Boolean
Dim Process As Object
Dim Flag As Boolean
 Do
Flag = False
For Each Process In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process")
If Process.Caption Like "cmd.exe*" Then Flag = True: Exit For

 Next
  Loop Until Flag = False
Cont_Proc = True
End Function

Private Sub CommandButton1_Click()
Shell ("C:\2.cmd")

 Cont_Proc
-- Далее ваш код будет выполняться после окончания работы скрипта
End Sub

[chobo]

Класс!!! Спасибо, не знаю как, но работает!
Правда я для того, чтобы окно видеть изменил команду Shell:
ID = Shell("C:\TV\links_tv.cmd", vbNormalFocus)