Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.06;
Скачать: CL | DM;

Вниз

Подключение GetObject om к уже запущенному Excel   Найти похожие ветки 

 
Fktrc ©   (2005-01-23 21:44) [0]

Хотя вопрос и не по delphi, но все же близко к теме конференции...

Люди умные, объясните, что происходит, ибо "нич-чего не понимаю"(С). Ситуация: WSH 5.6, Excel 2003. Имеется следующий JS-скрипт:[code]var Excel;
var WSH = new ActiveXObject("WScript.Shell");

while(!Excel){
  try {
     // пытаемся подключиться к запущенному экземпляру Excel
     Excel = GetObject("", "Excel.Application");
  } catch(a) {
     WScript.Sleep(1000);
  }
}
WScript.Echo("Excel closing...");
Excel.Application.Quit();[/code]Вроде все правильно - в бесконечном цикле ожидаем запуска Excel. Если к нему удалось подключиться, выходим из цикла, выдаем сообщение "Excel closing..." и после его закрытия закрываем Excel. Результаты же запуска скрипта озадачивают не на шутку!

Первый вариант запуска: Сначала запускаем Excel. Затем запускаем скрипт. Он отрабатывает, как и должен - подключается к Excel, выдает сообщение и закрывает Excel.

Второй вариант, ради которого, собсно, и затевался сыр-бор: сначала запускаем скрипт. Он, как и положено, крутится в цикле, периодически пробуя подключиться к Excel. Запускаем Excel. Ждем... (Excel запущен и активен!) еще ждем... и еще ждем... . Нифига. Но стоит переключиться из окна Excel на любое другое окно (да хоть мышкой по панели задач щелкнуть), как тут же выскакиваем окошко "Excel closing...".
То есть такое впечатление, как будто сразу после запуска Excel его OLE сервер неактивен или не создан. Но как только окно Excel теряет фокус, то OLE сервер тут же создается, либо активизируется, позволяя подключиться к себе...

Казалось бы, бред полный. Но факты - упрямая вещь. Кто поопытнее меня, разъясните, в чем замес. А то я уже просто не знаю что и думать...


 
Fktrc ©   (2005-01-24 09:13) [1]

Fktrc ©   (23.01.05 21:44)
По великой запарке неправильно тему написал, правильно будет не "к уже запущенному Excel", а просто к Excel, так как на момент запуска скрипта его еще нет...


 
Sancho ©   (2005-01-28 15:21) [2]

var Ex = new ActiveXObject("Excel.Application");



Страницы: 1 вся ветка

Текущий архив: 2005.11.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
14-1129101703
dr Tr0jan
2005-10-12 11:21
2005.11.06
Помогите выбрать монитор LCD на 19"


6-1117384270
Flame
2005-05-29 20:31
2005.11.06
проблемка с twebbrowser


5-1108374336
AndyBond
2005-02-14 12:45
2005.11.06
TCollection + Компонент + Инспектор объектов Delphi


2-1129042250
Dofin
2005-10-11 18:50
2005.11.06
Как в SQL запрос подставить значение Edit1.Text?


2-1128996135
Found
2005-10-11 06:02
2005.11.06
%windir%