Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Открыть файлы из папки и ее подпапок - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открыть файлы из папки и ее подпапок (Макросы/Sub)
Открыть файлы из папки и ее подпапок
Masik8645 Дата: Понедельник, 22.03.2021, 11:27 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Уважаемые Знатоки!
Помогите, пожалуйста, подправить код. В моем случай код открывает все файлы, находящиеся в определенной папке, производит некие дествия с каждым файлом и закрывает их.
Но мне нужно, чтобы он открывал все файлы из папки и из подпапок и проивозил все теже действия.
Много всего перечитала, но что-то не выходит. ней пойму что нужно поправить, чтобы код открывал подпапки в том числе

Код отвечающий за открытие файла (дальше конечно еще очень много строк с действиями с каждым файлом):

[vba]
Код
Dim sPath As String

sPath = Workbooks("SAM Format change.xlsm").Sheets("Sheet1").Range("A11").Value 'путь к основной папке

Dim bookList As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object

Set mergeObj = CreateObject("Scripting.FileSystemObject")
Set dirObj = mergeObj.GetFolder(sPath)
Set filesObj = dirObj.Files

For Each everyObj In filesObj

Set bookList = Workbooks.Open(everyObj) .....
[/vba]


Сообщение отредактировал Serge_007 - Понедельник, 22.03.2021, 14:27
 
Ответить
СообщениеУважаемые Знатоки!
Помогите, пожалуйста, подправить код. В моем случай код открывает все файлы, находящиеся в определенной папке, производит некие дествия с каждым файлом и закрывает их.
Но мне нужно, чтобы он открывал все файлы из папки и из подпапок и проивозил все теже действия.
Много всего перечитала, но что-то не выходит. ней пойму что нужно поправить, чтобы код открывал подпапки в том числе

Код отвечающий за открытие файла (дальше конечно еще очень много строк с действиями с каждым файлом):

[vba]
Код
Dim sPath As String

sPath = Workbooks("SAM Format change.xlsm").Sheets("Sheet1").Range("A11").Value 'путь к основной папке

Dim bookList As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object

Set mergeObj = CreateObject("Scripting.FileSystemObject")
Set dirObj = mergeObj.GetFolder(sPath)
Set filesObj = dirObj.Files

For Each everyObj In filesObj

Set bookList = Workbooks.Open(everyObj) .....
[/vba]

Автор - Masik8645
Дата добавления - 22.03.2021 в 11:27
Kuzmich Дата: Понедельник, 22.03.2021, 11:43 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 596
Репутация: 126 ±
Замечаний: 0% ±

Excel 2003
Посмотрите здесь https://www.planetaexcel.ru/techniques/3/45/
 
Ответить
СообщениеПосмотрите здесь https://www.planetaexcel.ru/techniques/3/45/

Автор - Kuzmich
Дата добавления - 22.03.2021 в 11:43
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открыть файлы из папки и ее подпапок (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!