300 Esimerkkejä

Tiedostot hakemistossa

Files Directory

Alla tarkastelemme ohjelmaa Excel VBA että selaa läpi kaikki suljetut työkirjat ja laskentataulukot jonkin sisällä hakemistoon ja näyttää kaikki nimet.

Lataa Book1.xlsx, Book2.xlsx, Book3.xlsx, Book4.xlsx ja Book5.xlsx ja lisää ne kohtaan C: test



Tilanne:



Tiedostot hakemistoesimerkissä

Lisää seuraavat koodirivit komentopainikkeeseen:



1. Ilmoitamme ensin kaksi String -tyyppistä muuttujaa, laskentataulukko -objektin ja kaksi Integer -tyyppistä muuttujaa.

Ei mitäänhakemistoonKuten Jousisoitin, Tiedoston nimiKuten Jousisoitin, arkkiKutenLaskentataulukko, tsKuten Kokonaisluku, jKuten Kokonaisluku

2. Vältä näytön välkkyminen sammuttamalla näytön päivitys.

Application.ScreenUpdating =Väärä

3. Alusta muuttujahakemisto. Käytämme Dir -funktiota ensimmäisen *.xl ?? tiedosto, joka on tallennettu tähän hakemistoon.



hakemisto = 'c: testi '
fileName = Dir (hakemisto & '*.xl ??')

Huomautus: Dir -toiminto tukee useiden merkkien (*) ja yhden merkin (?) Yleismerkkien käyttöä kaikentyyppisten Excel -tiedostojen etsimiseen.

4. Muuttuja fileName sisältää nyt hakemistosta löydetyn ensimmäisen Excel -tiedoston nimen. Lisää Tee Silmukalla .

Tehdä Sillä aikaaTiedoston nimi ''

Silmukka

Lisää seuraavat koodirivit (kohdat 5, 6, 7, 8 ja 9) silmukkaan.

5. Alusta Integer -tyypin muuttujat ja lisää Excel -tiedoston nimi rivin i ensimmäiseen sarakkeeseen.

i = i + 1
j = 2
Solut (i, 1) = tiedostonimi

6. Ei ole yksinkertaista tapaa poimia tietoja (tai arkkien nimiä) suljetuista Excel -tiedostoista. Siksi avaamme Excel -tiedoston.

Työkirjat. Auki (hakemisto ja tiedostonimi)

7. Lisää kaikki Excel -tiedoston arkkien nimet rivin i muihin sarakkeisiin.

Varten JokainenarkkiSisäänTyökirjat (tiedostonimi)
Työkirjat ('files-in-a-directory.xlsm'). Laskentataulukot (1). Solut (i, j). Value = sheet.Name
j = j + 1
Seuraavaarkki

8. Sulje Excel -tiedosto.

Työkirjat (tiedostonimi) Sulje

9. Dir -toiminto on erityinen toiminto. Voit hakea muut Excel -tiedostot käyttämällä Dir -toimintoa uudelleen ilman argumentteja.

useita if- tai lausekkeita excelissä
fileName = Ohjaus ()

Huomautus: jos tiedostojen nimet eivät enää vastaa, Dir-funktio palauttaa nollapituisen merkkijonon (''). Tämän seurauksena Excel VBA poistuu Do while -silmukasta.

10. Ota näytön päivitys uudelleen käyttöön (silmukan ulkopuolella).

Application.ScreenUpdating =Totta

11. Testaa ohjelma.

Tulos:

Tiedostot hakemistossa Excel VBA: ssa

6/8 valmis! Lisätietoja kirjoista ja arkeista>
Siirry seuraavaan lukuun: Alueobjekti



^