Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Как применить макрос ко всем .xls файлам в папке  (Прочитано 12591 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Lunar-Mole
Гость
« : 28-05-2009 13:50 » 

Имеется папка C:\Папка
В этой папке куча файлов в формате ecxel (возможно наличие подпапок). Как применить макрос ко всем файлам в этой папке. Например чтобы во всех файлах ячейка A1 стала красной?
« Последнее редактирование: 12-06-2009 10:14 от Джон » Записан
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #1 : 29-05-2009 11:23 » 

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

ЗЫЖ есть ещё какая-то папка, но не помню Жаль
« Последнее редактирование: 12-06-2009 10:14 от Джон » Записан

I Have Nine Lives You Have One Only
THINK!
Lunar-Mole
Гость
« Ответ #2 : 12-06-2009 06:01 » 

Это не совсем то, насколько я понял это тоже самое что сохранить макрос в личной книге макросов, то есть при открытие любого файла будет открываться личная книга макросов с помощью которой можно будет применить макрос к открытому файлу, а если файлов много все равно нужно будет каждый открывать  применять к нему макрос. Хотелось бы так: открываю файл с макросом, указываю путь к необходимой папке, и при выполнении макрос применяет действие ко всем файлам в указаной папке.
« Последнее редактирование: 12-06-2009 10:14 от Джон » Записан
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #3 : 14-06-2009 15:59 » 

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

1) Сложные преобразования:
 
Код:
   Dim wb As Workbook
   
     Set wb = Workbooks.Open(Filename)
    ...
    'делаем необходимые действия
    ...
    wb.Save
    wb.Close
    Set wb = Nothing
  Обернуть конечно циклом с пробегом по всем файлам.
  Для получения файлов можно использовать DIR
Минус - надо открывать каждую книгу
2) Несложные преобразования
  Можно использовать ф-ции
Код:
ExecuteExcel4Macro
Excel4MacroSheets
Excel4IntlMacroSheets
Минус - можно сделать не всё
Плюс - не надо открывать книгу (как работать с закрытой книгой, поищите)
Записан

I Have Nine Lives You Have One Only
THINK!
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #4 : 15-06-2009 04:29 » 

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

Записан

I Have Nine Lives You Have One Only
THINK!
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines