Свод нескольких файлов Excel в один 2

[AnnaVild]

Добрый вечер! Такая ситуация. Имеются несколько книг с идентичными формами для заполнения. Эти формы необходимо свести в одной общей книге. Подскажите, как можно автоматизировать этот процесс при помощи макросов? Упрощенный пример в приложении. Буду благодарна за помощь!

[Keshunya]

А почему нельзя все в одну книгу поместить? Или условие, чтобы было 3-и книги? Я видела похожие задачи здесь на форуме, своды из нескольких книг, попробуйте поисковик... http://programmersforum.ru/showthrea...E0%ED%ED%FB%F5

[AnnaVild]

Дело в том, что книга состоит из 14-ти листов. Форму предоставят учреждений 30. И все данные необходимо будет свести в одну форму. Часть формы во вложении

[AnnaVild]

Я раньше никогда не использовала Visual Basic и уже нет времени в нем разбираться. Необходимо суммирование данных с разных книг в одну общую. Помогите, плиз!!!

[tae1980]

Сообщение от AnnaVild

Я раньше никогда не использовала Visual Basic и уже нет времени в нем разбираться. Необходимо суммирование данных с разных книг в одну общую. Помогите, плиз!!!

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

[AnnaVild]

Сообщение от tae1980

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

Надеюсь этот пример будет понятнее
В папке лежат три файла с заполненными формами от 3х образовательных учреждений. В файле "свод" необходимо просуммировать данные из этих 3х файлов. В реальной форме 14 листов, а форму предоставят около 30-ти ОУ.

[tae1980]

Сообщение от AnnaVild

Надеюсь этот пример будет понятнее
В папке лежат три файла с заполненными формами от 3х образовательных учреждений. В файле "свод" необходимо просуммировать данные из этих 3х файлов. В реальной форме 14 листов, а форму предоставят около 30-ти ОУ.

Как я понял:
1. Есть некое количество файлов единого оформления.
2. Нужно из всех файлов просуммировать ячейки: 9-4, 9-5, 10-3.
3. Результат выводим в форму с тем же оформлением, в те же ячейки.

Важно знать: названия листов с которыми работаем, координаты ячеек для суммирования (каждой отдельно!!!), координаты ячеек для вывода результата (каждой отдельно!!!).
Выдергивание информации из уже заполненных форм, весьма муторная, очень "неблагодарная" работа, с огромным потенциал для возникновения ошибки, и самое главное все старания идут прахом при малейшем изменения оформления ЛЮБОГО листа (с кажем при изменении официального оформления или просто человеческого фактора).

Для того что бы решить задачу на продолжительное время и обеспечить "запас прочности", необходимы данные в не форматированном виде, скажем в текстовом файле. В противном случае нет смыла браться за решения.

Могут ли вам данные поступать в каком либо (ЛЮБОМ) ином виде?

[nilem]

Только вот листы запаролены. Сделал копию на Лист1. Зеленая кнопка.

[AnnaVild]

Сообщение от tae1980

Могут ли вам данные поступать в каком либо (ЛЮБОМ) ином виде?

Нет, к сожалению

Сообщение от nilem

Только вот листы запаролены. Сделал копию на Лист1. Зеленая кнопка.

Огромное спасибо!!! Работает замечательно!
А как теперь этот макрос использовать на других листах? Надо ли его изменять?
И еще вопрос: возможно ли задать пересчет всех листов сводной книги на одну кнопочку?

[nilem]

Сообщение от AnnaVild

А как теперь этот макрос использовать на других листах? Надо ли его изменять?
И еще вопрос: возможно ли задать пересчет всех листов сводной книги на одну кнопочку?

Для других листов - в коде в этой строке:

[a1].Formula = "=ToArr2('" & ThisWorkbook.Path & "\[" & f & "]Р-2.1'!AS9:EK17)"

Р-2.1 - имя листа, AS9:EK17 - диапазон на листе. И то, и другое можно поменять, как необходимо.
Одну кнопку для всех листов - скорее всего можно.