[fluxion]

Здравствуйте!
Делаю экспорт в Excel след. образом:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

procedure TForm.BitBtn6Click(Sender: TObject); var  XL, XArr: Variant;  i: Integer;  j: Integer; begin  XArr:=VarArrayCreate([1,DM.ADOQuery1.FieldCount],varVariant);  XL:=CreateOLEObject('Excel.Application');     // Создание OLE объекта  XL.WorkBooks.add;  XL.visible:=true;    j := 1;  DM.ADOQuery1.First;  while not DM.ADOQuery1.Eof do   begin    i:=1;    while i<=DM.ADOQuery1.FieldCount do     begin      XArr[i] := DM.ADOQuery1.Fields[i-1].Value;      i := i+1;     end;    XL.Range['A'+IntToStr(j),CHR(64+DM.ADOQuery1.FieldCount)+IntToStr(j)].Value := XArr;    DM.ADOQuery1.Next;    j:=j+1;   end;  XL.Range['A1',CHR(64+DM.ADOQuery1.FieldCount)+IntToStr(j)].select;    XL.Selection.Font.Name:='Arial';  XL.Selection.Font.Size:=10;  XL.selection.Columns.AutoFit;  XL.Selection.HorizontalAlignment:=2;  XL.Selection.Borders.LineStyle:=2;  end;

В таблице формирую 25 полей. При нажатии кнопки открывается Excel и вылетает ошибка OLE Error 800A03EC и показывает ошибку на строке

Код:

1	XL.Range['A'+IntToStr(j),CHR(64+DM.ADOQuery1.FieldCount)+IntToStr(j)].Value := XArr;

Если формирую 24 поля и меньше, то проходит все нормально. Подскажите в чем проблема.
P.S. Delphi7+MSSQL2005

[Professor Farnsworth]

Вообще то все должно работать.
Полагаю ошибка где то выше этой строки. Может быть что то с данными.