Excel

← →
White__ (2004-10-12 18:49) [0]

Как сделать так чтобы запустился Excel и в нем создалась ExcelWorkbook?

← →
hooky-mars (2004-10-12 19:04) [1]

Uses ...,ComObj,... ... var XLApp,Sheet:Variant; begin XLApp:= CreateOleObject("Excel.Application"); XLApp.Visible:=true; XLApp.Workbooks.Add(-4167); ...

← →
DmitryMN (2004-10-12 19:05) [2]

var
XLApp:Variant;
WorkSheet: Variant;
idxWB:integer;
a,b: integer;

begin

try
XLApp := GetActiveOleObject
except
XLApp := CreateOleObject("Excel.Application");
end;

XLApp.Workbooks.Open("File.xls");
idxWB := XLApp.Workbooks.Count;
WorkSheet := XLApp.Workbooks[idxWB].WorkSheets[1];

...

а дальше :

a := WorkSheet.Cells[1,1]; //чтение

WorkSheet.Cells[1,2] := a; //запись

← →
hooky-mars (2004-10-12 19:12) [3]

> XLApp := GetActiveOleObject

А что это?

← →
White__ (2004-10-12 19:56) [4]

Спасибо а как это сделать используя компоненты(Servers)?

← →
YurikGL © (2004-10-12 19:59) [5]

http://www.delphimaster.ru/cgi-bin/forum.pl?n=0&search=excel

← →
White__ (2004-10-12 20:27) [6]

Пример не очень показателен, если можно покажите проще, т.к. с OLE работаю впервые. если возможно то с Delphi7

> White__ (12.10.04 20:27) [6]
> Пример не очень показателен, если можно покажите проще,
> т.к. с OLE работаю впервые. если возможно то с Delphi7

yandex+TExcelApplication.

Excel Найти похожие ветки