var Excel:Variant;
WorkSheet:Variant;
Chart:Variant;
i:Integer;
begin
Excel := CreateOleObject('Excel.Application');
Excel.Visible:=True;
// Создадим новую книгу
Excel.Workbooks.Add;
WorkSheet:=Excel.Workbooks[1].WorkSheets.Add;
// -------- или ---------
// Откроем существующую книгу
// Excel.Workbooks.Open('FileName.xls');
// Графики и данные
WorkSheet.name:='Графики';
Chart:=WorkSheet.ChartObjects.Add(300,300,750,500).Chart;
Chart.ChartType:=xlXYScatterLines;
Chart.SeriesCollection.NewSeries;
Chart.SeriesCollection(0).Name:='Серия1';
for i:=0 to 100 do
begin
WorkSheet.Cells[i,0].Value:=i;
WorkSheet.Cells[i,1].Value:=i*i;
end;
s:='=Графики!'+WorkSheet.Cells[0,0].Address+':'+ WorkSheet.Cells[100,0].Address;
Chart.SeriesCollection(0).XValues:= s;
s:='=Графики!'+WorkSheet.Cells[0,1].Address+':'+ WorkSheet.Cells[100,1].Address;
Chart.SeriesCollection(0).Values:= s;
