Tartalomjegyzék
Sorolja fel az összes fájlnevet a könyvtárban
A következő kód egy alprogram, amely megkapja a könyvtár elérési útjában lévő összes fájl nevét:
Sub List_All_The_Files_Within_Path () Dim Row_No Mint Integer Dim No_Of_Files Mint Integer Dim kk25 Mint Integer Dim File_Path As String File_Path = "C: Saját dokumentumok" Row_No = 36 'Felsorolja az összes fájlt az aktuális könyvtárban Application.FileSearch .NewSearch. .Filename = "*.*" .SearchSubFolders = False .Execute No_Of_Files = .FoundFiles.Count For kk25 = 1 To No_Of_Files Worksheets ("Sheet1"). Cellák (kk25 + 5, 15) .Value = .FoundFiles (kk25) Következő kk25 End End End Sub
A fájlneveket az 1. táblázatba írja az O oszlopba - a 36. sortól kezdve
Töltse le az Excel fájlt itt
