Помогите девушке с простеньким VBA!

[yanka]

Очень прошу помочь! Эксел знаю хорошо, но вот с программированием совсем не знакома, а тут на работе возникла проблемка, и без VBA никак не обойтись!

Короче, есть куча файлов FILEi, где i=1,2,...115. В каждом из них таблица одинаковой размерности с разными значениями в соответствующих ячейках. Нужно сделать в файле FILEend суммарную таблицу той же размерности, что и все эти таблицы, где в каждой ячейке будет СУММА значений ячеек всех исходных таблиц. Т.е. в ячейке С10 в файле FILEend будет сумма значений ячеек С10 всех файлов.

Мне кажется, это должен быть простой какой-то цикл. Очень прошу помочь!

[SAS888]

Эту задачу можно решить разными способами. Предлагаю один из вариантов (см. вложение), позволяющий не открывать файлы-источники.
Предполагается, что все файлы находятся в одной папке и имеют имена "File1.xls", "File2.xls" и т.д. Исходные таблицы расположены на листе 1 в диапазоне "A1:O30" (в коде VBA, в примечаниях указано как изменить диапазон).
Откройте файл "EndFiles.xls" (который может располагаться в любом месте). При запуске макроса "Main", будет предложено указать путь к папке-источнику файлов. Все остальное - автоматически.
P.S. Рабочий файл может находиться где угодно, но если он находится в той же директории, что и файлы-источники, то он не должен иметь имя, начинающееся с "File...". Это обязательное условие.

[yanka]

Уважаемый SAS888, большое спасибо за ответ!
К сожалению, у меня макрос не работает (в Excel 2007) - выдаёт ошибку

Run-time error '445':
Object doesn't support this action

в строке

Set FS = Application.FileSearch

Помогите, пожалуйста.

[Pavel55]

На сколько мне известно в Office 2007 метод FileSearch отключён. Предлагаю заменить его на Dir в цикле Do .... Loop Until

[yanka]

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

На сколько мне известно в Office 2007 метод FileSearch отключён. Предлагаю заменить его на Dir в цикле Do .... Loop Until

Ой, мне стыдно, но для меня всё это тёмный лес . Если можно, что и где конкретно заменить?

[SAS888]

По совету Pavel55, в предлагаемом вложении метод "FileSearch" заменен на "Dir" в цикле "Do .... Loop". Посмотрите, может устроит.
P.S. Требования к имени и расположению рабочего файла остаются в силе.
P.P.S Но, все равно, этот пример я делал в Office 2003.

[yanka]

Дорогой SAS888,
Спасибо вам большое! Какой умничка! Мой начальник впечатлился очень!!!