|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.07.2010, 09:57 | #1 |
Пользователь
Регистрация: 28.07.2009
Сообщений: 17
|
Применение макроса ко всем файлам из папки
Здравствуйте товарищи, как можно организовать работу макроса ко всем файлам из папки?
Последний раз редактировалось Антон Олегович; 06.07.2010 в 10:27. |
08.07.2010, 23:58 | #2 |
Форумчанин
Регистрация: 14.05.2009
Сообщений: 311
|
Код:
|
09.07.2010, 08:34 | #3 |
Пользователь
Регистрация: 20.01.2010
Сообщений: 53
|
Можно так: появится окошко в котором выбираете нужную папку, а далее всефайлы в ней определяются автоматически.
Sub Auto_Write_In_Books() Dim sFolder As String, sFiles As String, li As Long With Application.FileDialog(msoFileDialo gFolderPicker) If .Show = False Then Exit Sub sFolder = .SelectedItems(1) End With Application.ScreenUpdating = False sFiles = Dir(sFolder & Application.PathSeparator & "*.xls*") On Error Resume Next Do While sFiles <> "" Workbooks.Open sFiles 'Ваш макрос ActiveWorkbook.Close SaveChanges:=True sFiles = Dir Loop Application.ScreenUpdating = True End Sub |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
применение ComboBox | Improviz | Компоненты Delphi | 2 | 21.02.2010 12:52 |
Как сделать, чтобы результат выполнения макроса записывался по строкам во всем столбце? | kipish_lp | Microsoft Office Excel | 3 | 26.11.2009 07:18 |
Запуск макроса с параметрами из другого макроса | Saladin | Microsoft Office Excel | 2 | 19.01.2009 09:43 |
Применение KeyboardProc() | Zeraim | Win Api | 3 | 14.05.2008 12:42 |