Четене и писане в Excel

Какъв драйвер трябва да се използва и какви компоненти, за да може успешно да се чете и пише в excel-ски файл (*.xls)?

10x in advance :)

Ami ole automation.V knigite za delphi obiknivenno e obiasneno za word,no za excel si e excel.application.Eto ti primer koito imam,no ne e moi :).Tova raboti s 97 i up i pravi niakoi prosti4ki neshta prosto za primer.Eto ti

[линк]

malko da pochetesh ako iskash :),a ako tarsish i dobra component-a

[линк]

Nadiavam se da sam pomognal s neshto.

procedure TfrmBlank.btnExcelClick(Sender: TObject);
var
XL, XArr: Variant;
i : Integer;
j : Integer;
begin
{note the ComObj (example OleAuto not correct) in the uses}
// Create an array of query element size
XArr:=VarArrayCreate([1,EmailQuery.FieldCount],varVariant);
XL:=CreateOLEObject('Excel.Application'); // Ole object creation
XL.WorkBooks.add;
XL.visible:=true;

j := 1;
EmailQuery.First;
while not EmailQuery.Eof do begin
i:=1;
while i<=EmailQuery.FieldCount do begin
XArr := EmailQuery.Fields[i-1].Value;
i := i+1;
end;
XL.Range['A'+IntToStr(j),
CHR(64+EmailQuery.FieldCount)+IntToStr(j)].Value := XArr;
EmailQuery.Next;
j := j + 1;
end;
XL.Range['A1',CHR(64+EmailQuery.FieldCount)+IntToStr(j)].select;
// XL.cells.select; // Select everything
XL.Selection.Font.Name:='Garamond';
XL.Selection.Font.Size:=10;
XL.selection.Columns.AutoFit;
XL.Range['A1','A1'].select;
end;

Може с ADO компонентите и JET драйвера.

Тук пише как става.
AquilaX

____________
blog.horemag.net
умният знае кога да говори, мъдрият знае кога да мълчи