Zoznam všetkých názvov súborov v zozname
Nasledujúci kód je podprogram, ktorý získa názvy všetkých súborov, ktoré sa nachádzajú v ceste k adresáru:
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 'Listists all the files in the current directory With Application.FileSearch .NewSearch .LookIn .Filename = "*.*" .SearchSubFolders = False. Vykonajte No_Of_Files = .FoundFiles.Count pre kk25 = 1 až No_Of_Files pracovné listy ("Sheet1"). Bunky (kk25 + 5, 15) .Hodnota = .FoundFiles (kk25) Ďalej kk25 Koniec s koncom Sub
Zapíše názvy súborov do hárka 1 v stĺpci O - začínajúc riadkom 36
Stiahnite si súbor programu Excel tu
