powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Последовательное выполнение
2 сообщений из 2, страница 1 из 1
Последовательное выполнение
    #33581597
RAZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Уважаемый ALL,
Имеется такой скрипт:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim objXL
Dim objWshShell

Set objWshShell = CreateObject("WScript.Shell")
	objWshShell.Run "sqlplus scott/scott@test @c:\rep\bat\emp.sql",  0 , false 'стартуем батник

Set objXL = WScript.Createobject("Excel.Application")
	objXL.Visible = false
	objXL.WorkBooks.Open("c:\rep\sourse\mac.xls") 'открываем файл с макросом
	objXL.run("Formatka") 'обработка файла полученного батником
Set objXL=Nothing
Set objWshShell=Nothing
Проблема в том, что запускается DOS окно, т.е. батник отработать не успел, а Exel уже пытается отработать файл-результат.
Как по простому сделать, что бы Exel стартовал после полного выполнения первой части скрипта?
...
Рейтинг: 0 / 0
Последовательное выполнение
    #33582033
Последний параметр метода Run оъекта WshShell как раз и указывает на это:

Код: plaintext
1.
  True - сценарий возобновит работу только после завершения вызванного процесса.
  False - управление передаётся сразу обратно в сценарий.

Код: plaintext
objWshShell.Run "sqlplus scott/scott@test @c:\rep\bat\emp.sql",  0 , True
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Последовательное выполнение
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]