MS Excel VBA – получение имен файлов в подпапках объявленной папки

Я пытаюсь перебрать все подпапки внутри папки, скомпилировав все имена файлов. У меня проблемы, хотя я адаптировал этот код из макроса, который только петли через одну папку и компилирует имена файлов. Большое спасибо за ваше время!

Sub FindFiles() Cells(1, 1).Select Dim F As String Dim G As String F = Dir("C:\Users\z003nttv\Desktop\Folder\" & "*") Do While Len(F) > 0 Do While Len(G) > 0 G = Dir(F & "*.*") ActiveCell.Formula = G ActiveCell.Offset(1, 0).Select G = Dir() Loop F = Dir() Loop 

End Sub

Найден ответ на следующем сайте:

https://www.extendoffice.com/documents/excel/2994-excel-list-all-files-in-folder-and-subfolders.html

Надеюсь, что это может оказать некоторую помощь.

Я работал над этим кодом, прежде чем вы разместили ссылку и задумались о моей работе. Поэтому я проверил ссылку, которую вы опубликовали. Я считаю, что код, который я хотел опубликовать, является кратким и более точным. Отсюда вы идете

Шаг 1. Ссылка

Ссылки, необходимые для этого кода

Шаг 2. Код.

 Sub FindFiles() Dim fso As FileSystemObject Dim Folder As Folder Dim Files As Files Dim path, s As String '' Input Path : Please change as needed path = Sheets("Sheet1").Cells(1, 2).Value Set fso = New FileSystemObject Set Basefolder = fso.GetFolder(path) Set SubFolders = Basefolder.SubFolders Dim i As Integer i = 1 For Each Folder In SubFolders Set Files = Folder.Files For Each File In Files With Sheets("Sheet1") .Cells(i, 1).Value = Folder .Cells(i, 2).Value = File i = i + 1 Next File Next Folder End Sub 
Interesting Posts

Обновления Excel Live

Функция VBA возвращается к вызывающей процедуре в операторе присваивания

Vba хочет, чтобы пользователь принудительно заполнял форму, когда не заполненная программа не должна продолжаться дальше

Excel: как суммировать значения на основе расчета вместо диапазона?

Если ячейка A1 в листе 1 равна «x», как на листе 2, тогда отобразите ячейку B1 из листа 2 в ячейке 1 листа 1

Чтение встроенного объекта в excel с помощью java

Google Spreadsheet – округлить до 0,5, но округлить выше этого

Условно добавить значения одного столбца, если соседний столбец соответствует определенным критериям?

Оператор Boolean и If

Преобразование xlsx в xls с использованием excelcnv Microsoft Office Compitablity Pack

Ошибка при загрузке любого сгенерированного java-файла

Расширенные критерии фильтра не работают более чем для одного критерия

заменить строку только в текстовом поле vba excel

Ссылка на ячейку в другой книге. И сделайте мой запрос не обновленным, если значения равны

Excel – суммирование последовательных значений на основе раскрывающегося списка

Давайте будем гением компьютера.