300 Primerov

Datoteke v imeniku

Files Directory

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:





Datoteke v primeru imenika

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 število

2. Če želite preprečiti utripanje zaslona, ​​izklopite posodabljanje zaslona.

Application.ScreenUpdating =Napačno

3. 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 + 1
j = 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 listi
Delovni 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). Zapri

9. Dir funkcija je posebna funkcija. Če želite dobiti druge Excelove datoteke, lahko znova uporabite funkcijo Dir brez argumentov.

excel trenutna formula datuma in časa
ime 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 =Prav

11. Preizkusite program.

Rezultat:

Datoteke v imeniku v Excelu VBA

6/8 Dokončano! Več o knjigah in listih>
Pojdi na naslednje poglavje: Objekt obsega



^