Перелічити всі імена файлів у каталозі
Наступний код - це підпрограма, яка отримає імена всіх файлів, які присутні у шляху до каталогу:
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 .NowIearch. .Filename = "*.*" .SearchSubFolders = false. kk25 Закінчити з кінцевим саб
Він записує імена файлів у Sheet1 у стовпці O - починаючи з рядка 36
Завантажте файл Excel тут