VBA:ssa voit lukea kansion Dir käskyllä löytääksesi haluamasi tiedoston tai vaikka kansion kaikki tiedostot.
Käytä lukemisessa Do While – Loop solmukkaa. Kun olet käsitellyt tiedoston ja haluat lukea seuraavan tiedoston suorita Dir toistamiseen ennen Loop käskyä.
Alla olevassa esimerkissä kansionkin voisi parametrisoida ja Sub:n muuttaa Function proseduuriksi.
Sub EtsiTiedosto()
Dim NextBook As String
NextBook = Dir(“c:\test\*.xlsx”) ‘lue hakemistosta kaikki .xlsx tiedostot
Do While NextBook <> “” ‘silmukka niin kauan kun tiedostoja löytyy
…
Koodi joka käsittelee löydetyn tiedoston
…
NextBook = Dir() ‘lue hakemisto uudestaan
Loop
End Sub