Список всех файлов, содержащихся в каталоге - Примеры кода VBA

Список всех имен файлов в каталоге

Следующий код представляет собой подпрограмму, которая получает имена всех файлов, которые присутствуют в пути к каталогу:

 Sub List_All_The_Files_Within_Path () Dim Row_No As Integer Dim No_Of_Files As Integer Dim kk25 As Integer Dim File_Path As String File_Path = "C: Мои документы" Row_No = 36 'Список всех файлов в текущем каталоге с Application.FileSearch .NewSearch .NewSearch. .Filename = "*. *" .SearchSubFolders = False .Execute No_Of_Files = .FoundFiles.Count For kk25 = 1 To No_Of_Files Worksheets ("Sheet1"). Cells (kk25 + 5, 15) .Value = .FoundFiles (kk25) Next kk25 Конец с концевым переводником 

Он запишет имена файлов в Sheet1 в столбце O - начиная со строки 36.
Загрузите файл Excel здесь