Tässä opetusohjelmassa opit saamaan kaikkien kansion tiedostojen nimet ja laittamaan ne laskentataulukkoon.
Jos sen sijaan haluat oppia tarkistamaan tiedoston olemassaolon, voit napsauttaa tätä linkkiä: VBA -tiedosto on olemassa
FileSystemObject -tiedoston käyttäminen kansion tiedostojen luettelon hankkimiseen
VBA: n avulla voit luetella kaikki tiedostot kansiosta käyttämällä FileSystemObject.
Näytämme kuinka saada luettelo kansion tiedostoista C: \ VBA -kansio ja laita se laskentataulukon ensimmäiseen sarakkeeseen. Tämä kansio koostuu viidestä tiedostosta, kuten kuvassa 1:
Kuva 1. Tiedostot kansiossa C: \ VBA Folder
Tässä on koodi:
| 1234567891011121314151617181920 | Sub LoopThroughFiles ()Dim oFSO kohteenaHimmennä kansio objektinaDim oFile objektinaDim i Kuten kokonaislukuAseta oFSO = CreateObject ("Scripting.FileSystemObject")Aseta oFolder = oFSO.GetFolder ("C: \ VBA -kansio")Jokaiselle oFile In OFolder.FilesilleSolut (i + 1, 1) = oFile.Namei = i + 1Seuraava tiedostoEnd Sub |
Luo esimerkissä ensin luokan objekti Scripting.FileSystemObject:
| 1 | Aseta oFSO = CreateObject ("Scripting.FileSystemObject") |
Aseta sitten kansio menetelmällä GetFolder:
| 1 | Aseta oFolder = oFSO.GetFolder ("C: \ VBA -kansio") |
Seuraava kierros jokaisen tiedoston läpi oKansio, käyttämällä oTiedoston nimi Hae jokaisen kansion tiedoston nimi ja kirjoita se seuraavaan tyhjään riviin:
| 123456 | Jokaiselle oFile In OFolder.FilesilleSolut (i + 1, 1) = oFile.Namei = i + 1Seuraava tiedosto |
Kuva 2. Laskentataulukko, jossa on kansiossa olevien tiedostojen luettelo
Kuten näet kuvassa 2, kaikki 5 tiedostoa C: \ VBA -kansiosta on lueteltu ensimmäisessä sarakkeessa.
