OLE

← →
grayver (2004-01-24 06:38) [0]

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

try with MainContainer do begin if CLSIDFromProgID("Excel.Application", ClassID)<>S_OK then begin MessageDlg(msgExcelNotInstalled,mtError,[mbOk],0); FreeAll; exit; end; CreateObject("Excel.Sheet",false); DoVerb(PrimaryVerb); CurApp:=TExcelApplication.Create(MainContainer); CurApp.Connect; end; except MessageDlg(msgExcelInitError,mtError,[mbOk],0); FreeAll; end;

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

← →
grayver (2004-01-25 10:27) [1]

неужели никто не сталкивался с такой проблемой?

Ты еще не разобрался как в лист в контейнере данные выводить ? У меня аналогичная проблема. Если нет, могу подсказать как выводить данные сразу в Excel, если разобрался подскажи мне плз.

OLE Найти похожие ветки