I denne opplæringen lærer du hvordan du får navn på alle filene i en mappe og legger dem i et regneark.
Hvis du i stedet vil lære å kontrollere om det finnes en fil, kan du klikke på denne lenken: VBA -fil finnes
Bruke FileSystemObject for å få listen over filer i en mappe
VBA lar deg liste alle filer fra en mappe ved hjelp av FileSystemObject.
Vi viser hvordan du får en liste over filer i mappen C: \ VBA -mappe og legg den inn i den første kolonnen i regnearket. Denne mappen består av 5 filer, som vist på bilde 1:
Bilde 1. Filer i mappe C: \ VBA -mappe
Her er koden:
| 1234567891011121314151617181920 | Sub LoopThroughFiles ()Dim oFSO som objektDim oFolder som objektDim oFile som objektDim i As IntegerSett oFSO = CreateObject ("Scripting.FileSystemObject")Sett oFolder = oFSO.GetFolder ("C: \ VBA -mappe")For hver oFile I oFolder.FilesCeller (i + 1, 1) = oFile.Namei = i + 1Neste filSlutt Sub |
I eksemplet må du først lage et objekt i klassen Scripting.FileSystemObject:
| 1 | Sett oFSO = CreateObject ("Scripting.FileSystemObject") |
Sett deretter mappen ved hjelp av metoden GetFolder:
| 1 | Sett oFolder = oFSO.GetFolder ("C: \ VBA -mappe") |
Neste sløyfe gjennom hver fil i oMappe, ved hjelp av oFile.Name til få navnet på hver fil i mappen og skriv den i den neste tomme raden:
| 123456 | For hver oFile I oFolder.FilesCeller (i + 1, 1) = oFile.Namei = i + 1Neste fil |
Bilde 2. Regneark med listen over filer i mappen
Som du kan se i Bilde 2, er alle 5 filene fra C: \ VBA -mappen oppført i den første kolonnen.
