300 Piemēri

Faili direktorijā

Files Directory

Zemāk mēs apskatīsim programmu Excel VBA ka cilpas caur visām slēgtajām darbgrāmatām un darblapām iekšā direktoriju un parāda visus nosaukumus.





Lejupielādējiet Book1.xlsx, Book2.xlsx, Book3.xlsx, Book4.xlsx un Book5.xlsx un pievienojiet tos sarakstam C: test

Situācija:





Faili direktorijā Piemērs

Komandas pogai pievienojiet šādas koda rindiņas:



1. Pirmkārt, mēs deklarējam divus String tipa mainīgos, darblapas objektu un divus Integer tipa mainīgos.

Navdirektoriju Stīga, faila nosaukums Stīga, loksneDarba lapa, t.i Vesels skaitlis, j Vesels skaitlis

2. Lai izvairītos no ekrāna mirgošanas, izslēdziet ekrāna atjaunināšanu.

Lietojumprogramma. Ekrāna atjaunināšana =Nepatiess

3. Inicializējiet mainīgo direktoriju. Mēs izmantojam funkciju Dir, lai atrastu pirmo *.xl ?? fails, kas saglabāts šajā direktorijā.

direktorijs = 'c: test '
fileName = Dir (direktorijs & '*.xl ??')

Piezīme: funkcija Dir atbalsta vairāku rakstzīmju (*) un vienas rakstzīmes (?) Aizstājējzīmju izmantošanu, lai meklētu visu veidu Excel failus.

4. Mainīgais fileName tagad satur direktorijā atrastā pirmā Excel faila nosaukumu. Pievienojiet a Darīt, kamēr cilpa .

Vai Kamērfaila nosaukums ''

Cilpa

Pievienojiet cilpai šādas koda rindiņas (pie 5, 6, 7, 8 un 9).

5. Inicializējiet Integer tipa mainīgos un pievienojiet Excel faila nosaukumu i rindas pirmajai kolonnai.

i = i + 1
j = 2
Šūnas (i, 1) = faila nosaukums

6. Nav vienkāršu veidu, kā iegūt datus (vai lapu nosaukumus) no slēgtiem Excel failiem. Tāpēc mēs atveram Excel failu.

Darbgrāmatas. Atvērt (direktorija un faila nosaukums)

7. Pievienojiet visus Excel faila lapu nosaukumus citām i rindas kolonnām.

Priekš KatrslapaInDarbgrāmatas (faila nosaukums). Darblapas
Darbgrāmatas ('files-in-a-directory.xlsm'). Darblapas (1). Šūnas (i, j). Vērtība = sheet.Name
j = j + 1
Nākamaislapa

8. Aizveriet Excel failu.

Darbgrāmatas (faila nosaukums). Aizvērt

9. Dir funkcija ir īpaša funkcija. Lai iegūtu citus Excel failus, varat vēlreiz izmantot funkciju Dir bez argumentiem.

pievienot Excel kolonnu
fileName = Režisors ()

Piezīme: ja vairs neatbilst failu nosaukumi, funkcija Dir atgriež nulles garuma virkni (''). Tā rezultātā Excel VBA atstās cilni Do Do.

10. Ieslēdziet ekrāna atjaunināšanu vēlreiz (ārpus cilpas).

Lietojumprogramma. Ekrāna atjaunināšana =Taisnība

11. Pārbaudiet programmu.

Rezultāts:

Faili direktorijā programmā Excel VBA

6/8 Pabeigts! Uzziniet vairāk par grāmatām un lapām>
Doties uz nākamo nodaļu: Diapazona objekts



^