Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Вниз

Экспорт в Excel   Найти похожие ветки 

 
VadimSpb   (2006-04-08 20:30) [0]

Добрый день!
Вопрос ко всем, то использует 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 странице с предложением отправить отчет и извинениями за неудобства :-))

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


 
YurikGL ©   (2006-04-09 15:21) [1]

333 страницы? удивляюсь, что Excel до 333-х дошел...


 
VadimSpb   (2006-04-10 10:22) [2]

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



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.04 c
15-1146342271
Piter
2006-04-30 00:24
2006.06.04
Акустика 5.1 для дачи, комната 6x6 м - может кто поможет? :)


3-1144408053
sia
2006-04-07 15:07
2006.06.04
delphi 7 & BDE 4


15-1147288320
dreamse
2006-05-10 23:12
2006.06.04
Как узнать серверу какой ip у клиента если этот ip динамический ?


8-1135323036
thvfrjd
2005-12-23 10:30
2006.06.04
Мерцание Image


4-1142074638
Andr-04
2006-03-11 13:57
2006.06.04
Metafile в RichEdit





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский