Вывод DBGrid в exel

[kostya_hor]

У меня есть база данных и мне нужно ее вывести в Excel
в виде строчек и в виде диаграмы
вот что я пытался
может вы что-то подскажите

var i,x: Integer;
    E,S,Chart:variant;
begin

E:= CreateOleObject('Excel.Application');
E.visible:=true;
E.Workbooks.Add;
E.Workbooks[1].WorkSheets[1].Columns[1].ColumnWidth:=35;
E.Workbooks[1].WorkSheets[1].Columns[2].ColumnWidth:=35;
E.Workbooks[1].WorkSheets[1].Columns[3].ColumnWidth:=35;
E.Workbooks[1].WorkSheets[1].Columns[4].ColumnWidth:=35;
E.Workbooks[1].WorkSheets[1].Columns[5].ColumnWidth:=35;
E.Workbooks[1].WorkSheets[1].Rows[1].Font.Bold:=true;
E.Workbooks[1].WorkSheets[1].Rows[1].Font.Color:=clGreen;
E.Workbooks[1].WorkSheets[1].Rows[1].Font.Size:=14;
S:=E.Workbooks[1].WorkSheets[1];
S.Cells[1,1]:='№';
S.Cells[1,2]:='ПІБ';
S.Cells[1,3]:='№ Паспорта';
S.Cells[1,4]:='Марка машини';
S.Cells[1,5]:='Рік випуску';
S.Cells[1,6]:='Сума';
S.Cells[1,7]:='Знижка';
S.Cells[1,8]:='Підсумкова сума';
x:=2;
ADOQuery1.First;
for i:=0 to ADOQuery1.RecordCount-1 do
begin
S.Cells[x,1]:=ADOQuery1.Fields.Fields[0].Asinteger;
S.Cells[x,2]:=ADOQuery1.Fields.Fields[1].Asstring;
S.Cells[x,3]:=ADOQuery1.Fields.Fields[2].Asstring;
S.Cells[x,4]:=ADOQuery1.Fields.Fields[3].Asvariant;
S.Cells[x,5]:=ADOQuery1.Fields.Fields[4].Asstring ;
S.Cells[x,6]:=ADOQuery1.Fields.Fields[5].Asstring ;
S.Cells[x,7]:=ADOQuery1.Fields.Fields[6].Asstring ;
S.Cells[x,8]:=ADOQuery1.Fields.Fields[7].Asstring ;
inc(x);
ADOQuery1.Next;
end;

Chart:=E.WorkBooks[1].Charts.Add;
Chart.ChartType:=51;
Chart.SeriesCollection.Add(Source:=E.Workbooks[1].Sheets.Item[2].Range['e2:e'+IntToSTr(x)]);
Chart.HasTitle:=True;
Chart.ChartTitle.Text:='[Рік випуску]';
Chart.ChartTitle.Shadow:=true;
Chart.ChartTitle.Font.size:=26;
 E.Visible := true;

E:=UnAssigned;

end;

[Sciv]

Ну как я уже писал в предыдущем Вашем посте на эту тему - можно без икса:

ADOQuery1.First;
for i:=0 to ADOQuery1.RecordCount-1 do
begin
S.Cells[i + 2,1]:=ADOQuery1.Fields.Fields[0].Asinteger;
S.Cells[i + 2,2]:=ADOQuery1.Fields.Fields[1].Asstring;
S.Cells[i + 2,3]:=ADOQuery1.Fields.Fields[2].Asstring;
S.Cells[i + 2,4]:=ADOQuery1.Fields.Fields[3].Asvariant;
S.Cells[i + 2,5]:=ADOQuery1.Fields.Fields[4].Asstring ;
S.Cells[i + 2,6]:=ADOQuery1.Fields.Fields[5].Asstring ;
S.Cells[i + 2,7]:=ADOQuery1.Fields.Fields[6].Asstring ;
S.Cells[i + 2,8]:=ADOQuery1.Fields.Fields[7].Asstring ;
ADOQuery1.Next;
end;

В сейчас-то вопрос в чём?

[kostya_hor]

Сообщение от Sciv

В сейчас-то вопрос в чём?

нужно вывести в диаграму