передача данных в Excel

← →
sff © (2006-03-17 16:18) [0]

Мне нужно из программы передать данные в Excel таблицу. Как можно организовать передачу данных?Т.е. как в KOL реализуется механизм OLE?

← →
Vladimir Kladov (2006-03-17 16:35) [1]

Это делается точно так же как и под VCL - через Variant и Com-объект. Т.е. берете код который работап в VCL, и он же будет работать и в KOL.

← →
sff © (2006-03-18 06:32) [2]

Спасибо!

← →
YDS (2006-06-16 21:51) [3]

Хмм, а у меня не пашет.

Код такой:
...
uses Windows, Messages, ShellAPI, KOL, KOLMHXP {$IFNDEF KOL_MCK}, mirror, Classes, Controls, mckControls, mckObjs, Graphics, mckCtrls,
MCKMHXP {$ENDIF (place your units here->)}, ComObj;
...
var
Form1 {$IFDEF KOL_MCK} : PForm1 {$ELSE} : TForm1 {$ENDIF} ;
Excel:variant;
...
begin
try
Excel := CreateOleObject("Excel.Application"); // тут наступает смерть!
Excel.Workbooks.Add;
Excel.Visible := True;
except
MessageBoxA(0,"Ошибка загрузки Excel","Ошибка",MB_ICONERROR);
end;
end;

Что тут не так???

← →
YDS (2006-06-16 22:57) [4]

В очередной раз отвечу себе сам :) Нужно так:

...
uses Windows, Messages, ShellAPI, KOL, KOLMHXP {$IFNDEF KOL_MCK}, mirror, Classes, Controls, mckControls, mckObjs, Graphics, mckCtrls,
MCKMHXP {$ENDIF (place your units here->)}, ComObj;
...
var
Form1 {$IFDEF KOL_MCK} : PForm1 {$ELSE} : TForm1 {$ENDIF} ;
Excel : OleVariant;
WorkBook, Sheet: Variant;
...
begin
try
KOL.OleInit;
Excel := CreateOleObject("Excel.Application"); // тут наступает смерть!
Excel.Workbooks.Add;
Excel.Visible := True;
except
MessageBoxA(0,"Ошибка загрузки Excel","Ошибка",MB_ICONERROR);
end;
end;

передача данных в Excel Найти похожие ветки