INHOUDSOPGAWE
Die DIR -funksie in VBA wys hoofsaaklik vir jou die gids of die lêers van 'n gegewe vouer. Dit kan ook die eerste lêer met hierdie funksie terugstuur. Hierdie funksie het baie gebruike om spesifieke lêers en vouers te kry. Al wat jy nodig het om net die lêerpad in die padnaam van die VBA -kode in te voeg. Jy sal dit dalk moeiliker vind om die VBA DIR -kodes te gebruik. Moenie bekommerd wees nie, in hierdie artikel gaan ons jou 'n paar voorbeelde wys vir 'n beter visualisering om die VBA DIR funksie te gebruik. Hoop jy sal die funksie kan gebruik nadat jy die artikel gelees het. So, kom ons begin.
Laai Oefenwerkboek af
Laai die volgende oefenwerkboek af. Dit sal jou help om die onderwerp beter te verstaan.
DIR Function.xlsm
Inleiding tot die DIR-funksie
Opsomming:
Die VBA DIR -funksie gee die naam van 'n lêer of gids vanaf 'n gegewe gidspad terug. Konvensioneel gee dit die eerste lêer terug.
Sintaksis:
Dir [ (pathname, [ attributes ] ) ] Argumente Verduideliking:
| Argument | Vereis/Opsioneel | Verduideliking |
|---|---|---|
| PadNaam | Opsioneel | Pad om toegang te verkry en die lêer te spesifiseer |
| Kenmerke | Opsioneel | Konstante of numeriese uitdrukking spesifiseer die eienskappe van ooreenstemmende lêers |
Daar is 'n paar voor-gedefinieerde eienskappe, hulle is-
| kenmerknaam | Beskrywing |
|---|---|
| vbNormal | Lêers met geen spesifieke eienskappe |
| vbReadOnly | Leesalleen-lêers met geen eienskappe |
| vbHidden | Versteekte lêers met geen eienskappe |
| vbSystem | Stelsellêers met geen eienskappe |
| vbVolume | Volume etiket |
| vbDirectory | Gidse of dopgehou sonder kenmerke |
| vbAlias | Gespesifiseerde lêernaam is 'n alias |
7 Voorbeelde van die gebruik van die VBA DIR-funksie in Excel
Uit die beskrywing sou jy dalk verstaan het dat die VBA DIR funksie die lêernaam vanaf die verskafde padnaam. Kom ons verstaan dit deur voorbeeld. Hier het ons 'n gids Exceldemy_Folder geskep om vir jou verskeie voorbeelde te wys. Daar is verskillende klein vouers en lêers in hierdie vouer.
1. Soek die lêernaam vanaf pad
In ons vouer kan ons 'n spesifieke lêer vind deur verklaar die lêernaampad.
Nadat jy die lêer se pad gekopieer het, moet jy die kode laat loop.
Om hierdie rede, gaan na die Ontwikkelaar oortjie >> kies Visual Basic . Gaan dan na Voeg in -oortjie >> kies Module. In die dialoogkassie Algemeen skryf ons die kode.
Aangesien ons agenda is om die <1 te vind>Lêernaam van die padnaam, sal ons dievolle padnaam (van die wortel tot by die lêer) en ons kode sal
5553
Hier in ons kode wees, het ons die padnaam as E:\Exceldemy\Verkope_van_January gestel. xlsx
Kode-uiteensetting:
- Aanvanklik het ons 'n stringveranderlike genaamd FN
. En die uitvoer van die Dir -funksie is in hierdie veranderlike gestoor. - Volgende vind die Dir -funksie die lêernaam en gee dit terug vanaf die verskafde pad.
- Dan stel die MsgBox die uitvoer deur die boodskapkassie. Die MsgBox stuur afvoer met 'n boodskapkassie terug.
- Laat dan die kode met die F5 sleutel.
Uiteindelik het ons die lêer met die naam Verkope_van_January.xlsx gevind.
2. Kontroleer die bestaan van 'n gids
Ons kan die bestaan van 'n gids nagaan deur die Dir funksie te gebruik. Kom ons skryf die kode om te kyk of die Exceldemy -lêergids bestaan. Skryf die volgende kode in die algemene blokkie neer en hardloop dit met die F5 sleutel.
3388
Kode-uiteensetting :
- Ons het twee veranderlikes verklaar; PN bevat die volle padnaam van ons kontroleergids.
- Hier binne die Dir funksie, het ons twee waardes gestel, padnaam en die kenmerk waarde as vbDirectory . Hierdie kenmerkwaarde sal help om die gids op te spoor. En die uitset van hierdie funksie word gestoor in die Lêer veranderlike.
- Toe het ons gekyk of die veranderlike leeg is of nie. As ons vind dat die veranderlike nie is nie, verklaar dan die bestaan van die gids deur 'n boodskapkassie, anders bestaan die terugkeer nie.
Hier is die Exceldemy -gids bestaan, so ons sal " Exceldemy exists " vind, waar Exceldemy die naam van die gids is.
3. Skep 'n gids wat nie bestaan nie
Jy kan 'n gids skep wat nie op jou rekenaar bestaan nie. Hiervoor moet jy 'n padnaam skep wat nie in jou dopgehou bestaan nie. Kom ons stel ons voor dat ons 'n gids genaamd Exceldemy_1 gaan skep. Ons sal die MkDir -opdrag gebruik om die gids te skep, maar voor dit moet ons die volgende VBA -kode skryf.
4485
Hier het ons 'n opdrag geskryf om die gids te skep deur die padnaam van die Anders -blok van ons kode te gebruik. Laat die kode hardloop met die F5 sleutel.
Die gids is geskep. Kom ons kyk na die gidsmap. Die Exceldemy_1 vouer is nou op jou rekenaar sigbaar.
Soortgelyke lesings:
- Hoe om 'n sub in VBA in Excel te noem (4 voorbeelde)
- Gee 'n waarde in VBA-funksie terug (beide skikking en nie-skikking waardes)
- Gebruik VBA UCASE-funksie in Excel (4 voorbeelde)
- Hoe om TRIM-funksie in te gebruikVBA in Excel (definisie + VBA-kode)
4. Vind die eerste lêer uit 'n gids
Die hooftaak van die Dir -funksie is om die eerste lêer in die verskafde gids te vind. Al wat jy in die funksie moet verskaf, is die padnaam (tot by die houergids), en dit sal die heel eerste lêer uit daardie gids terugstuur.
Kom ons vind die eerste lêer van ons Exceldemy gids. Ons kode sal wees
1951
Jy kan die basiese kode sien; ons het die padnaam in die Dir -funksie deurgegee. Nou Hardloop die kode met die F5 sleutel, jy sal die eerste lêer in hierdie gids vind.
5. Soek alles Lêers uit 'n gids
In die vorige afdeling het ons gesien hoe om die eerste lêernaam uit 'n gids te vind. Die situasie kan ontstaan wanneer jy al die lêers van 'n spesifieke gids moet vind. Om al die lêers in 'n spesifieke gids te vind, moet jy die volgende VBA -kode skryf.
8787
Hier is twee veranderlikes om die lêername te stoor as 'n enkele ( FN ), en as 'n lys ( FL ). Die Doen terwyl -lus herhaal totdat geen lêer in die gids bly nie, deur hierdie lus te gebruik, druk ons elke lêernaam in die FL veranderlike.
Voer die kode uit, en jy sal al die lêers in die gids vind, soos in die prent hieronder.
6. Vind al die lêers en dopgehou van 'n gids
Onshet in die vorige afdeling genoem waar om al die lêers te vind. Ons kan ook al die subgidse in 'n gids vind. Om dit te doen, skryf die volgende VBA -kode wat ons hieronder aangeheg het.
7614
Die verandering in ons kode is net die gebruik van kenmerkparameters. Ons het die vbDirectory in daardie veld gebruik. Laat die kode hardloop, en jy sal al die lêers en subgidse van Exceldemy_Folder vind.
7 Vind al die lêers van 'n spesifieke tipe
Deur die VBA Dir -funksie te gebruik, kan ons enige spesifieke tipe lêer vind. Kom ons verken met 'n voorbeeld.
Ons gaan .csv -lêers uit ons gids vind. Ons kode sal soos die volgende wees-
3896
Ons hoop jy het die kode verstaan, wat 'n soortgelyke meganisme gebruik om lêers te vind. In die padnaam het ons 'n jokerteken ( * ) gebruik. Hierdie asterisk (*) dui aan dat enige karakter tot enige getal kan voorkom. Die jokerteken is op so 'n manier gebruik dat die lêernaam enigiets kan wees, maar 'n .csv -lêer moet wees.
Wanneer jy die kode laat loop, sal dit die terugstuur. csv lêers van ons Exceldemy gids.
Oefenafdeling
Ons het 'n praktyk verskaf afdeling op elke vel aan die regterkant vir jou oefening. Doen dit asseblief self.
Slot
Dit gaan alles oor vandag se sessie. En dit is 'n paar maklike voorbeeldevan die VBA Dir funksie in Excel. Laat weet ons asseblief in die kommentaarafdeling as u enige vrae of voorstelle het. Vir 'n beter begrip, laai asseblief die oefenblad af. Besoek ons webwerf, Exceldemy , 'n eenstopverskaffer van Excel-oplossings, om uit te vind oor verskillende soorte Excel-metodes. Dankie vir jou geduld met die lees van hierdie artikel.
