Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  10:30[Войти] | [Зарегистрироваться]
Ответ на вопрос № 39266

18-01-2006 07:40
Оптимизация скорости экспорта в Excel

Моя програма генерирует отчеты в Excel. Примерно такого вида:


предприятие 1
цех 1
бригада 1
* * * * * * * * * *
* * * * * * * * * *
* * * * * * * * * *
* * * * * * * * * *
* * * * * * * * * *
* * * * * * * * * *
-------------------
всего по бригаде 1
бригада 2
* * * * * * * * * *
* * * * * * * * * *
-------------------
всего по бригаде 2
всего по цеху 1
цех 2
бригада 1
* * * * * * * * * *
* * * * * * * * * *
-------------------
всего по бригаде 1
бригада 2
* * * * * * * * * *
-------------------
всего по бригаде 2
всего по цеху 2
всего по предприятию 1

... и т.д.


То что выделено * -- это числа. Они оформляются в виде масива и целым куском експортируются. Потом для этой выделеной области рисуется левая, правая, нижняя и верхняя граници.

Названия предприятий, цехов, бригад просто записываются в определенные ячейки, которые потом объеденяются, выделяются жирным и центрируются. Тормоза проявляются больше всего здесь и при рисовании границ.

Использую шаблон с шапкой таблицы и названием. Отключаю всевозможные события, видимость и т.д.

Подскажите советы для увеличения скорости експорта. Експорт в 450 строк длится 1 мин 5 сек

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

19-01-2006 02:14 | Комментарий к предыдущим ответам
Показывайте ход формирования в StatusBar'е Excel'я или на форме - это отвлекает пользователя от "тяжкого ожидания" окончания построения отчета ;)

Смотрится лутче :-) Видно что не висим

19-01-2006 01:48 | Комментарий к предыдущим ответам
Понятно, просто я всегда "дублирую" расчеты в Excel'е для проверки свих в Delphi :)

19-01-2006 01:47 | Комментарий к предыдущим ответам
ЗЫ Вообще для 450 строк в Excel'е эта скорость очень даже ничего! Показывайте ход формирования в StatusBar'е Excel'я или на форме - это отвлекает пользователя от "тяжкого ожидания" окончания построения отчета ;)

Это на машине 1Гб ОЗУ WinXP, а у заказчика 128 Мб Win98 где-то в 5 раз медленее

19-01-2006 00:47 | Комментарий к предыдущим ответам
В вашем случае тормоза могут быть и в "Итого по цеху" - попробуйте отключить автокалкуляцию и включить после завершения формирования отчета.

Автокалькуляции как такой нету, сумма считается в sql-запросе

18-01-2006 09:15
Я делаю так:

var
  R1, R2: OleVariant;
  IRange: ExcelRange;
  IWorksheet: ExcelWorksheet;
begin
  ...
  R1 := IWorksheet.Cells.Item[левая, верхняя];
  R2 := IWorksheet.Cells.Item[правая, нижняя];
  IRange := IWorkSheet.Range[R1, R2];
  IRange.Interior.Color := OleVariant($FFFFFFFF);
  IRange.NumberFormat := '@';
  IRange.Font.Name := 'Arial Cyr';
  IRange.Font.Italic := True;
  IRange.Font.Color := clBlack;
  IRange.Font.Size := 10;
  IRange.Borders.Color := OleVariant($00000000);
  IRange.Borders.LineStyle := OleVariant(xlContinuous);
  ...и т.д.


18-01-2006 08:50
Я делаю примерно так же за исключением "объеденяются, выделяются жирным и центрируются". Сначала формирую все данные и записываю без шапок (в вашем случае цехов, бригад), а потом в отдельном цикле по массиву (не по ячейкам!) просто вставляю пустые строки, копирую форматирование из "эталона" (Templ.Range.EntireRow.Copy(Dist.Range)) и записываю данные шапки, т.е. форматирование уже готово зараннее. Скорость вполне приемлемая. Самые большие тормоза получаются при разбивании на страницы (например след. цех с новой страницы) и при добавлении колонтитула (он формируется тоже из БД). В вашем случае тормоза могут быть и в "Итого по цеху" - попробуйте отключить автокалкуляцию и включить после завершения формирования отчета.

ЗЫ Вообще для 450 строк в Excel'е эта скорость очень даже ничего! Показывайте ход формирования в StatusBar'е Excel'я или на форме - это отвлекает пользователя от "тяжкого ожидания" окончания построения отчета ;)

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Кто съел Красную шапочку?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования