Žemiau apžvelgsime programą Excel VBA kad peržiūrėti visas uždarytas darbo knygas ir darbalapius a katalogą ir parodo visus vardus.
Atsisiųskite Book1.xlsx, Book2.xlsx, Book3.xlsx, Book4.xlsx ir Book5.xlsx ir pridėkite juos prie „C: test“
Situacija:
Prie komandų mygtuko pridėkite šias kodo eilutes:
1. Pirmiausia deklaruojame du „String“ tipo kintamuosius, darbalapio objektą ir du „Integer“ tipo kintamuosius.
Nė vienaskatalogąKaip Styginė, failo pavadinimasKaip Styginė, lapasKaipDarbo lapas, tKaip Sveikasis skaičius, jKaip Sveikasis skaičius2. Norėdami išvengti ekrano mirgėjimo, išjunkite ekrano atnaujinimą.
Application.ScreenUpdating =Netiesa3. Inicijuokite kintamųjų katalogą. Norėdami rasti pirmąjį *.xl ??, naudojame funkciją Dir. failas, saugomas šiame kataloge.
katalogas = 'c: test 'fileName = Dir (katalogas ir '*.xl ??')
Pastaba: funkcija Dir palaiko kelių simbolių (*) ir vieno simbolio (?) Pakaitos simbolių naudojimą ieškant visų skirtingų tipų „Excel“ failų.
4. Kintamasis fileName dabar turi pirmo katalogo rasto „Excel“ failo pavadinimą. Pridėti Atlikite ciklą .
Daryk Norsfailo pavadinimas ''Kilpa
Prie kilpos pridėkite šias kodo eilutes (5, 6, 7, 8 ir 9).
5. Inicijuokite „Integer“ tipo kintamuosius ir pridėkite „Excel“ failo pavadinimą į pirmąjį i eilutės stulpelį.
i = i + 1j = 2
Ląstelės (i, 1) = fileName
6. Nėra paprasto būdo iš uždarų „Excel“ failų išgauti duomenis (ar lapų pavadinimus). Todėl atidarome „Excel“ failą.
Darbaknygės. Atidaryti (katalogas ir failo pavadinimas)7. Pridėkite visus „Excel“ failo lapų pavadinimus prie kitų i eilutės stulpelių.
Dėl KiekvienaslapasInDarbaknygės (failo pavadinimas). Darbo lapaiDarbaknygės („files-in-a-directory.xlsm“). Darbo lapai (1). Ląstelės (i, j). Value = sheet.Name
j = j + 1
Kitaslapas
8. Uždarykite „Excel“ failą.
Darbaknygės (failo pavadinimas). Uždaryti9. Dir funkcija yra ypatinga funkcija. Norėdami gauti kitus „Excel“ failus, vėl galite naudoti funkciją „Dir“ be jokių argumentų.
kaip rašyti, jei excelfileName = Režisierius ()
Pastaba: kai neatitinka daugiau failų pavadinimų, funkcija Dir grąžina nulinio ilgio eilutę (''). Dėl to „Excel VBA“ paliks ciklą „Daryti kol“.
10. Vėl įjunkite ekrano atnaujinimą (už ciklo ribų).
Application.ScreenUpdating =Tiesa11. Išbandykite programą.
Rezultatas:
Eiti į kitą skyrių: Diapazono objektas
