Sadržaj
Funkcija DIR u VBA vam uglavnom prikazuje direktorij ili datoteke iz određene mape. Također može vratiti prvu datoteku s ovom funkcijom. Ova se funkcija može mnogo koristiti za dobivanje određenih datoteka i mapa. Sve što trebate samo umetnuti put datoteke u naziv putanje VBA koda. Možda će vam biti teže koristiti VBA DIR kodove. Ne brinite, u ovom ćemo vam članku pokazati neke primjere za bolju vizualizaciju korištenja funkcije VBA DIR . Nadamo se da ćete moći koristiti ovu funkciju nakon čitanja članka. Dakle, počnimo.
Preuzmite radnu bilježnicu za vježbe
Preuzmite sljedeću radnu bilježnicu za vježbe. Pomoći će vam da bolje razumijete temu.
DIR Function.xlsm
Uvod u DIR funkciju
Sažetak:
Funkcija VBA DIR vraća naziv datoteke ili direktorija iz zadane putanje mape. Uobičajeno, vraća prvu datoteku.
Sintaksa:
Dir [ (pathname, [ attributes ] ) ] Objašnjenje argumenata:
| Argument | Obavezno/opcionalno | Objašnjenje |
|---|---|---|
| PathName | Izborno | Path za pristup i određivanje datoteke |
| Atributi | Izborno | Konstanta ili numerički izraz određuje atribute odgovarajućih datoteka |
Postoji nekoliko pre-definirani atributi, oni su-
| Naziv atributa | Opis |
|---|---|
| vbNormal | Datoteke bez specifičnih atributa |
| vbReadOnly | Datoteke samo za čitanje bez atributa |
| vbHidden | Hidden datoteke bez atributa |
| vbSystem | Sustavne datoteke bez atributa |
| vbVolume | Oznaka volumena |
| vbDirectory | Direktoriji ili mape bez atributa |
| vbAlias | Navedeni naziv datoteke je alias |
7 Primjera korištenja VBA DIR funkcije u Excelu
Iz opisa ste mogli shvatiti da VBA DIR funkcija pruža naziv datoteke iz navedenog naziva putanje. Shvatimo to na primjeru. Ovdje smo stvorili direktorij Exceldemy_Folder da vam pokažemo razne primjere. Postoje različite male mape i datoteke u ovoj mapi.
1. Pronađite naziv datoteke iz putanje
U našoj mapi možemo pronaći određenu datoteku deklariranje putanje naziva datoteke.
Nakon kopiranja putanje datoteke, trebate pokrenuti kod.
Iz tog razloga idite na karticu Razvojni programer >> odaberite Visual Basic . Zatim idite na karticu Insert >> odaberite Modul. U dijaloškom okviru Općenito pišemo kod.
Budući da je naš cilj pronaći Naziv datoteke iz naziva putanje, postavit ćemopun naziv putanje (od samog korijena do datoteke) i naš kod će biti
9832
Ovdje unutar našeg koda, postavili smo put kao E:\Exceldemy\Sales_of_January. xlsx
Raščlamba koda:
- U početku smo deklarirali string varijablu pod nazivom FN . A izlaz funkcije Dir spremljen je u ovu varijablu.
- Dalje, funkcija Dir pronalazi naziv datoteke i vraća ga s navedene staze.
- Tada MsgBox postavlja izlaz kroz okvir s porukom. MsgBox vraća izlaz pomoću okvira za poruke.
- Zatim pokrenite kod tipkom F5 .
Konačno smo pronašli datoteku pod nazivom Sales_of_January.xlsx .
2. Provjerite postojanje imenika
Možemo provjeriti postojanje direktorija pomoću funkcije Dir . Napišimo kod za provjeru postoji li mapa Exceldemy . Zapišite sljedeći kod u opći okvir i pokrenite ga tipkom F5 .
4614
Razlaganje koda :
- Deklarirali smo dvije varijable; PN sadrži punu putanju našeg direktorija za provjeru.
- Ovdje unutar funkcije Dir postavili smo dvije vrijednosti, ime putanje i atribut vrijednost kao vbDirectory . Ova vrijednost atributa pomoći će u otkrivanju imenika. A izlaz ove funkcije pohranjuje se u Datoteka varijabla.
- Zatim smo provjerili je li varijabla prazna ili ne. Ako ustanovimo da varijabla nije, tada deklarirajte postojanje imenika kroz okvir s porukom, inače povrat ne postoji.
Ovdje, Exceldemy direktorij postoji, pa ćemo pronaći “ Exceldemy postoji ”, gdje je Exceldemy naziv mape.
3. Napravite mapu koja ne postoji
Možete stvoriti mapu koja ne postoji na vašem računalu. Za ovo morate stvoriti naziv puta koji ne postoji u vašim mapama. Zamislimo da ćemo stvoriti direktorij pod nazivom Exceldemy_1 . Koristit ćemo naredbu MkDir za kreiranje imenika, ali prije toga moramo napisati sljedeći VBA kod.
6110
Ovdje smo napisali naredbu za stvaranje direktorija korištenjem putanje iz bloka Else našeg koda. Pokrenite kod tipkom F5 .
Imenik je stvoren. Pogledajmo mapu imenika. Mapa Exceldemy_1 sada je vidljiva na vašem računalu.
Slična čitanja:
- Kako pozvati Sub u VBA u Excelu (4 primjera)
- Vraćanje vrijednosti u VBA funkciji (vrijednosti niza i vrijednosti koje nisu nizovi)
- Koristite VBA UCASE funkciju u Excelu (4 primjera)
- Kako koristiti TRIM funkciju uVBA u Excelu (Definicija + VBA kod)
4. Pronađite prvu datoteku iz direktorija
Primarni zadatak funkcije Dir je pronaći prvu datoteku u navedenom direktoriju. Sve što trebate unijeti unutar funkcije je ime putanje (do direktorija spremnika), a ona će vratiti prvu datoteku iz tog direktorija.
Pronađimo prvu datoteku iz našeg Exceldemy imenik. Naš kod će biti
4085
Možete vidjeti osnovni kod; proslijedili smo ime staze u Dir funkciju. Sada Pokrenite kod pomoću tipke F5 , pronaći ćete prvu datoteku u ovom direktoriju.
5. Pronađi sve Datoteke iz direktorija
U prethodnom odjeljku, vidjeli smo kako pronaći prvi naziv datoteke iz direktorija. Može se dogoditi da trebate pronaći sve datoteke iz određenog direktorija. Da biste pronašli sve datoteke u određenom direktoriju, morate napisati sljedeći VBA kod.
4469
Ovdje su dvije varijable za pohranjivanje naziva datoteka kao jedan ( FN ) i kao popis ( FL ). Petlja Do While ponavlja sve dok nijedna datoteka ne ostane u direktoriju, koristeći ovu petlju, svaki naziv datoteke guramo u varijablu FL .
Izvršite kod, i pronaći ćete sve datoteke u imeniku, kao na slici ispod.
6. Pronađite sve datoteke i mape iz imenika
Miu prethodnom odjeljku spomenuli gdje pronaći sve datoteke. Također možemo pronaći sve podmape u mapi. Da biste to učinili, napišite sljedeći VBA kod koji smo priložili u nastavku.
6681
Promjena u našem kodu je samo korištenje parametara atributa. Koristili smo vbDirectory u tom polju. Pokrenite kôd i pronaći ćete sve datoteke i podmape Exceldemy_Folder .
7 . Pronađite sve datoteke određene vrste
Upotrebom funkcije VBA Dir možemo pronaći bilo koju određenu vrstu datoteke. Istražimo na primjeru.
Pronaći ćemo .csv datoteke iz našeg direktorija. Naš kod će izgledati kao sljedeći-
5304
Nadamo se da ste razumjeli kod, koji koristi sličan mehanizam za pronalaženje datoteka. U nazivu puta upotrijebili smo zamjenski znak ( * ). Ova zvjezdica (*) označava da se može pojaviti bilo koji znak do bilo kojeg broja. Zamjenski znak je korišten na takav način da naziv datoteke može biti bilo koji, ali mora biti datoteka .csv .
Kada pokrenete kod, on će vratiti . csv datoteke iz našeg Exceldemy direktorija.
Odjeljak za praksu
Omogućili smo praksu odjeljak na svakom listu s desne strane za vašu praksu. Učinite to sami.
Zaključak
To je sve o današnjoj sesiji. A ovo su neki jednostavni primjeri VBA Dir funkcije u Excelu. Javite nam u odjeljku za komentare ako imate pitanja ili prijedloga. Za bolje razumijevanje preuzmite vježbeni list. Posjetite našu web stranicu, Exceldemy , pružatelja rješenja za Excel na jednom mjestu, kako biste saznali više o različitim vrstama Excel metoda. Hvala vam na strpljenju u čitanju ovog članka.
