Spodaj si bomo ogledali program v Excel VBA to prehaja skozi vse zaprte delovne zvezke in delovne liste v imenik in prikaže vsa imena.
Prenesite Book1.xlsx, Book2.xlsx, Book3.xlsx, Book4.xlsx in Book5.xlsx in jih dodajte v 'C: test '
Položaj:
Ukaznemu gumbu dodajte naslednje kodne vrstice:
1. Najprej razglasimo dve spremenljivki tipa String, predmet delovnega lista in dve spremenljivki tipa Integer.
NobenaimenikAs Vrvica, Ime datotekeAs Vrvica, listAsDelovni list, tjAs Celo število, jAs Celo število2. Če želite preprečiti utripanje zaslona, izklopite posodabljanje zaslona.
Application.ScreenUpdating =Napačno3. Inicializirajte imenik spremenljivk. Za iskanje prvega *.xl ?? uporabljamo funkcijo Dir. datoteko, shranjeno v tem imeniku.
directory = 'c: test 'fileName = Dir (imenik & '*.xl ??')
Opomba: funkcija Dir podpira uporabo več znakov (*) in enojnih znakov (?) Za iskanje vseh različnih vrst datotek Excel.
4. Spremenljivka fileName zdaj vsebuje ime prve Excelove datoteke, najdene v imeniku. Dodajte a Naredi While Loop .
Naredi MedtemIme datoteke ''Zanka
V zanko dodajte naslednje kodne vrstice (pri 5, 6, 7, 8 in 9).
5. Inicializirajte spremenljivke tipa Integer in dodajte ime datoteke Excel v prvi stolpec vrstice i.
i = i + 1j = 2
Celice (i, 1) = ime datoteke
6. Ni preprostega načina za pridobivanje podatkov (ali imen listov) iz zaprtih Excelovih datotek. Zato odpremo datoteko Excel.
Delovni zvezki. Odpri (imenik in ime datoteke)7. Dodajte vsa imena listov Excelove datoteke v druge stolpce vrstice i.
Za VsaklistVDelovni zvezki (ime datoteke). Delovni listiDelovni zvezki ('files-in-a-directory.xlsm'). Delovni listi (1). Celice (i, j) .Vrednost = list.Ime
j = j + 1
Naslednjilist
8. Zaprite datoteko Excel.
Delovni zvezki (ime datoteke). Zapri9. Dir funkcija je posebna funkcija. Če želite dobiti druge Excelove datoteke, lahko znova uporabite funkcijo Dir brez argumentov.
excel trenutna formula datuma in časaime datoteke = Dir ()
Opomba: ko se ne ujema več imen datotek, funkcija Dir vrne niz ničelne dolžine (''). Posledično bo Excel VBA zapustil zanko Do While.
10. Znova vklopite posodabljanje zaslona (zunaj zanke).
Application.ScreenUpdating =Prav11. Preizkusite program.
Rezultat:
Pojdi na naslednje poglavje: Objekt obsega