Luettelo kaikista hakemiston sisältämistä tiedostoista - VBA -koodiesimerkkejä

Listaa kaikki hakemiston tiedostonimet

Seuraava koodi on aliohjelma, joka hakee kaikkien hakemistopolussa olevien tiedostojen nimet:

 Sub List_All_The_Files_Within_Path () Dim Row_No As Integer Dim .Filename = "*.*" .SearchSubFolders = False .Execute No_Of_Files = .FoundFiles.Count For kk25 = 1 To No_Of_Files Worksheets ("Sheet1"). Solut (kk25 + 5, 15) .Arvo = .FoundFiles (kk25) Seuraava kk25 Päättyy End Sub 

Se kirjoittaa tiedostonimet taulukkoon 1 sarakkeeseen O - alkaen rivistä 36
Lataa Excel -tiedosto tästä