Lista wszystkich plików zawartych w katalogu - Przykłady kodu VBA

Wyświetl wszystkie nazwy plików w katalogu

Poniższy kod jest podprogramem, który pobierze nazwy wszystkich plików znajdujących się w ścieżce katalogu:

 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:My Documents" Row_No = 36 'Wyświetla wszystkie pliki w bieżącym katalogu z Application.FileSearch .InSearch File_Path .Look .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 Koniec z końcem Sub 

Zapisuje nazwy plików do Arkusza1 w kolumnie O - zaczynając od wiersza 36
Pobierz plik Excel tutaj