Форум: "KOL";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "KOL";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.037 c