Grid & Excel
Подскажите пожалуйста как из Грида экспортировать данные в эксель.
var ME,seek:Variant;
...
ME:=CreateOleObject('Excel.Application');
ME.Visible:=True;
ME.WorkBooks.Add;
seek:=ME.ActiveWorkBook.worksheets[1];
seek.Cells(j,i):=IBQuery1.Fields.FieldByNumber(i).AsString;
.....
...
ME:=CreateOleObject('Excel.Application');
ME.Visible:=True;
ME.WorkBooks.Add;
seek:=ME.ActiveWorkBook.worksheets[1];
seek.Cells(j,i):=IBQuery1.Fields.FieldByNumber(i).AsString;
.....