Funkcija DIR u VBA vam uglavnom prikazuje direktorij ili datoteke iz date mape. Također može vratiti prvu datoteku sa ovom funkcijom. Ova funkcija ima mnogo namjena za dobivanje određenih datoteka i mapa. Sve što trebate samo da umetnete putanju datoteke u ime putanje VBA koda. Možda će vam biti teže koristiti VBA DIR kodove. Ne brinite, u ovom članku ćemo vam pokazati nekoliko primjera za bolju vizualizaciju korištenja funkcije VBA DIR . Nadamo se da ćete moći koristiti funkciju nakon čitanja članka. Dakle, hajde da počnemo.

Preuzmite radnu svesku za vježbanje

Preuzmite sljedeću radnu svesku za vježbanje. To će vam pomoći da bolje razumijete temu.

Uvod u DIR funkciju

Sažetak:

Funkcija VBA DIR vraća ime datoteke ili direktorija iz date putanje mape. Uobičajeno, vraća prvi fajl.

Sintaksa:

Argumenti Objašnjenje:

Postoji nekoliko pre-definirani atributi, oni su-

7 primjera korištenja VBA DIR funkcije u Excelu

Iz opisa ste možda shvatili da funkcija VBA DIR pruža naziv datoteke iz datog imena putanje. Hajde da to shvatimo na primjeru. Ovdje smo kreirali direktorij Exceldemy_Folder da vam pokažemo razne primjere. U ovoj fascikli postoje različite male fascikle i datoteke.

1. Pronađite naziv datoteke sa putanje

U našoj fascikli možemo pronaći određenu datoteku po deklarisanje putanje naziva datoteke.

Nakon kopiranja putanje datoteke, morate pokrenuti kod.

Iz tog razloga idite na karticu Razvojnik >> izaberite Visual Basic . Zatim idite na karticu Insert >> odaberite Module. U dijaloškom okviru Općenito pišemo kod.

Pošto je naš dnevni red pronaći Filename iz putanje, mi ćemo postavitipuno ime putanje (od samog korijena do datoteke) i naš kod će biti

2285

Ovdje unutar našeg koda, postavili smo ime putanje kao E:\Exceldemy\Sales_of_January. xlsx

Raščlamba koda:

• U početku smo deklarirali varijablu niza pod nazivom FN . I izlaz funkcije Dir je sačuvan u ovoj varijabli.
• Sljedeće, Dir funkcija pronalazi naziv datoteke i vraća ga sa navedene putanje.
• Tada MsgBox postavlja izlaz kroz okvir za poruke. MsgBox vraća izlaz koristeći okvir za poruke.

• Zatim, pokrenite kod pomoću tipke F5 .

Konačno, pronašli smo datoteku pod nazivom Sales_of_January.xlsx .

2. Provjerite postojanje direktorija

Možemo provjeriti postojanje direktorija koristeći Dir funkciju. Napišimo kod da provjerimo postoji li folder Exceldemy . Zapišite sljedeći kod u opće polje i pokrenite ga s tipkom F5 .

4706

Razbijanje koda :

• Deklarisali 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 će pomoći da se otkrije direktorij. A izlaz ove funkcije je pohranjen u File varijabla.
• Zatim smo provjerili da li je varijabla prazna ili ne. Ako otkrijemo da varijabla nije, onda deklarirajte postojanje direktorija kroz okvir za poruke, u suprotnom, povratak ne postoji.

Ovdje, Exceldemy direktorij postoji, pa ćemo pronaći “ Exceldemy postoji ”, gdje je Exceldemy naziv foldera.

3. Kreirajte fasciklu koja ne postoji

Možete kreirati fasciklu koja ne postoji na vašem računaru. Za ovo morate kreirati ime putanje koje ne postoji u vašim folderima. Zamislimo da ćemo kreirati direktorij pod nazivom Exceldemy_1 . Koristit ćemo naredbu MkDir da kreiramo direktorij, ali prije toga moramo napisati sljedeći VBA kod.

4591

Ovdje smo napisali naredbu za kreiranje direktorija koristeći ime putanje iz Else bloka našeg koda. Pokreni kod sa tipkom F5 .

Direktorijum je kreiran. Pogledajmo folder direktorija. Fascikla Exceldemy_1 sada je vidljiva na vašem računaru.

Slična očitanja:

• Kako pozvati sub u VBA u Excelu (4 primjera)
• Vratiti vrijednost u VBA funkciji (i vrijednosti niza i vrijednosti koje nisu u nizu)
• Koristite VBA UCASE funkciju u Excelu (4 primjera)
• Kako koristiti funkciju TRIM uVBA u Excelu (Definicija + VBA kod)

4. Pronađite prvu datoteku iz direktorija

Glavni zadatak funkcije Dir je da biste pronašli prvu datoteku u datom direktoriju. Sve što trebate dati unutar funkcije je ime putanje (do direktorija kontejnera), i vratit će prvu datoteku iz tog direktorija.

Pronađimo prvu datoteku iz našeg Exceldemy direktorij. Naš kod će biti

9756

Možete vidjeti osnovni kod; prenijeli smo ime putanje u funkciju Dir . Sada Pokrenite kod sa tipkom F5 , naći ćete prvu datoteku u ovom direktoriju.

5. Pronađite sve Fajlovi iz direktorija

U prethodnom odjeljku vidjeli smo kako pronaći prvo ime datoteke iz direktorija. Situacija može nastati kada 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.

4322

Evo dvije varijable za pohranjivanje imena datoteka kao pojedinačni ( FN ) i kao lista ( FL ). Petlja Do While ponavlja sve dok nijedna datoteka ne ostane u direktoriju, koristeći ovu petlju, guramo svako ime datoteke u varijablu FL .

Izvršite kod, i pronaći ćete sve datoteke u direktoriju, kao na slici ispod.

6. Pronađite sve datoteke i mape iz direktorija

Misu spomenuli u prethodnom odjeljku gdje pronaći sve datoteke. Takođe možemo pronaći sve podfoldere u fascikli. Da biste to učinili, napišite sljedeći VBA kod koji smo priložili ispod.

7249

Promjena u našem kodu je samo korištenje parametara atributa. Koristili smo vbDirectory u tom polju. Pokrenite kod i naći ćete sve datoteke i podmape Exceldemy_Folder .

7 Pronađi sve datoteke određenog tipa

Upotrebom funkcije VBA Dir možemo pronaći bilo koju određenu vrstu datoteke. Hajde da istražimo na primjeru.

Pronaći ćemo .csv datoteke iz našeg direktorija. Naš kod će biti sljedeći-

6430

Nadamo se da ste razumjeli kod, koji koristi sličan mehanizam za pronalaženje datoteka. U nazivu putanje koristili 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 ime datoteke može biti bilo koje, ali mora biti .csv datoteka.

Kada pokrenete kod, on će vratiti . csv datoteke iz našeg Exceldemy direktorija.

Odjeljak za vježbe

Omogućili smo praksu odjeljak na svakom listu na desnoj strani za vašu praksu. Učinite to sami.

Zaključak

To je sve o današnjoj sjednici. A ovo su neki laki primjerifunkcije VBA Dir u Excelu. Obavijestite nas u odjeljku za komentare ako imate bilo kakvih pitanja ili prijedloga. Za bolje razumijevanje, preuzmite vježbeni list. Posjetite našu web stranicu, Exceldemy , dobavljač Excel rješenja na jednom mjestu, da saznate o različitim vrstama Excel metoda. Hvala vam na strpljenju u čitanju ovog članka.