| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
передача данных в Excel [Delphi, Windows]
sff © (2006-03-17 16:18:00)Мне нужно из программы передать данные в Excel таблицу. Как можно организовать передачу данных?Т.е. как в KOL реализуется механизм OLE?
YDS (2006-06-16 22:57:00) [1]В очередной раз отвечу себе сам :) Нужно так:
...
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;
YDS (2006-06-16 21:51:00) [2]Хмм, а у меня не пашет.
Код такой:
...
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;
Что тут не так???
sff (2006-03-18 06:32:00) [3]Спасибо!
Vladimir Kladov (2006-03-17 16:35:00) [4]Это делается точно так же как и под VCL - через Variant и Com-объект. Т.е. берете код который работап в VCL, и он же будет работать и в KOL.
| |
