[lericen]

Добрый день

Подскажите пожалуйста. Есть рабочий цикл:

Код:

XArr:=VarArrayCreate([1,ZQuery1.FieldCount],varVariant);
XL:=CreateOLEObject('Excel.Application'); // Nicaaiea OLE iauaeoa
XL.WorkBooks.add;
XL.visible:=False;

j := 1;
ZQuery1.First;
while not ZQuery1.Eof do
begin
i:=1;
while i<=ZQuery1.FieldCount do
begin
XArr[i] := ZQuery1.Fields[i-1].Value;
i := i+1;
end;
XL.Range['A'+IntToStr(j),
CHR(64+ZQuery1.FieldCount)+IntToStr(j)].Value := XArr;
ZQuery1.Next;
j:=j+1;
end;

в таблице Mysql с которой идет выборка данных 100 столбцов

при формирование файла Эксель выкидывает ошибку, в инете порыл - проблема связана с кол-вом столбцов

То есть если столбцов от A1- до Z1 то он формируется нормально. Проверял

Если больше столбцов... то ошибка.

Код:

XL.Range['A'+IntToStr(j),
CHR(64+ZQuery1.FieldCount)+IntToStr(j)].Value

как вот этот переделать чтобы после Z он двигался дальше АА, АВ

MAD: пользуемся тегами, иначе последуют баны.