[Thrasher]

"Живой" пример отправки данных в Excel

Код:

procedure TCalibrateForm.Button1Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Таблица';
Colum:=XLApp.Workbooks[1].WorkSheets['Таблица'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Таблица'].Rows;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Таблица'];
Sheet.Cells[1,1]:='Калибровочная таблица';
Colum.Rows[3].Font.Bold:=true;
Colum.Rows[3].Font.Color:=clRed;
Colum.Rows[3].Font.Size:=13;
Colum.Rows[4].Font.Bold:=true;
Colum.Rows[4].Font.Color:=clRed;
Colum.Rows[4].Font.Size:=13;

Sheet.Cells[3,1]:='Диаметр трубопровода '+FloatToStr(Round(D*1000+2*Th))+'x'+FloatToStrF(Th,ffFixed,3,1);
Sheet.Cells[4,1]:='Длина трубопровода '+FloatToStrF(L,ffFixed,10,3)+' м';

Sheet.Cells[6,1]:='Уровень,мм';
Sheet.Cells[6,2]:='Объем, куб.м';

index:=7;
For I:=1 to CalibrateGrid.RowCount-1 do
begin
Sheet.Cells[index,1]:=StrToFloat(CalibrateGrid.Cells[0,I]);
Sheet.Cells[index,2]:=StrToFloat(CalibrateGrid.Cells[1,I]);
Inc(Index);
end;
end;