ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
28 сообщений из 28, показаны все 2 страниц
  все  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34768753
Бабай
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бабай
Участник
Есть циклический алгоритм формирования (большого) отчета.
Трассировка показывает, что более половины времени работы занимает строка

Код: plaintext
templateRange.Copy destRange

далее destrange заполняется полями данных.

Отказаться от строки templateRange.Copy destRange не просто, т.к.
В этой одной команде происходит копирование фиксированного содержимого образца раздела отчета – labels, внедренные рисунки, форматирование клеток, комментарии к клеткам и т.п. – все за раз.

Можно ли написать на VBA пользовательскую процедуру (произвольной сложности и размера), которая сумела бы обогнать метод Range.Copy Excel?
Задача:
Требуется на VBA написать пользовательскую процедуру (произвольной сложности и размера), которая скопирует полностью содержимое диапазона-образца в диапазон-назначение (другой книги): значения и формулы в клетках, комментарии, внедренные в область диапазона объекты, форматы, цвета и размеры клеток, (объединения клеток).
То есть повторить функционал templateRange.Copy destRange полностью, но так, чтобы результат был быстрее.

Может ли такая задача иметь решение?
...
Рейтинг: 0 / 0
31.08.2007, 16:56:21
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34768805
4321
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
4321
Участник
бабайЕсть циклический алгоритм формирования (большого) отчета.
Трассировка показывает, что более половины времени работы занимает строка

Код: plaintext
templateRange.Copy destRange

далее destrange заполняется полями данных.

Отказаться от строки templateRange.Copy destRange не просто, т.к.
В этой одной команде происходит копирование фиксированного содержимого образца раздела отчета – labels, внедренные рисунки, форматирование клеток, комментарии к клеткам и т.п. – все за раз.дадада. умея заполнять большие рэнджи заливкой массива тем не менее - много удобнее построчно раскопировать темплейт. (я так по ленности до сих пор и делаю)


думаю, что быстро - это посчитать все количество строк, вкуда надо влить один и тот же шаблон ренча, а в посчитанное - вливать (из массивов) отдельные детали шаблона - те же Formula, Formula2, форматирование и т.п.
Кстати, слиятель ренчей (clsFormater) тут не понадобицца
...
Рейтинг: 0 / 0
31.08.2007, 17:10:50
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34768862
Бабай
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бабай
Участник
авторКстати, слиятель ренчей (clsFormater) тут не понадобицца
вроде не должен. я его все равно потерял. если будет нужен - придется искать огрызки по форуму.
много какого кода потерял за лето, как неожиданно выяснилось при востановлении рухнувшей машинки.

что до задачки - пока даже страшно браться, не имея представления о перспективе.
мне легче всего самому себе сказать, что этого сделать нельзя.
Но... - может быть найдутся основания для опровержения такого мнения.
...
Рейтинг: 0 / 0
31.08.2007, 17:24:51
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34768887
4321
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
4321
Участник
кстати, проблема реально напрягает только на больших отчетах. Вот ее то можно порешать - там, как правило, пролеты рядов, в коих один и тот же формат - весьма велики.

правильно ли я понял, что вставляете вы совсем в другой лист (или даже книгу) чем сам шаблон? (я обычно прямо в шаблон луплю, при этом автоматом сдвигаются именованные области из подвала отчета).
...
Рейтинг: 0 / 0
31.08.2007, 17:33:08
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34768915
Бабай
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бабай
Участник
авторправильно ли я понял, что вставляете вы совсем в другой лист (или даже книгу) чем сам шаблон? (я обычно прямо в шаблон луплю, при этом автоматом сдвигаются именованные области из подвала отчета).
правильно поняли.
речь идет об очете с вложенными уровнями группировки.
копировать раздел-образец в точку вставки - самая простая логика, сохраняющая внешний вид отчета. образец где-то жить должен. либо на другом листе, либо в отдельной книге. у меня - в отдельной книге-образце отчета.

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

я не хочу услышать "нет". т.к. сам с этим нет сейчас сижу.
хотелось бы услышать обоснованное "попробуй так - тут что-то проглядывается".
...
Рейтинг: 0 / 0
31.08.2007, 17:42:16
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34768987
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
бабайпока думаю, что альтернативы будут еще медленнее.Правильно думаешь. Ну почти правильно :)


бабайя не хочу услышать "нет". т.к. сам с этим нет сейчас сижу.
хотелось бы услышать обоснованное "попробуй так - тут что-то проглядывается".
Есть несколько способов наполнить лист на основе шаблона:
1) Скопировать файл книги-шаблона в новый файл
2) Скопировать лист-шаблон целиком в новую или существующую книгу
3) Скопировать область через sourcerange.Copy destRange
4) Заполнить целевой лист форматами через макрос.
Первый способ самый быстрый, четвертый самый медленный. Минусы сам найдешь.
...
Рейтинг: 0 / 0
31.08.2007, 18:01:34
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34769039
Бабай
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бабай
Участник
авторЕсть несколько способов наполнить лист на основе шаблона:
1) Скопировать файл книги-шаблона в новый файл
2) Скопировать лист-шаблон целиком в новую или существующую книгу
3) Скопировать область через sourcerange.Copy destRange
4) Заполнить целевой лист форматами через макрос.
Первый способ самый быстрый, четвертый самый медленный. Минусы сам найдешь.

из перечисленных шагов у меня используется вариация на тему 1) (при старте дважды add шаблоннной книге)

и 3) в цикле заполнения (смотри пост с вопросом)


3) и занимает >50% времени выполнения отчета. Ближайший конкурент по медленности где-то в районе 10% времени выполнения находится.

Предположим, что я написал самый плохой в мире алгоритм заполнения отчета.
И в нем много медленно работающего кода. и другая логика заполнения работала в каких-то конкретных фрагментах быстрее и даже в разы быстрее в каком-нибудь особо поддающемся
к оптимизации фрагменте.

Однако, в силу автор3) и занимает >50% времени выполнения отчета.
менять логику заполнения бесмысленно, пока не будет решена проблема 3).
Если решения нет, то и существенного выигрша от потраченных усилий не будет.
...
Рейтинг: 0 / 0
31.08.2007, 18:17:44
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34769060
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
бабайОднако, в силу автор3) и занимает >50% времени выполнения отчета.
менять логику заполнения бесмысленно, пока не будет решена проблема 3).
Если решения нет, то и существенного выигрша от потраченных усилий не будет.Невнимательно читаешь. Смотри пункт 2 :) Копировать лист целиком намного быстрее чем копировать область. А если область содержит встроенные объекты (картинки, кнопки, рисунки) то ее копирование будет идти еще дольше.
...
Рейтинг: 0 / 0
31.08.2007, 18:25:21
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34769082
Бабай
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бабай
Участник
авторНевнимательно читаешь
смотри вопрос в первом посте и разъяснения к нему в последующих.
Range описывает область циклического заполнения - одиночный раздел отчета, который
сам по себе может включать в себя вложенные дочерние разделы, и каждый такой раздел подлежит многократному заполнению из повторно получаемых для данного раздела
наборов данных.
Не изволите ли уточнить - в какое именно место вы предлагаете засунуть копирование листа?

(Проблема старта и первичного форматирования книи-результата отчета меня в данный момент не интересует и не является существом заданного вопроса)
...
Рейтинг: 0 / 0
31.08.2007, 18:33:10
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34769109
assa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assa
Участник
бабайсмотри вопрос в первом посте и разъяснения к нему в последующих.
Range описывает область циклического заполнения - одиночный раздел отчета, который
сам по себе может включать в себя вложенные дочерние разделы, и каждый такой раздел подлежит многократному заполнению из повторно получаемых для данного раздела
наборов данных.
гм. я вот тут подумал:
ЭтаКнига.Sheets("лист1").Range("A6","H6").Copy Union(ЭтаКнига.Sheets("лист2").Range("A6","H12"),ЭтаКнига.Sheets("лист2").Range("A14","H24"))
- работает, т.е. вопрос:
- вы льете .Copy построчно в цикле, или сразу в большие просчитанные заранее однородные "пролеты"?
...
Рейтинг: 0 / 0
31.08.2007, 18:45:53
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34769110
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
бабай авторНевнимательно читаешь
смотри вопрос в первом посте и разъяснения к нему в последующих.Убедил, это я невнимательно читаю, прошу прощения.
Тогда вынужден огорчить, копирование областей целиком это самый-самый быстрый способ. Быстрее не выходя из Экселя не получится в принципе.

Но можно временно выйти за пределы Экселя... Формируешь на диске html со всеми шаблонами, картинками, и заполненый данными а потом загружаешь его в книгу на новый лист. Сохраняешь книгу и убиваешь html. Этот путь будет несколько посложнее чем простая работа с листом, но чуть-чуть побыстрее потому что Экселю не прийдется заниматся перераспределением памяти. Он ее потратит только в конце (при загрузке html'я), и разом на весь документ.

Еще можно упрощать шаблон. В первую очередь убрать из него все картинки и метки. Оставить только тексты и форматы в ячейках. Все наклейки на лист ОЧЕНЬ утяжеляют работу с областью. Но это мне кажется не совсем то решение что ты ищешь.
...
Рейтинг: 0 / 0
31.08.2007, 18:46:24
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34769135
assa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assa
Участник
White OwlФормируешь на диске html со всеми шаблонами, картинками, и заполненый данными а потом загружаешь его в книгу на новый лист.с html я как то нарвался на какие-то ограничения. а именно - то ли по числу столбцов, то ли по сложности таблицы. К тому же требовалось ваять с группировками. А влудить в html работающую формулу (Сумма(диапазон)) и втянуть в xl будет не так легко. Нет?
...
Рейтинг: 0 / 0
31.08.2007, 18:54:47
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34769139
assa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assa
Участник
assa с html я как то нарвался на какие-то ограничения.имеетс в виду - при втаскивании его в XL
...
Рейтинг: 0 / 0
31.08.2007, 18:55:48
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34769153
Бабай
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бабай
Участник
html - возможно это кардинальный вариант.
но, видимо, на потом.
сейчас затребует непозволительного времени для разборок
- надо сыскать описание, желательно совместимое аж с 97й версией, разобраться, ну и "погонять" на предмет разъезжаемости картинков, примечаний и прпр.
за ссылки на описание и примеры скажу спасибо.
Про хатеэмэль пока не думалось...

но... вдруг и без хатеэмэля какой-нибудь ExecuteExcel4Macro чудес наделает?
нет ли на этих путях каких просветов и/или примеров?

пока писал этот пост - про клипборд только на чтение еще подумал. но как-то не очень верится.
усложнение заметное, а результат непонятен.

хотя бы "в принципе" - ну там как-то через xll, допустим, - что-то можно сделать без полного ухода на промежуточную отрисовку на стороннее полотно (т.е. типа html)
...
Рейтинг: 0 / 0
31.08.2007, 18:59:08
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34769226
Бабай
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бабай
Участник
assaгм. я вот тут подумал:
ЭтаКнига.Sheets("лист1").Range("A6","H6").Copy Union(ЭтаКнига.Sheets("лист2").Range("A6","H12"),ЭтаКнига.Sheets("лист2").Range("A14","H24"))
- работает, т.е. вопрос:
- вы льете .Copy построчно в цикле, или сразу в большие просчитанные заранее однородные "пролеты"?
а что на этом можно сэкономить в смысле времени работы Copy?
Могу я понимать это как заявление о том, что в рамках одного экземпляра Excel
Copy диапазона c листа на лист одной и той же книги работает быстрее, чем Copy с листа одной книги на лист в другой книге, открытой в том же экземпляре Excel?

---------------------------------------------------------
лью поблочно. в размер текущего блока-образца.
простого и очевидного каунта на входном потоке нет. поэтому нет предварительного расчета итоговой высоты группы.
Есть "метка блока", к которому относится текущая часть входного потока.
полным проходом по всему потоку можно было бы получить и каунт.
Тогда отчет должен будет строиться в два прохода по потоку.
в большинстве наличных случаев наборы пригодны к переходу вверх/вниз.
Код усложнится и распухнет.

Пока на такую возможность не думал закладываться.
Copy само по себе при этом не исчезнет.
...
Рейтинг: 0 / 0
31.08.2007, 19:33:21
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34769260
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
бабайМогу я понимать это как заявление о том, что в рамках одного экземпляра Excel
Copy диапазона c листа на лист одной и той же книги работает быстрее, чем Copy с листа одной книги на лист в другой книге, открытой в том же экземпляре Excel?Да. Выигрыш будет, но очень мизерный.
...
Рейтинг: 0 / 0
31.08.2007, 20:06:41
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34770086
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Я тут попробовал у себя на компе (Win Vista Business, MSO 2007 Ultimate, Intel Core 2 Duo 2,16 MHz, RAM 3.325 MB) запустить такую несколько экстремальную фиговину:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
Sub SetupData()
    Dim arrData( 1  To  9 ,  1  To  9 ) As Double
    Dim i As Long, j As Long
    Randomize
    For i =  1  To  9 
        For j =  1  To  9 
            arrData(i, j) = Rnd
        Next j
    Next i
    Application.ScreenUpdating = False
    For x =  1  To  20000  Step  10 
        For y =  1  To  250  Step  10 
            With Cells(x, y).Resize( 9 ,  9 )
                .Value = arrData
                .Interior.ColorIndex =  5 
            End With
        Next y
    Next x
    Application.ScreenUpdating = True
End Sub

Sub Test()
    Dim i As Long, j As Long, x As Double
    x = Timer
    Application.ScreenUpdating = False
    For i =  1  To  20000  Step  10 
        For j =  1  To  250  Step  10 
            Cells(i, j).Resize( 9 ,  9 ).Copy Sheet2.Cells(i, j).Resize( 9 ,  9 )
        Next j
    Next i
    Application.ScreenUpdating = True
    MsgBox "50,000 areas in " & Format((Timer - x), "0.0 sec")
End Sub

В результате Test() выдал 36.7 сек. Отсюда вопрос:

Ты отключил перерисовку экрана, события и пересчет формул?

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
02.09.2007, 06:20:47
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34770321
Бабай
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бабай
Участник
2 KL (XL)
да. отключил.

в абсолютных величинах
сейчас скорость работы построителя отчетов - 200 строк в секунду (P4 2.8 512 мб ram)
маловато малек.


глядя на твой "экстремальный" пример пока подумал вот что -
сейчас блоки копирования представляют собой цельнострочные диапазоны.

попробую ограничить размер области копирования прямоугольными диапазонами. возможно это даст некоторый эффект.
...
Рейтинг: 0 / 0
02.09.2007, 17:17:38
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34770340
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
бабайв абсолютных величинах
сейчас скорость работы построителя отчетов - 200 строк в секунду (P4 2.8 512 мб ram)
маловато малек.

Да уж не ахти даже для такой "относительно слабой" машины :D
Может покажешь код?
Вот это на Win Vista Business, MSO 2007 Ultimate (Compatibility Mode), Intel Core 2 Duo 2,16 MHz, RAM 3.325 MB дает 10.000 строк - 14 сек :

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Sub SetupData()
    Dim arrData( 1  To  256 ) As Double
    Dim i As Long, j As Long
    Randomize
    For i =  1  To  256 
        arrData(i) = Rnd
    Next i
    Application.ScreenUpdating = False
    For x =  1  To  10000 
        With Rows(x)
            .Value = arrData
            .Interior.ColorIndex =  5 
        End With
    Next x
    Application.ScreenUpdating = True
End Sub

Sub Test()
    Dim i As Long, j As Long, x As Double
    x = Timer
    Application.ScreenUpdating = False
    For i =  1  To  10000 
        Rows(i).Copy Sheet2.Rows(i)
        Application.CutCopyMode = False
    Next i
    Application.ScreenUpdating = True
    MsgBox "10,000 rows in " & Format((Timer - x), "0.0 sec")
End Sub
...
Рейтинг: 0 / 0
02.09.2007, 17:50:19
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34770374
Бабай
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бабай
Участник
извиняюсь за задержку - переключал компьютеры для доступа к коду и прочие отвлекающие обстоятельства проявились...

код такой
копируется ранее уже заполненный блок для повторного заполнения

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
        'текущая высота уже заполненного блока определяет величину смещения по вертикали
        lNewHeight = pCurrentRange.Rows.Count 
                       
        'вставка строк в размер копмруемого блока
        pCurrentRange.Offset(RowOffset:=lNewHeight, ColumnOffset:= 0 &) _
            .Resize(RowSize:=pStartHeight).Insert CopyOrigin:=False
            
                    
        'смещение сохраненного описателя блока pCurrentRange в новую позицию
                pCurrentRange.Offset(RowOffset:=lNewHeight, ColumnOffset:= 0 &) _
            .Resize(RowSize:=pStartHeight).
        
        'копирование блока                        
        pTemplateRange.Copy pCurrentRange
диапазоны pTemplateRange и pCurrentRange - строчные
в pTemplateRange содержится фиксированный текст (labels) а также комментарии к клеткам.
могут быть внедренные объекты вроде рисунков

тормоз в строке pTemplateRange.Copy pCurrentRange

пока попробую поискать крайнюю правую занятую хоть чем-нибудь клетку диапазона и
копировать прямоугольными областями.

Можно ли найти такую клетку без цикла по строкам с End на каждом шаге цикла.
...
Рейтинг: 0 / 0
02.09.2007, 19:05:15
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34770377
Бабай
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бабай
Участник
точка в предпоследней строке не откусилась при копировании из предыдущий - это дефект офоормления поста. в коде ее нет, конечно
...
Рейтинг: 0 / 0
02.09.2007, 19:06:58
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34770409
Бабай
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бабай
Участник
оценки такие:
твой тестовый код на моем домашнем компе (атлон5000 гиг памяти, ексель2002)
дает время исполнения 12.3 - 13.6 сек на разных запусках.

мой собственный код в тесовом прогоне на 4400 строк работает на "рабочей" машине 23 сек,
на домашней - 10.3 - 9.7 сек. т.е. отношение скорости работа/дом около 2.3
значит на рабочей машине твой тест будет идти ? 13.6*2.3= 31 сек

а мой отчет, увеличенный до 10000 строк - ? 23& * 10000/4412= 52 сек
из которых 31 (59%) будет занято временем работы единственной строки кода.

В этом и есть существо вопроса - можно что-то другое умное поделать,
но ниже 31 сек опуситься будет "совсем нельзя". т.е. улучшить скорость наличного кода
нельзя более чем на 40% прнинципиально. А реальное улучшение окажется гарантированно серьезно меньше при любой умности в условиях сохранения строки templateRange.Copy destRange

Если что-то придумается с копированием - может быть существенный выигрыш в общей производительности. Отсюда был вопрос. Не знаю готов ли к реализации чего-то сильно альтернативного, но если будут идеи - пусть самые неожиданные - с удовольствием попробую понять возможность их применимости.
Пока такая была одна с предупреждением - рисуй типа хатемеэль.
...
Рейтинг: 0 / 0
02.09.2007, 19:54:36
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34770464
Бабай
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бабай
Участник
попробовал усечь диапазоны копирования.
Вроде бы эффект есть. но не превышает 10% и в текущем тестовом окружении, к сожалению,
трудно отличим от ошибки измерения. т.к. против вероятно ускорившегося копирования замедлилась вставка, которая теперь требует явного обращения к EntireRow
Т.е. - может быть и помогло, но не кардинально.
...
Рейтинг: 0 / 0
02.09.2007, 21:29:36
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34770519
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
бабай

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
        'текущая высота уже заполненного блока определяет величину смещения по вертикали
        lNewHeight = pCurrentRange.Rows.Count 
                       
        'вставка строк в размер копмруемого блока
        pCurrentRange.Offset(RowOffset:=lNewHeight, ColumnOffset:= 0 &) _
            .Resize(RowSize:=pStartHeight).Insert CopyOrigin:=False
            
                    
        'смещение сохраненного описателя блока pCurrentRange в новую позицию
                pCurrentRange.Offset(RowOffset:=lNewHeight, ColumnOffset:= 0 &) _
            .Resize(RowSize:=pStartHeight).
        
        'копирование блока                        
        pTemplateRange.Copy pCurrentRange


Чё то как то не очень понятно. До меня струдом доходит зачем так делать, либо ты ошибся и не то написал. В предпоследней строке точно ошибка, там наверное диапазон переопределяться должен должен. и из текущей логики lNewHeight и pStartHeight не одно и то же разве ?
Может лучше примерчик сварганишь в файле и выложишь файл. Если хочешь конечно.
...
Рейтинг: 0 / 0
02.09.2007, 23:10:29
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34770524
Бабай
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бабай
Участник
pStartHeight это templateRange.Rows.Count

pCurrentRange.Rows.Count может от него произвольно отличаться к моменту копирования из-за наличия вложенных блоков.
Извини, полного примера выложить не могу.
Целью моего вопроса не являлось обсуждение конкретных деталей конкретной реализации элемента построителя отчетов в сторонней системе.
А только попытка понимания, может ли существовать custom реализация метода Copy,
работающая быстрее стандартной.
...
Рейтинг: 0 / 0
02.09.2007, 23:28:34
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34770537
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
DeggasadЕсли хочешь конечно
...
Рейтинг: 0 / 0
03.09.2007, 00:10:31
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34770559
Бабай
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бабай
Участник
автор В предпоследней строке точно ошибка, там наверное диапазон переопределяться должен должен
ну да - та строка дефектная.
в коде диапазон переопределяется в отдельной процедуре. а при создании поста я скопировал первую строку для указания на это. Потеряв по дороге Set и оставив лишнюю точку.
Примите повторные извинения.
...
Рейтинг: 0 / 0
03.09.2007, 02:30:13
| Ответить | Цитировать | Написать  
Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
    #34770920
assa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assa
Участник
бабай а что на этом можно сэкономить в смысле времени работы Copy?
Могу я понимать это как заявление о том, что в рамках одного экземпляра Excel
Copy диапазона c листа на лист одной и той же книги работает быстрее, чем Copy с листа одной книги на лист в другой книге, открытой в том же экземпляре Excel?
нет конечно, речь не о книгах, а об уменшьении количества операций Copy за счет накопления данных о строках в массивы или коллекции. Union - вот основное, что я хотел тут сказать

бабай лью поблочно. в размер текущего блока-образца.
простого и очевидного каунта на входном потоке нет. поэтому нет предварительного расчета итоговой высоты группы.
Есть "метка блока", к которому относится текущая часть входного потока.
полным проходом по всему потоку можно было бы получить и каунт.
Тогда отчет должен будет строиться в два прохода по потоку.
в большинстве наличных случаев наборы пригодны к переходу вверх/вниз.
Код усложнится и распухнет.

Copy само по себе при этом не исчезнет.Copy не исчеснет. Но ,насколько я помню, и форматтер мне нужен был именно для того, чтобы не форматировать каждую отдельную ячейку. На больших регионах массовые операции как раз и экономят в XL. А вместо двойного прохода по рекордсету дешевле на первом проходе открыть коллекцию или массив. На втором - вместо построчного заполнения - лить диапазонами массива (упорядочен он будет так же,как и входной набор). я кстати на этом сильно экономил (вместо размещения данных в таблицы в известном выгружателе от NS (кажется) совал все в массивы, правда, как оказалось, результат-то мне нафих не нужен, и правильнее выгружать таки в шаблоны, а не пользовать "универсальную выгрузку" - слишком разные системы понятий в XL и Аксессовсом репорте). Код, имхо, усложнится ровно на некую прослойку - категорию, возможно - класс.
...
Рейтинг: 0 / 0
03.09.2007, 10:44:30
| Ответить | Цитировать | Написать  
28 сообщений из 28, показаны все 2 страниц
  все  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Тормозит Range.Copy. можно ли его обогнать, обмануть или победить?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=61&tid=2182351]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 43ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 225ms
total:  344ms
созд. / загр.: 344ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]