Как применить макрос ко всем .xls файлам в папке

[Lunar-Mole]

Имеется папка C:\Папка
В этой папке куча файлов в формате ecxel (возможно наличие подпапок). Как применить макрос ко всем файлам в этой папке. Например чтобы во всех файлах ячейка A1 стала красной?

[HandKot]

полодижить его (файл с макросом) в папку XLStart и тогда он будет видекн вообще во всех файлах екселя, когда их откроешь

ЗЫЖ есть ещё какая-то папка, но не помню

[Lunar-Mole]

Это не совсем то, насколько я понял это тоже самое что сохранить макрос в личной книге макросов, то есть при открытие любого файла будет открываться личная книга макросов с помощью которой можно будет применить макрос к открытому файлу, а если файлов много все равно нужно будет каждый открывать  применять к нему макрос. Хотелось бы так: открываю файл с макросом, указываю путь к необходимой папке, и при выполнении макрос применяет действие ко всем файлам в указаной папке.

[HandKot]

Ну тогда всё зависит от того, какие действия Вы предполагаете сделать с книгами

1) Сложные преобразования:
 

Код:

   Dim wb As Workbook
    
     Set wb = Workbooks.Open(Filename)
    ...
    'делаем необходимые действия
    ...
    wb.Save
    wb.Close
    Set wb = Nothing

  Обернуть конечно циклом с пробегом по всем файлам.
  Для получения файлов можно использовать DIR
Минус - надо открывать каждую книгу
2) Несложные преобразования
  Можно использовать ф-ции

Код:

ExecuteExcel4Macro
Excel4MacroSheets
Excel4IntlMacroSheets

Минус - можно сделать не всё
Плюс - не надо открывать книгу (как работать с закрытой книгой, поищите)

[HandKot]

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