Ошибка OLE Error 800A03EC

[fluxion]

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

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 и показывает ошибку на строке:

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

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

[фЁдОр]

Честно говоря, я не понял Ваш код, но для того, что бы сделать экспорт таблиц, можно гораздо проще. Обсуждалось много тем, ну вот, к примеру, почитайте чуть ниже тему "Конвектор", не имеет значение в какую БД производить экспорт, смысл кода остается тот же.

[XPAiN]

XL.visible:=false; перед началом выполнения кода XL.visible:=true в конце. Видимо пока выгружается щелкаете по ячейкам в excel.

[kisser_san]

fluxion, так для интереса проверь что тебе вернет
CHR(64+DM.ADOQuery1.FieldCount)
когда количество полей будет больше 27, я думаю сам поймешь почему не работает

[Pitbull]

обычно такая ошибка указывает на неправильный формат, но у Вас проблема из-за того , что букаФФФ в англ языке маловасто)))))))

вы выходите за приделы алфавита))))) 27 всего букв....

вовсе не обязательны все эти прыжки с бубном вокруг имен строк и колонок. есть намного проще и понятнее методы для экспорта в эксел