Избройте всички имена на файлове в Директорията
Следният код е подпрограма, която ще получи имената на всички файлове, които присъстват в пътя на директорията:
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. .Filename = "*.*" .SearchSubFolders = False .Изпълнете No_Of_Files =. kk25 Край с край Sub
Той ще запише имената на файловете в Sheet1 в колона O - започвайки от ред 36
Изтеглете файла Excel тук
