Šioje pamokoje sužinosite, kaip gauti visų aplankų failų pavadinimus ir įdėti juos į darbalapį.
Vietoj to, jei norite sužinoti, kaip patikrinti, ar yra failas, galite spustelėti šią nuorodą: VBA failas yra
„FileSystemObject“ naudojimas failų sąrašui aplanke gauti
VBA leidžia išvardyti visus failus iš aplanko, naudojant „FileSystemObject“.
Mes parodysime, kaip gauti aplankų failų sąrašą C: \ VBA aplankas ir įdėkite jį į pirmąjį darbalapio stulpelį. Šį aplanką sudaro 5 failai, kaip parodyta 1 paveikslėlyje:
Vaizdas 1. Failai aplanke C: \ VBA Folder
Čia yra kodas:
| 1234567891011121314151617181920 | „Sub LoopThroughFiles“ ()Dim oFSO kaip objektasApšviesti aplanką kaip objektąDim oFile kaip objektasDim i As IntegerNustatykite oFSO = CreateObject ("Scripting.FileSystemObject")Nustatykite oFolder = oFSO.GetFolder ("C: \ VBA aplankas")Kiekvienam „oFile In oFolder“ .FailaiLąstelės (i + 1, 1) = oFailas. Pavadinimasi = i + 1Kitas failasPabaiga Sub |
Pavyzdyje pirmiausia sukurkite klasės objektą Scripting.FileSystemObject:
| 1 | Nustatykite oFSO = CreateObject ("Scripting.FileSystemObject") |
Tada nustatykite aplanką naudodami šį metodą „GetFolder“:
| 1 | Nustatykite oFolder = oFSO.GetFolder ("C: \ VBA aplankas") |
Kitas ciklas per kiekvieną failą o Aplankas, naudojant oFailas. Pavadinimas gaukite kiekvieno aplanko failo pavadinimą ir įrašykite jį į kitą tuščią eilutę:
| 123456 | Kiekvienam „oFile“ aplanke. FailaiLąstelės (i + 1, 1) = oFailas. Pavadinimasi = i + 1Kitas failas |
2 paveikslėlis. Darbo lapas su aplanke esančių failų sąrašu
Kaip matote 2 paveiksle, visi 5 failai iš aplanko C: \ VBA yra išvardyti pirmame stulpelyje.
