> Sve je to u novijim Delphijima,nema niosta za starije varijante..
Ako ne možeš ADO koristiti onda sigurno možeš ručno kreiranje OLE objekta, vidim da si i slao jedan takav primer.
> Mislis dbgrid1.datasource.dataset;..probao i to nece...
Nešto ti ne radiš dobro, pre svega tebi se podaci nalaze u nekom TDatasetu (TTable, TQuery itd.), DBGrid samo prikazuje podatke iz dataseta. Nema ni jednog razloga da export u Excel radiš iz DBGrida a ne iz Dataseta. Otprilike ovako:
Code:
var
E: OLEVariant;
i: Integer;
begin
E := CreateOleObject('Excel.Application');
try
E.Visible := True;
E.WorkBooks.Add;
Table1.First;
while not Table1.Eof do
begin
for i := 0 to Table1.FieldCount - 1 do
E.ActiveCell.Item[Table1.RecNo, i + 1].Value := Table1.Fields[i].AsString;
Table1.Next;
end;
finally
E.Quit;
end;