Открытие всех файлов xls в папке

[Milo4ka_Lucy]

Доброе утро всем!
Вопрос такой: как открыть все файлы .xls во всех папках, имя которых начинается с "09"?
Причем сначала открыть все файлы из одной папки, что-то сделать с данными, потом закрыть, а только потом открыть все из другой.

Заранее спасибо за помощь!
Не ругайте, если уже была такая тема.

[EducatedFool]

Сначала получаете список имён подходящих файлов: http://excelvba.ru/code/FilenamesCollection
Потом в цикле открываете по очереди эти файлы, вносите изменения, и закрываете каждый с сохранением.

Непонятно, надо ли открывать такой файл: C:\Documents\09test\folder\file.xls
И откуда (с какой папки) начинать поиск?

[Milo4ka_Lucy]

Имена папок- даты, т.е. 09-01-2010. Все такого вида
папки лежат на диске D.
Может, имя папки я и сама прописывать буду.
А вот как открыть все файлы .xls в этой папке?
Спасибо за ссылку. Читаю, чешу репу.=)

[EducatedFool]

А вот как открыть все файлы .xls в этой папке?

А зачем их открывать?
Подробнее опишите, что вы будете делать с файлами.
(неохота потом переписывать код - когда вы уточните, что там надо получить в итоге)

Ну и прикрепите примеры файлов при необходимости.

[EducatedFool]

Получить список нужных подпапок можно так: http://excelvba.ru/code/SubFoldersCollection

Остальной код - чуть позже, если будет время...

[Milo4ka_Lucy]

Есть тьма файлов с маленькой табличкой, ее местоположение на листе всегда одно. Папки- даты. Файлы-время. Надо просто получить общую сумму по каждой графе из этой таблицы для каждой даты.
Но чтобы не открывать файлы самой, я хотела просто открыть все файлы .xls из этой папки, а потом уже создать цикл считывания и суммирования для каждой открытой книги

[Milo4ka_Lucy]

Спасибо за код=)

[EducatedFool]

Ваш макрос будет выглядеть примерно так:

Sub Main()
    Application.ScreenUpdating = False    ' отключаем обновление экрана
    Dim wb As Workbook

    ' считываем в колекцию coll нужные имена файлов (поиск папок с названием, начинающимся на 09)
    Set СписокПапок = SubFoldersCollection("d:\", "09*")

    For Each Папка In СписокПапок    ' перебираем подходящие папки
        ' ищем все файлы excel в очередной папке
        For Each Файл In FilenamesCollection(Папка, ".xls", 1)    ' перебираем подходящие файлы
            ' выводим очередной путь к файлу в строку состояния
            Application.StatusBar = "Обрабатывается книга: " & Файл

            Set wb = Workbooks.Open(Файл)    ' открываем очередной файл
            wb.Worksheets(1).[d5] = "текст"    ' пишем текст в ячейку D5
            wb.Close True    ' закрываем очередной файл с сохранением изменений

        Next Файл
    Next Папка
    Application.StatusBar = False
End Sub

Пример в виде файла:

[EducatedFool]

Надо просто получить общую сумму по каждой графе из этой таблицы для каждой даты.

Всё это можно было попробовать сделать при помощи формул - если заранее известны названия листов и адреса диапазонов для суммирования.

[Milo4ka_Lucy]

На ошибки не ругается, но даже список папок не печатает.
Никакие библиотеки подключать специально не надо для работы кода?