Daptar eusi
Pungsi DIR dina VBA utamana mintonkeun diréktori atawa payil ti folder nu tangtu. Éta ogé tiasa ngabalikeun file munggaran kalayan fungsi ieu. Pungsi ieu ngagaduhan seueur kagunaan pikeun kéngingkeun file sareng polder khusus. Sadaya anu anjeun peryogikeun ngan ukur ngalebetkeun jalur file dina nami jalur kode VBA . Anjeun panginten langkung hese ngagunakeun kode VBA DIR . Tong hariwang, dina tulisan ieu, kami bakal nunjukkeun anjeun sababaraha conto pikeun visualisasi anu langkung saé pikeun ngagunakeun fungsi VBA DIR . Miharep anjeun bakal tiasa nganggo fungsi saatos maca tulisan. Ku kituna, hayu urang ngamimitian.
Unduh Buku Latihan Praktek
Unduh buku latihan latihan di handap ieu. Ieu bakal ngabantosan anjeun langkung ngartos subjek.
Fungsi DIR.xlsm
Perkenalan kana Fungsi DIR
Ringkesan:
Fungsi VBA DIR ngabalikeun ngaran file atawa diréktori tina jalur polder nu tangtu. Sacara konvensional, éta ngabalikeun file munggaran.
Sintaksis:
Dir [ (pathname, [ attributes ] ) ] Katerangan Argumen:
| Argumen | Diperlukeun/Opsional | Katerangan |
|---|---|---|
| PathName | Opsional | Path pikeun ngakses jeung nangtukeun file |
| Atribut | Opsional | Ekspresi konstanta atawa numerik nangtukeun atribut file anu cocog |
Aya sababaraha pre-atribut anu didefinisikeun, nyaéta-
| Ngaran Atribut | Deskripsi |
|---|---|
| vbNormal | Koropak teu mibanda atribut husus |
| vbReadOnly | Koropak baca wungkul tanpa atribut |
| vbHidden | Disumputkeun file tanpa atribut |
| vbSystem | System file tanpa atribut |
| vbVolume | Label volume |
| vbDirectory | Diréktori atawa polder nu euweuh atribut |
| vbAlias | Ngaran koropak nu ditangtukeun nyaéta landian |
7 Conto Ngagunakeun Fungsi VBA DIR dina Excel
Tina katerangan, anjeun tiasa ngartos yén fungsi VBA DIR nyadiakeun Ngaran koropak tina ngaran jalur disadiakeun. Hayu urang ngartos eta ku conto. Di dieu kami geus nyieun hiji diréktori Exceldemy_Folder pikeun mintonkeun rupa conto. Aya sababaraha polder leutik sareng file dina folder ieu.
1. Pilarian Ngaran koropak tina Path
Dina polder urang, urang tiasa mendakan file khusus ku cara nyatakeun jalur ngaran file.
Sanggeus nyalin jalur file, anjeun kedah ngajalankeun kodeu.
Ku sabab kitu, buka tab Developer >> pilih Visual Basic . Teras angkat ka tab Selapkeun >> pilih Module. Dina kotak dialog General , urang nulis kodeu.
Salaku agenda urang pikeun manggihan Ngaran koropak tina ngaran jalur, urang bakal nyetél étapathname pinuh (tina akar pisan kana file) jeung kode urang bakal
3021
Di dieu dina kode urang, kami geus disetel pathname salaku E:\Exceldemy\Sales_of_January. xlsx
Pecahan Kode:
- Mimitina, urang nyatakeun variabel string anu disebut FN . Sareng kaluaran fungsi Dir disimpen dina variabel ieu.
- Salajengna, fungsi Dir manggih nami file sareng mulangkeunana tina jalur anu disayogikeun.
- Lajeng MsgBox nyetél kaluaran ngaliwatan kotak pesen. MsgBox ngabalikeun kaluaran nganggo kotak pesen.
- Teras, jalankeun kodeu nganggo konci F5 .
Ahirna, kami mendakan file anu namina Sales_of_January.xlsx .
2. Pariksa Ayana Diréktori
Urang bisa mariksa ayana diréktori maké fungsi Dir . Hayu urang nulis kode pikeun pariksa naha folder Exceldemy aya. Tuliskeun kodeu di handap ieu dina kotak umum sareng jalankeun ku F5 konci.
6796
Code Breakdown :
- Kami geus nyatakeun dua variabel; PN ngandung ngaran jalur lengkep pikeun diréktori pamariksaan urang.
- Di dieu dina fungsi Dir , urang geus nyetel dua nilai, ngaran jalur jeung atribut nilai salaku vbDirectory . Nilai atribut ieu bakal ngabantosan ngadeteksi diréktori. Jeung kaluaran fungsi ieu disimpen dina File variabel.
- Tuluy urang mariksa naha variabelna kosong atawa henteu. Upami urang mendakan yén variabel henteu, teras nyatakeun ayana diréktori ngalangkungan kotak pesen, upami henteu, pamulanganna henteu aya.
Di dieu, Exceldemy diréktori aya, ku kituna urang bakal manggihan " Exceldemy exists ", dimana Exceldemy nyaeta nami folder.
3. Jieun Polder Nu Teu Aya
Anjeun bisa nyieun polder nu teu aya dina PC Anjeun. Pikeun ieu, anjeun kedah nyiptakeun nami jalur anu henteu aya dina polder anjeun. Bayangkeun urang badé nyiptakeun diréktori anu disebut Exceldemy_1 . Urang bakal make paréntah MkDir pikeun nyieun diréktori, tapi saméméh éta, urang kudu nuliskeun kode VBA ieu.
3718
Di dieu kami parantos nyerat paréntah pikeun nyiptakeun diréktori nganggo nami jalur tina blok Lain kode kami. Jalankeun kodeu ku F5 konci.
Diréktori geus dijieun. Hayu urang nempo folder diréktori. Polder Exceldemy_1 ayeuna katingali dina komputer anjeun.
Bacaan Sarupa:
- Kumaha Nelepon Sub dina VBA dina Excel (4 Conto)
- Ngabalikeun Nilai dina Fungsi VBA (Boh Array sareng Non-Array)
- Paké Fungsi VBA UCASE dina Excel (4 Conto)
- Kumaha Ngagunakeun Fungsi TRIM dinaVBA dina Excel (Definisi + Kode VBA)
4. Manggihan File Mimiti tina Diréktori
Tugas utama fungsi Dir nyaéta pikeun manggihan file munggaran dina diréktori disadiakeun. Sadaya anu anjeun peryogikeun di jero fungsi nyaéta nami jalur (dugi ka diréktori wadahna), sareng éta bakal ngabalikeun file anu pangheulana tina diréktori éta.
Hayu urang milarian file anu munggaran ti urang Exceldemy diréktori. Kode kami bakal
8243
Anjeun tiasa ningali kode dasar; kami geus lulus pathname kana Dir fungsi. Ayeuna Jalankeun kodeu nganggo konci F5 , anjeun bakal mendakan file anu munggaran dina diréktori ieu.
5. Teangan Sadayana Payil ti Diréktori
Dina bagian saméméhna, urang geus ningali kumaha carana manggihan ngaran koropak nu munggaran ti hiji diréktori. Kaayaan éta tiasa timbul nalika anjeun kedah milarian sadaya file tina diréktori khusus. Pikeun milarian sadaya file dina diréktori khusus, anjeun kedah nyerat kode VBA di handap ieu.
6600
Di dieu aya dua variabel pikeun nyimpen nami file salaku tunggal ( FN ), jeung salaku daptar ( FL ). The Do While loop iterates nepi ka euweuh file tetep dina diréktori, maké loop ieu, urang nyorong unggal ngaran file kana FL variabel.
Jalankeun kode, sarta anjeun bakal manggihan sakabeh file dina diréktori, kawas dina gambar di handap ieu.
6. Pilarian Sadaya File sareng Polder tina Diréktori
Uranggeus disebutkeun dina bagian saméméhna dimana manggihan sakabeh file. Urang ogé tiasa mendakan sadaya sub-polder dina polder. Jang ngalampahkeun ieu, tuliskeun kode VBA di handap ieu anu geus kami lampirkeun di handap.
2758
Parobihan dina kode urang ngan ukur ngagunakeun parameter atribut. Kami parantos nganggo vbDirectory dina widang éta. Jalankeun kodeu, sarta anjeun bakal manggihan kabéh payil jeung subfolder tina Exceldemy_Folder .
7 Pilarian Sadaya File tina Tipe Spésifik
Nganggo fungsi VBA Dir , urang tiasa mendakan jinis file anu mana waé. Hayu urang ngajalajah nganggo conto.
Kami badé milarian file .csv tina diréktori kami. Kode kami bakal sapertos kieu-
7313
Kami ngarepkeun anjeun parantos ngartos kodeu, anu ngagunakeun mékanisme anu sami pikeun milarian file. Dina ngaran jalur, kami nganggo wildcard ( * ). Tanda bintang ieu (*) nunjukkeun yén karakter naon waé dugi ka angka naon waé tiasa kajantenan. Wildcard parantos dianggo supados nami file tiasa nanaon tapi kedah janten file .csv .
Sawaktos anjeun ngajalankeun kodeu, éta bakal ngabalikeun . csv file tina diréktori Exceldemy .
Bagian Praktek
Kami parantos nyayogikeun prakték bagian dina unggal lambar di sisi katuhu pikeun latihan Anjeun. Punten laksanakeun ku nyalira.
Kacindekan
Sakitu wae perkawis sesi dinten ieu. Sareng ieu sababaraha conto anu gampangtina VBA Dir fungsi dina Excel. Punten wartosan kami dina bagian koméntar upami anjeun gaduh patarosan atanapi saran. Pikeun pamahaman anu langkung saé, mangga unduh lambaran prakték. Kunjungan halaman wéb kami, Exceldemy , panyadia solusi Excel hiji-eureun, pikeun milarian ngeunaan rupa-rupa metode Excel. Hatur nuhun kana kasabaran anjeun dina maca tulisan ieu.
