Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Экспорт в Excel [D7, MSSQL]

VadimSpb © (2006-04-08 20:30:00)
Добрый день!
Вопрос ко всем, то использует Excel для создания отчета.
Необходимо экпортировать в Excel данные о клиенте (типа квитанция на оплату). Создаю книгу и копирую страницы из шаблона:

procedure TForm1.Button1Click(Sender: TObject);
var
m_Excel : OleVariant;
i: integer;
begin
m_Excel := CreateOleObject ('Excel.Application');
m_Excel.Workbooks.Open(ExtractFileDir(Application.ExeName) + '\Templates\1.xls');
m_Excel.Visible := true;
for i:=1 to 100000 do
m_Excel.Worksheets[i].Copy(After:=m_Excel.Worksheets[i]);
end;

В итоге, на 666 (!!!) странице получаю ошибку "Сбой при удаленном вызове процедуры".
Ладно, может где-то я не прав и делаю то же в VBA:

Sub Лист1()
For i = 1 To 100000 Step 1
Worksheets("Лист1").Copy After:=Worksheets("Лист1")
Next i
End Sub

Итог: Ошибка на 333 странице с предложением отправить отчет и извинениями за неудобства :-))

В качестве шаблона можно использовать просто пустую страницу.Кто сталкивался с подобной проблемой?

VadimSpb (2006-04-10 10:22:00) [1]
Ну почему же?
MSDN: "число страниц ограничено размером оперативной памяти".
Я немного изменил код: копирую страницу не внутри одной книги (что приводит к ошибке), а из одной книги в другую. Тогда все нормально работает.
Думаю, в первом варианте - это внутренняя ошибка Excel или так делать нельзя.
Результат: все работает, но с увеличением числа страниц время экспорта непропорционально увеличивается. Оно вообще неприемлемо для тысяч страниц. Наверно, придется заняться Rave Report :))
Причем позднее связывание работает быстрее раннего :-))))

YurikGL (2006-04-09 15:21:00) [2]
333 страницы? удивляюсь, что Excel до 333-х дошел...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »