Запись данных массив<->Excel

[andbrother]

То, что надо. Спасибо.

[RVS35]

UP-ну темку
Комп - W7 + Excel2010. Макрос обрабатывает на листе 20000 строк по ~600 столбцов за 01 мин 10 сек. Для ускорения работы решил использовать массив и получается какая-то ерунда.

Sub Bistro()
Dim data_WS As Worksheet
Dim Bistro As Variant
Set data_WS = Application.ThisWorkbook.Worksheets("2")
    Application.Calculation = xlAutomatic
    Sheets("1").Select
    Cells(9, 2) = Time
    begin = Time
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    ActiveWorkbook.Worksheets("1").Cells(10, 2) = Time - begin
    Bistro = data_WS.Range("B2:WZ20000").Value
    ActiveWorkbook.Worksheets("1").Cells(11, 2) = Time - begin
data_WS.Range("B2:WZ20000").Value = Bistro
    ActiveWorkbook.Worksheets("1").Cells(12, 2) = Time - begin
End Sub

Даже на пустом свежесозданном листе копирование в массив пустых ячеек занимает 3 сек, а обратно на лист - 1 мин 25 сек. Что не так?

[Hugo121]

Покажите пример такого файла. Думаю там влияет что-то другое.

[RVS35]

Попробуйте выполнить вышеуказанный скрипт в новой книге с листами "1" и "2".
Сейчас запустил его на другом компе.
Итог - запись в массив 1 сек, обратно на лист - 45 сек!

[Hugo121]

Теперь у меня нет такого Экселя, я не проверю...

P.S. Проверил на 255 столбцов - берёт за 2 сек., вываливает за 8.
Соответственно 600 можно сделать где-то за 20.
Попробуйте брать частями - может памяти не хватает, и комп мучает файл подкачки?

[RVS35]

А чисто теоретически, что может быть? Первый раз решил использовать массив и на тебе....
Запустил на стареньком компе с Excel 2007 результат - 2 сек и 1 мин 22 сек.

[Hugo121]

Вероятно на 2003 Экселе эта операция выполняется быстрее.

[VictorM]

Я могу конечно ошибаться, но ИМХО

запись в массив 1 сек, обратно на лист - 45 сек!

ключевые слова здесь выделил

[Hugo121]

Ну на лист ясно что дольше. Вопрос почему так долго?
Вечером проверю на 2007, если будет время...

[EducatedFool]

Это разве долго? Для 12 млн ячеек-то - вполне нормально

У меня так вообще ошибка, - Out of memory
(нехватает памяти для массива, - у меня WinXP, Office 2010, 2GB RAM)

Почему при выводе на лист дольше намного?
Потому что Excel должен применить форматирование к вставленным данным, вычислить формулы (если они есть), и т.д. и т.п., - это не так все быстро происходит.
То ли дело при чтении массива с листа, - только выделить память, и скопировать туда данные.