проблемы экспорта данных из DBGrid в Excel

[GhostBZ]

Проблема вот в чем при отображении данных в DBGrid-е я использовал ADOTable и экспорт данных проходил на ура!
Но потом мне понадобилось использовать ADOQuery для отображение данных в DBGrid-е и после нажатие кнопки "экспорт" Выводит ошибку.

procedure TForm3.Button6Click(Sender: TObject);
var
i,j,z,index,col,row: Integer;
sline:string;
ExcelApp,sheet,Colum: Variant;
begin
ExcelApp := CreateOleObject('Excel.Application' );
ExcelApp.Visible := False;
ExcelApp.WorkBooks.open('c:\b2.xls' );

ExcelApp.WorkBooks[1].WorkSheets[1].name := 'TCP';
sheet:=ExcelApp.WorkBooks[1].WorkSheets['TCP'].Columns;

index:=13;
DBGrid1.DataSource.DataSet.First;

for i:=1 to DBGrid1.DataSource.DataSet.RecordCo unt
do
begin
for j:=1 to 13//DBGrid1.FieldCount-1
do
sheet.cells[index,j]:=DBGrid1.fields[j].asstring;
inc(index);
inc(z);
DBGrid1.DataSource.DataSet.Next;
end;

ExcelApp.Visible := true;
end;

[GhostBZ]

Вообщем как решить данную проблему

[soleil@mmc]

1) обрати внимание - тег CODE
2) чота у тебя тут путаница
я бы переписал так

DBGrid1.DataSource.DataSet.First;
i:=1;

while not(DBGrid1.DataSource.DataSet.EOF) do
begin
  for j:=1 to 13 do
    sheet.cells[i,j]:=DBGrid1.fields[j].AsString;
  inc(i);
  DBGrid1.DataSource.DataSet.Next;
end;

[GhostBZ]

Он ругается так же на строчку
sheet.cells[i,j]:=DBGrid1.fields[j].AsString;
может функция cells для ADOQuery не подхидит?!

[Stilet]

Он ругается так же на строчку

А чем ругается?

[GhostBZ]

Вот ошибка:
Project.exe raised exception class EAccessViolation with message' Access violation at address 0051bc03 in module 'Project.exe'. Read of address 0000000'. Process stoped ...

[GhostBZ]

может есть схожая функция похожая на cells только для ADOQuery

[GhostBZ]

Или может подскажите другой способ передачи данных из DBGrid-a в Excel

[Stilet]

Значит нужно проверки ставить:

DBGrid1.DataSource.DataSet.First;
i:=1;
 if VarIsClear(sheet) then begin
 ShowMessage('А не получили мы страничку, нету ее'); exit;
end;

while not(DBGrid1.DataSource.DataSet.EOF) do
begin
  for j:=1 to 13 do
    sheet.cells[i,j]:=DBGrid1.fields[j].AsString;
  inc(i);
  DBGrid1.DataSource.DataSet.Next;
end;

Ну и выяснить где ты чего недополучил.

А может нет свойства .cells у sheet твоего...

[soleil@mmc]

скорее даже так

DBGrid1.DataSource.DataSet.First;
i:=1;

while not(DBGrid1.DataSource.DataSet.EOF) do
begin
  for j:=1 to 13 do
    sheet.cells[i,j]:=DBGrid1.DataSource.DataSet.fields[j].AsString;
  inc(i);
  DBGrid1.DataSource.DataSet.Next;
end;

ну и погоняй в дебаг-режиме