Проблема экспорта в Excel из TQuery [D5, IB6.x]
sergeyka © (2002-06-12 22:26:00)
Здравствуйте Мастера!!!
Проблема такая. Необходимо экспортировать в 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:00) [1]
мой тебе совет, не гнать сразу через OLE в эксел.
Сначала данные перенеси в dbf или csv, а потом открой этот
файл экселем, и сохрани как экселевский.
И глюков не будет и быстродействием будешь доволен
Наверх 
ЧАТ |
Орешник |
|
