Данные из DBGrid в excel

[Оля2394]

Друзья программисты, подскажите как переделать, чтобы данные из DBGrid'а перенести в excel, в строчку, здесь переносится в столбик

procedure TForm1.Button2Click(Sender: TObject);
var
XL, XArr: Variant;
 i: Integer;
 j: Integer;
begin
 myChart:=VarArrayCreate([2,ADOQuery1.FieldCount],varVariant);
 EIN:=CreateOLEObject('Excel.Application');
 EIN.Workbooks.Open(form1.Edit3.text);
 EIN.visible:=true;
 j := 1;
DBGrid1.DataSource.DataSet.First;
 while not ADOQuery1.Eof do
  begin
   i:=1;
   while i<=ADOQuery1.FieldCount do
    begin
     myChart[i] := ADOQuery1.Fields[i-1].Value;
     i := i+1;
    end;
   EIN.Range['A'+IntToStr(j),
   CHR(64+ADOQuery1.FieldCount)+IntToStr(j)].Value := myChart;
   ADOQuery1.Next;
   j:=j+1;
  end;

EIN.Range['A1',CHR(64+ADOQuery1.FieldCount)+IntToStr(j)].select;

 EIN.Selection.Font.Name:='Arial cur';
 EIN.Selection.Font.Size:=10;
 EIN.selection.Columns.AutoFit;
 EIN.Range['A1','A1'].select;
          end;

[Stilet]

здесь переносится в столбик

Как так? Скрин с доказательствами в студию.

[water_]

если я правильно понял что ты хочешь, то...

var
  Ex: Variant;
  n: integer;
begin
  try
    n:= 1;
    Ex := CreateOleObject('Excel.Application');
    Ex.Workbooks.Add;
    OpenDialog1.Execute;
    Ex.Workbooks.Open(OpenDialog1.FileName);
    Ex.Visible := True;
    if not ADOQuery1.Active then ADOQuery1.Open;
    if ADOQuery1.RecordCount > 0 then begin
      ADOQuery1.First;
      while not ADOQuery1.Eof do begin
        Ex.Cells[1,n]:= ADOQuery1.FieldByName('value').AsInteger;
        Ex.Cells[2,n]:= ADOQuery1.FieldByName('description').AsString;
        inc(n);
        ADOQuery1.Next;
      end;
    end;
  finally
    ADOQuery1.Close;
    Ex.quit;
  end;