Selles õpetuses saate teada, kuidas hankida kausta kõigi failide nimed ja need töölehele panna.
Selle asemel, kui soovite õppida, kuidas faili olemasolu kontrollida, võite klõpsata sellel lingil: VBA -fail on olemas
FileSystemObjecti kasutamine kausta failide loendi hankimiseks
VBA võimaldab teil loetleda kõik failid kaustast, kasutades FileSystemObject.
Näitame, kuidas saada kaustas olevate failide loendit C: \ VBA kaust ja pange see töölehe esimesse veergu. See kaust koosneb viiest failist, nagu on näidatud pildil 1:
Pilt 1. Failid kaustas C: \ VBA Folder
Siin on kood:
| 1234567891011121314151617181920 | Sub LoopThroughFiles ()Dim oFSO kui objektKausta himustamine objektinaDim oFile objektinaDim i As täisarvMäära oFSO = CreateObject ("Scripting.FileSystemObject")Määra oFolder = oFSO.GetFolder ("C: \ VBA kaust")Iga oFile kausta. FailidLahtrid (i + 1, 1) = oFile.Namei = i + 1Järgmine failEnd Sub |
Näites looge esmalt klassi objekt Skriptimine.FileSystemObject:
| 1 | Määra oFSO = CreateObject ("Scripting.FileSystemObject") |
Seejärel määrake meetodit kasutades kaust GetFolder:
| 1 | Määra oFolder = oFSO.GetFolder ("C: VBA kaust") |
Järgmine silmus läbi iga faili o kaust, kasutades oFail. Nimi hankige kausta iga faili nimi ja kirjutage see järgmisele tühjale reale:
| 123456 | Iga oFile kausta. FailidLahtrid (i + 1, 1) = oFile.Namei = i + 1Järgmine fail |
Pilt 2. Tööleht koos kaustas olevate failide loendiga
Nagu näete pildil 2, on kõik 5 faili kaustast C: \ VBA loetletud esimeses veerus.
