VPF::Быстрый макрос: суммировать ячейку в многих книгах

nikhardy

Дата 11.1.2012, 09:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 19.12.2011

Репутация: нет
Всего: нет

Дано: Много файлов стандартной формы (100 штук). Бюджеты по отдельно взятым объектам.
Требуется: Консолидировать эти бюджетики в один бюджет. То есть сложить все ячейки по всем книгам. Иначе говоря, должен на выходе быть файл: ИТОГО.xls, где А1 = Значение А1 в книге 1 + Значение А1 в книге 2 + Значение А1 в книге 3...

Я написал код, он очевиден, но работает катастрофически медленно (по несколько минут на файл, где всего 2000 строк и 12 столбцов)

Код


   For j = 5 to 17
            For k = 12 To 450 step 1
                temp = Cells(k, j)
                temp = temp + ExecuteExcel4Macro("'" & path & "[" & file & "]" & listname & "'!" & Cells(k, j).Address(, , xlR1C1))
                Cells(k, j) = temp
            Next k
        Next j

Есть ли способ улучшить этот код?

P.S.
Сейчас код берёт значение ячейки из закрытой книги Excel. Я не против, если он будет её открывать.

Добавлено через 3 минуты и 12 секунд
Забыл сказать, что макрос перебирает файлы из директории, подставляя file и path автоматически.

Akina

Дата 11.1.2012, 10:05 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

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

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »