Открыть файлы из папки и ее подпапок

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Открыть файлы из папки и ее подпапок (Макросы/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

Ответить

Kuzmich

Дата: Понедельник, 22.03.2021, 11:43 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

Посмотрите здесь https://www.planetaexcel.ru/techniques/3/45/

Ответить

Открыть файлы из папки и ее подпапок (Макросы/Sub)

Страница 1 из 1
1