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

Вниз

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

 
JT   (2004-11-05 08:59) [0]

Доброго времени суток! Есть такая проблема:

uses ComObj;

var Excel : Variant;

procedure TForm1.Button1Click(Sender : TObject);
begin
Excel:=CreateOleObject("Excel.Application.11");
Excel.Visible:=True;
end;

procedure TForm1.Button2Click(Sender : TObject);
begin
if not VarIsEmpty(Excel) then Excel.Quit;
end;


В VCL проекте всё это прекрасно работает, а вот в KOL при вызове функции CreateOleObject возникает исключение - чего то там насчёт вызова CoInitialize - точно текст мессаги не помню. Народ, подскажите пожалуйста, чего я не так делаю?


 
mdw ©   (2004-11-05 10:22) [1]

Так вызови сначала CoInitialize.


 
DmiSb   (2004-11-05 10:27) [2]

Я делал так

uses .....,ComObj;

.....
var WorkBook, Sheet: Variant;
 exl: OleVariant;
 fileName: String;
begin
 KOL.OleInit;
 fileName:= "1.xls";
 exl := CreateOleObject("Excel.Application");
 exl.DisplayAlerts := false;
 WorkBook := exl.Application.WorkBooks.Add(filename);
 Sheet := WorkBook.WorkSheets[1];
 ....

 ....
 exl.visible:=true;
 exl.Application.ActiveWorkBook.Saveas(filename);
end;

Будут вопросы, звони  :0)


 
JT   (2004-11-09 10:27) [3]

Бальшое пасиба!!! Извиняюсь, что отвечаю с такими интервалами - ну нет у меня дома инета.



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

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

Наверх




Память: 0.47 MB
Время: 0.115 c
4-1114097458
netmouse
2005-04-21 19:30
2005.06.14
Как послать клавиатурное сочетание


14-1117196870
Pavel__
2005-05-27 16:27
2005.06.14
Компонент как в D 2005 - кнопка, при наведении выдвигается...


14-1116687140
some_user
2005-05-21 18:52
2005.06.14
Посоветуйте заменитель корзины Windows


14-1117095731
Nic87
2005-05-26 12:22
2005.06.14
Вопрос модераьорам


1-1117108540
Артём К.
2005-05-26 15:55
2005.06.14
Выделение и перетаскивание мышью нескольких компонент?