Скачать: CL | DM;

передача данных в 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;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.041 c