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

yanka · 04.03.2008, 05:21

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

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

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

SAS888 · 04.03.2008, 07:38

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

yanka · 04.03.2008, 22:07

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

Цитата:

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

в строке

Цитата:

Set FS = Application.FileSearch

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

Pavel55 · 04.03.2008, 22:51

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

yanka · 04.03.2008, 23:36

Цитата:

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

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

Ой, мне стыдно, но для меня всё это тёмный лес

. Если можно, что и где конкретно заменить?

SAS888 · 05.03.2008, 05:23

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

yanka · 06.03.2008, 00:35

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

04.03.2008, 05:21	#1
yanka Регистрация: 04.03.2008 Сообщений: 4	Помогите девушке с простеньким VBA! Очень прошу помочь! Эксел знаю хорошо, но вот с программированием совсем не знакома, а тут на работе возникла проблемка, и без VBA никак не обойтись! Короче, есть куча файлов FILEi, где i=1,2,...115. В каждом из них таблица одинаковой размерности с разными значениями в соответствующих ячейках. Нужно сделать в файле FILEend суммарную таблицу той же размерности, что и все эти таблицы, где в каждой ячейке будет СУММА значений ячеек всех исходных таблиц. Т.е. в ячейке С10 в файле FILEend будет сумма значений ячеек С10 всех файлов. Мне кажется, это должен быть простой какой-то цикл. Очень прошу помочь!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите, пожалуйста, девушке...	Pushinka	Microsoft Office Access	18	06.06.2008 00:03
помогите пожалуйста девушке, ничего не смысляшей в паскале	Sawe	Паскаль, Turbo Pascal, PascalABC.NET	1	31.05.2008 15:23
Помогите решить задачи девушке!	Lapyle4ek	Помощь студентам	16	08.01.2008 23:35

04.03.2008, 22:51	#4
Pavel55 Форумчанин Регистрация: 21.08.2007 Сообщений: 292	На сколько мне известно в Office 2007 метод FileSearch отключён. Предлагаю заменить его на Dir в цикле Do .... Loop Until

06.03.2008, 00:35	#7
yanka Регистрация: 04.03.2008 Сообщений: 4	Дорогой SAS888, Спасибо вам большое! Какой умничка! Мой начальник впечатлился очень!!!