Tabela e përmbajtjes
Funksioni DIR në VBA ju tregon kryesisht drejtorinë ose skedarët nga një dosje e caktuar. Ai gjithashtu mund të kthejë skedarin e parë me këtë funksion. Ky funksion ka shumë përdorime për të marrë skedarë dhe dosje specifike. Gjithçka që ju nevojitet për të futur shtegun e skedarit në emrin e shtegut të kodit VBA . Mund ta keni më të vështirë të përdorni kodet VBA DIR . Mos u shqetësoni, në këtë artikull, ne do t'ju tregojmë disa shembuj për një vizualizim më të mirë për të përdorur funksionin VBA DIR . Shpresoj se do të jeni në gjendje ta përdorni funksionin pasi të keni lexuar artikullin. Pra, le të fillojmë.
Shkarkoni Librin e punës praktike
Shkarko librin e mëposhtëm të punës praktike. Do t'ju ndihmojë ta kuptoni më mirë temën.
DIR Function.xlsm
Hyrje në funksionin DIR
Përmbledhje:
Funksioni VBA DIR kthen emrin e një skedari ose drejtorie nga një shteg i caktuar dosjeje. Në mënyrë konvencionale, ai kthen skedarin e parë.
Sintaksa:
Dir [ (pathname, [ attributes ] ) ] Argumentet Shpjegim:
| Argument | Kërkohet/Opsionale | Shpjegim |
|---|---|---|
| Emri i rrugës | Opsionale | Shtegu për të hyrë dhe specifikuar skedarin |
| Atributet | Opsionale | Shprehja konstante ose numerike specifikon atributet e skedarëve që përputhen |
Ka disa para-atributet e përcaktuara, ato janë-
| Emri i atributit | Përshkrimi |
|---|---|
| vbNormal | Skedarët pa atribute specifike |
| vbReadOnly | Skedarë vetëm për lexim pa atribute |
| vbHidden | Fshehur skedarë pa atribute |
| vbSystem | Skedarët e sistemit pa atribute |
| vbVolume | Etiketa e volumit |
| vbDirectory | Direktoritë ose dosjet pa atribute |
| vbAlias | Emri i skedarit të specifikuar është një pseudonim |
7 Shembuj të përdorimit të funksionit VBA DIR në Excel
Nga përshkrimi, mund të keni kuptuar se funksioni VBA DIR ofron emri i skedarit nga emri i rrugës së dhënë. Le ta kuptojmë me shembull. Këtu kemi krijuar një direktori Exceldemy_Folder për t'ju treguar shembuj të ndryshëm. Ka dosje dhe skedarë të ndryshëm të vegjël në këtë dosje.
1. Gjeni emrin e skedarit nga rruga
Në dosjen tonë, ne mund të gjejmë një skedar specifik nga duke deklaruar shtegun e emrit të skedarit.
Pas kopjimit të shtegut të skedarit, duhet të ekzekutoni kodin.
Për këtë arsye, shkoni te skeda Zhvilluesi >> zgjidhni Visual Basic . Më pas shkoni te skeda Fut >> zgjidhni Modul. Në kutinë e dialogut Të përgjithshme , ne shkruajmë kodin.
Meqë axhenda jonë është të gjejmë Emri i skedarit nga emri i rrugës, ne do të vendosimemri i plotë i rrugës (nga rrënja deri te skedari) dhe kodi ynë do të jetë
6281
Këtu brenda kodit tonë, ne kemi vendosur emrin e rrugës si E:\Exceldemy\Sales_of_January. xlsx
Zbërthimi i kodit:
- Fillimisht, ne deklaruam një variabël vargu të quajtur FN . Dhe dalja e funksionit Dir u ruajt në këtë variabël.
- Më pas, funksioni Dir gjen emrin e skedarit dhe e kthen atë nga shtegu i dhënë.
- Më pas MsgBox vendos daljen përmes kutisë së mesazheve. MsgBox kthehet dalje duke përdorur një kuti mesazhi.
- Më pas, ekzekutoni kodin me tastin F5 .
Më në fund, ne kemi gjetur skedarin me emrin Sales_of_January.xlsx .
2. Kontrolloni ekzistencën e një drejtorie
Ne mund të kontrollojmë ekzistencën e një drejtorie duke përdorur funksionin Dir . Le të shkruajmë kodin për të kontrolluar nëse dosja Exceldemy ekziston. Shkruani kodin e mëposhtëm në kutinë e përgjithshme dhe ekzekutoni atë me tastin F5 .
9803
Zbërthimi i kodit :
- Kemi deklaruar dy variabla; PN përmban emrin e plotë të shtegut të drejtorisë sonë të kontrollit.
- Këtu brenda funksionit Dir , ne kemi vendosur dy vlera, emrin e rrugës dhe atributin vlera si vbDirectory . Kjo vlerë e atributit do të ndihmojë në zbulimin e drejtorisë. Dhe dalja e këtij funksioni ruhet në Skedari variabli.
- Më pas kontrolluam nëse ndryshorja është bosh apo jo. Nëse zbulojmë se ndryshorja nuk është, atëherë deklaroni ekzistencën e drejtorisë përmes një kutie mesazhi, përndryshe, kthimi nuk ekziston.
Këtu, Exceldemy<21 Lista> ekziston, kështu që do të gjejmë " Exceldemy ekziston ", ku Exceldemy është emri i dosjes.
3. Krijo një dosje që nuk ekziston
Mund të krijoni një dosje që nuk ekziston në kompjuterin tuaj. Për këtë, ju duhet të krijoni një emër shteg që nuk ekziston në dosjet tuaja. Le të imagjinojmë se do të krijojmë një direktori të quajtur Exceldemy_1 . Ne do të përdorim komandën MkDir për të krijuar drejtorinë, por para kësaj, duhet të shkruajmë kodin e mëposhtëm VBA .
6122
Këtu kemi shkruar një komandë për të krijuar drejtorinë duke përdorur emrin e rrugës nga blloku Else i kodit tonë. Ekzekutoni kodin me tastin F5 .
Direktoria është krijuar. Le të shohim dosjen e drejtorisë. Dosja Exceldemy_1 tani është e dukshme në kompjuterin tuaj.
Lexime të ngjashme:
- Si të telefononi një nën në VBA në Excel (4 shembuj)
- Kthejeni një vlerë në funksionin VBA (Vlerat e vargjeve dhe ato jo të vargjeve)
- Përdorni funksionin VBA UCASE në Excel (4 shembuj)
- Si të përdorni funksionin TRIM nëVBA në Excel (Përkufizim + Kodi VBA)
4. Gjeni skedarin e parë nga një drejtori
Detyra kryesore e funksionit Dir është për të gjetur skedarin e parë në direktorinë e dhënë. Gjithçka që duhet të jepni brenda funksionit është emri i rrugës (deri në direktorinë e kontejnerit), dhe ai do të kthejë skedarin e parë nga ajo direktori.
Le të gjejmë skedarin e parë nga Drejtoria Exceldemy. Kodi ynë do të jetë
9299
Ju mund të shihni kodin bazë; ne kemi kaluar emrin e rrugës në funksionin Dir . Tani ekzekutoni kodin me tastin F5 , do të gjeni skedarin e parë në këtë direktori.
5. Gjej të gjitha Skedarët nga një drejtori
Në seksionin e mëparshëm, ne kemi parë se si të gjejmë emrin e skedarit të parë nga një direktori. Situata mund të lindë kur ju duhet të gjeni të gjithë skedarët nga një drejtori specifike. Për të gjetur të gjithë skedarët në një direktori specifike, duhet të shkruani kodin e mëposhtëm VBA .
4595
Këtu janë dy variabla për të ruajtur emrat e skedarëve si një single ( FN ), dhe si një listë ( FL ). Cikli Do Ndërsa përsëritet derisa asnjë skedar të mos mbetet në drejtori, duke përdorur këtë lak, ne shtyjmë çdo emër skedari në variablin FL .
Ekzekutoni kodin, dhe do t'i gjeni të gjithë skedarët në drejtori, si në imazhin më poshtë.
6. Gjeni të gjithë skedarët dhe dosjet nga një drejtori
Nekanë përmendur në pjesën e mëparshme se ku mund të gjeni të gjithë skedarët. Ne gjithashtu mund të gjejmë të gjithë nën-dosjet në një dosje. Për ta bërë këtë, shkruani kodin e mëposhtëm VBA që kemi bashkangjitur më poshtë.
1718
Ndryshimi në kodin tonë është vetëm përdorimi i parametrave të atributeve. Ne kemi përdorur vbDirectory në atë fushë. Ekzekutoni kodin dhe do të gjeni të gjithë skedarët dhe nëndosjet e Exceldemy_Folder .
7 Gjeni të gjithë skedarët e një lloji specifik
Duke përdorur funksionin VBA Dir , mund të gjejmë çdo lloj skedari të veçantë. Le të eksplorojmë me një shembull.
Ne do të gjejmë skedarë .csv nga drejtoria jonë. Kodi ynë do të jetë si më poshtë-
2991
Shpresojmë se e keni kuptuar kodin, i cili përdor një mekanizëm të ngjashëm për gjetjen e skedarëve. Në emrin e rrugës, ne kemi përdorur një shkronjë të egër ( * ). Ky yll (*) tregon se çdo karakter deri në çdo numër mund të shfaqet. Shenja e egër është përdorur në atë mënyrë që emri i skedarit mund të jetë çdo gjë, por duhet të jetë një skedar .csv .
Kur të ekzekutoni kodin, ai do të kthejë . skedarë csv nga drejtoria jonë Exceldemy .
Seksioni i praktikës
Ne kemi ofruar një praktikë seksion në secilën fletë në anën e djathtë për praktikën tuaj. Ju lutemi bëjeni vetë.
Përfundim
Kjo ka të bëjë me seancën e sotme. Dhe këta janë disa shembuj të thjeshtëi funksionit VBA Dir në Excel. Ju lutemi na tregoni në seksionin e komenteve nëse keni ndonjë pyetje ose sugjerim. Për një kuptim më të mirë, ju lutemi shkarkoni fletën e praktikës. Vizitoni faqen tonë të internetit, Exceldemy , një ofrues zgjidhjesh me një ndalesë të Excel, për të mësuar rreth llojeve të ndryshme të metodave të Excel. Faleminderit për durimin tuaj në leximin e këtij artikulli.
