Проблема экспорта в Excel из TQuery

← →
sergeyka (2002-06-12 22:26) [0]

Здравствуйте Мастера!!!
Проблема такая. Необходимо экспортировать в Excel содержимое TQuery.
Записей около 50 тыс, 15 полей. Экспорт приблизительно так:
Var
WorkBook,Range,Cell1,Cell2,ArrayData: Variant;
..............................................
ArrayData:=VarArrayCreate([1,50000,1,15],varVariant);
.................................................
{Заполняю вариантный массив ArrayData данными из TQnery}
........................................................
Cell1:=WoorkBook.WorkSheets[1].Cells[BeginRow,BeginCol];
Cell2:=WoorkBook.WorkSheets[1].Cells[BeginRow+RowCount-1,BeginCol+ColCount-1];
Range:=WorkBook.WorkSheets[1].Range[Cell1,Cell2];
Range.Value:=ArrayData;
Экспортирует приблизительно не больше 2 тыс. записей.
Потом ошибка "OLE A13BC5" (текст сообщения приблизительный)
Если заполняю массив нулями, причем ВЕСЬ массив, то все записи экспортируются.
В чем проблема? Слишком большой объем данных и необходим другой подход или
такой объем перегнать невозможно вообще?
Заранее благодарен!!!

← →
Alexandr (2002-06-13 08:07) [1]

мой тебе совет, не гнать сразу через OLE в эксел.
Сначала данные перенеси в dbf или csv, а потом открой этот файл экселем, и сохрани как экселевский.
И глюков не будет и быстродействием будешь доволен

Проблема экспорта в Excel из TQuery Найти похожие ветки