Главная страница
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.026 c
2-1129050240
Fasd
2005-10-11 21:04
2005.11.06
Как проверить наличие записи с помощью SQL-запроса?


4-1125750833
Alloun
2005-09-03 16:33
2005.11.06
альтернатива TBitmap ?


4-1125644715
Bobby
2005-09-02 11:05
2005.11.06
TRegIniFile.Read(Write)Integer


2-1129362612
Vital
2005-10-15 11:50
2005.11.06
Pисунок на форме


2-1129059369
DroNIX
2005-10-11 23:36
2005.11.06
Как рационально изменить формулу