Enhavtabelo
La funkcio DIR en VBA ĉefe montras al vi la dosierujon aŭ la dosierojn el difinita dosierujo. Ĝi ankaŭ povas resendi la unuan dosieron kun ĉi tiu funkcio. Ĉi tiu funkcio havas multajn uzojn por akiri specifajn dosierojn kaj dosierujojn. Ĉio, kion vi bezonas, nur enmeti la dosiervojon en la vojon de la kodo VBA . Vi eble trovos pli malfacile uzi la VBA DIR -kodojn. Ne maltrankviliĝu, en ĉi tiu artikolo, ni montros al vi kelkajn ekzemplojn por pli bona bildigo por uzi la funkcion VBA DIR . Mi esperas, ke vi povos uzi la funkcion post legado de la artikolo. Do, ni komencu.
Elŝutu Praktikan Laborlibron
Elŝutu la sekvan ekzerclibron. Ĝi helpos vin pli bone kompreni la temon.
DIR Function.xlsm
Enkonduko al la DIR-funkcio
Resumo:
La VBA DIR funkcio liveras la nomon de dosiero aŭ dosierujo de donita dosierujo vojo. Konvencie ĝi resendas la unuan dosieron.
Sintakso:
Dir [ (pathname, [ attributes ] ) ] Argumentoj Klarigo:
| Argumento | Bezonata/Laŭvola | Klarigo |
|---|---|---|
| PathName | Laŭvola | Path por aliri kaj specifi la dosieron |
| Atributoj | Laŭvola | Konstanta aŭ nombra esprimo specifas la atributojn de kongruaj dosieroj |
Estas kelkaj antaŭ-difinitaj atributoj, ili estas-
| Atributa Nomo | Priskribo |
|---|---|
| vbNormal | Dosieroj sen specifaj atributoj |
| vbReadOnly | Nurlegeblaj dosieroj sen atributoj |
| vbHidden | Kaŝita dosieroj sen atributoj |
| vbSystem | Sistemaj dosieroj sen atributoj |
| vbVolume | Volumetikedo |
| vbDirectory | Dosierujoj aŭ dosierujoj sen atributoj |
| vbAlias | Specigita dosiernomo estas kaŝnomo |
7 Ekzemploj de Uzado de la VBA DIR-Funkcio en Excel
El la priskribo, vi eble komprenis, ke la VBA DIR funkcio provizas la dosiernomo de la provizita padnomo. Ni komprenu ĝin per ekzemplo. Ĉi tie ni kreis dosierujon Exceldemy_Folder por montri al vi diversajn ekzemplojn. Estas malsamaj malgrandaj dosierujoj kaj dosieroj en ĉi tiu dosierujo.
1. Trovu la Dosiernomon el Pado
En nia dosierujo, ni povas trovi specifan dosieron per deklarante la dosiernoman vojon.
Post kopii la vojon de la dosiero, vi devas ruli la kodon.
Tial, iru al la langeto Programisto >> elektu Visual Basic . Poste iru al Enmeti langeto >> elektu Modulo. En la dialogujo Ĝenerala , ni skribas la kodon.
Ĉar nia tagordo estas trovi la Dosiernomo de la vojo nomo, ni starigos laplena vojnomo (de la radiko mem ĝis la dosiero) kaj nia kodo estos
5496
Ĉi tie ene de nia kodo, ni agordis la vojnomon kiel E:\Exceldemy\Sales_of_January. xlsx
Koda disfaldo:
- Komence, ni deklaris ĉenvariablon nomatan FN . Kaj la eligo de la funkcio Dir estis konservita en ĉi tiu variablo.
- Sekva, la funkcio Dir trovas la dosiernomon kaj resendas ĝin de la provizita vojo.
- Tiam la MsgBox fiksas la eligon tra la mesaĝkesto. La MsgBox resendas eligon per mesaĝkesto.
- Tiam rulu la kodon per la F5 klavo.
Fine, ni trovis la dosieron nomitan Vendoj_de_januaro.xlsx .
2. Kontrolu la Ekziston de Dosierujo
Ni povas kontroli la ekziston de dosierujo uzante la funkcion Dir . Ni skribu la kodon por kontroli ĉu la dosierujo Exceldemy ekzistas. Skribu la sekvan kodon en la ĝenerala skatolo kaj rulu ĝin per la klavo F5 .
8326
Koda disfaldo :
- Ni deklaris du variablojn; PN enhavas la plenan vojon de nia kontrola dosierujo.
- Ĉi tie ene de la Dir funkcio, ni starigis du valorojn, vojon kaj la atributon valoro kiel vbDirectory . Ĉi tiu atributa valoro helpos detekti la dosierujon. Kaj la eligo de ĉi tiu funkcio estas konservita en la Dosiero variablo.
- Tiam ni kontrolis ĉu la variablo estas malplena aŭ ne. Se ni trovas ke la variablo ne estas, tiam deklaru la ekziston de la dosierujo per mesaĝkesto, alie, la reveno ne ekzistas.
Ĉi tie, la Exceldemy dosierujo ekzistas, do ni trovos " Exceldemy ekzistas ", kie Exceldemy estas la nomo de la dosierujo.
3. Krei dosierujon, kiu ne ekzistas
Vi povas krei dosierujon, kiu ne ekzistas en via komputilo. Por tio, vi devas krei vojon, kiu ne ekzistas en viaj dosierujoj. Ni imagu, ke ni kreos dosierujon nomatan Exceldemy_1 . Ni uzos la komandon MkDir por krei la dosierujon, sed antaŭ tio, ni devas skribi la sekvan VBA kodon.
1484
Ĉi tie ni skribis komandon por krei la dosierujon uzante la vojeton el la bloko Ele de nia kodo. Rulu la kodon per la F5 klavo.
La dosierujo estas kreita. Ni rigardu la dosierujon. La dosierujo Exceldemy_1 nun videblas en via komputilo.
Similaj Legoj:
- Kiel Voki Suban en VBA en Excel (4 Ekzemploj)
- Redoni Valoron en VBA-Funkcio (Kaj Tabeloj kaj Ne-Tabelaj Valoroj)
- Uzu VBA UCASE-Funkcion en Excel (4 Ekzemploj)
- Kiel Uzi TRIM-Funkcion enVBA en Excel (Difino + VBA Kodo)
4. Trovu la Unuan Dosieron el Dosierujo
La ĉefa tasko de la Dir funkcio estas por trovi la unuan dosieron en la provizita dosierujo. Ĉio, kion vi bezonas provizi ene de la funkcio, estas la vojo nomo (ĝis la ujo dosierujo), kaj ĝi resendos la plej unuan dosieron el tiu dosierujo.
Ni trovu la unuan dosieron el nia Exceldemy dosierujo. Nia kodo estos
4921
Vi povas vidi la bazan kodon; ni pasigis la vojeton en la funkcion Dir . Nun Rulu la kodon per la klavo F5 , vi trovos la unuan dosieron en ĉi tiu dosierujo.
5. Trovu ĉiujn Dosieroj de Dosierujo
En la antaŭa sekcio, ni vidis kiel trovi la unuan dosiernomon el dosierujo. La situacio povas aperi kiam vi bezonas trovi ĉiujn dosierojn el specifa dosierujo. Por trovi ĉiujn dosierojn en specifa dosierujo, vi devas skribi la jenan VBA kodon.
7150
Jen du variabloj por konservi la dosiernomojn kiel unuopa ( FN ), kaj kiel listo ( FL ). La buklo Do While ripetas ĝis neniu dosiero restas en la dosierujo, uzante ĉi tiun buklo, ni puŝas ĉiun dosiernomon en la FL variablon.
Efektivigu la kodon, kaj vi trovos ĉiujn dosierojn en la dosierujo, kiel en la suba bildo.
6. Trovu ĉiujn dosierojn kaj dosierujojn el dosierujo
Nimenciis en la antaŭa sekcio kie trovi ĉiujn dosierojn. Ni ankaŭ povas trovi ĉiujn subdosierujojn en dosierujo. Por fari tion, skribu la sekvan VBA -kodon, kiun ni alfiksis ĉi-sube.
5982
La ŝanĝo en nia kodo estas nur la uzo de atributaj parametroj. Ni uzis la vbDirectory en tiu kampo. Rulu la kodon, kaj vi trovos ĉiujn dosierojn kaj subdosierujojn de Exceldemy_Folder .
7 Trovu ĉiujn dosierojn de specifa tipo
Uzante la funkcion VBA Dir , ni povas trovi ajnan apartan tipon de dosiero. Ni esploru per ekzemplo.
Ni trovos .csv dosierojn el nia dosierujo. Nia kodo estos kiel la jena-
3957
Ni esperas, ke vi komprenis la kodon, kiu uzas similan mekanismon por trovi dosierojn. En la vojnomo, ni uzis ĵokeron ( * ). Ĉi tiu steleto (*) indikas ke ajna signo ĝis iu nombro povas aperi. La ĵokero estis uzata tiel, ke la dosiernomo povas esti io ajn sed devas esti .csv dosiero.
Kiam vi rulas la kodon, ĝi redonos la . csv dosierojn el nia Exceldemy dosierujo.
Praktika sekcio
Ni disponigis praktikon sekcio sur ĉiu folio sur la dekstra flanko por via praktiko. Bonvolu fari ĝin memstare.
Konkludo
Tio temas pri la hodiaŭa kunsido. Kaj ĉi tiuj estas kelkaj facilaj ekzemplojde la VBA Dir funkcio en Excel. Bonvolu sciigi nin en la sekcio de komentoj se vi havas demandojn aŭ sugestojn. Por pli bona kompreno, bonvolu elŝuti la praktikan folion. Vizitu nian retejon, Exceldemy , unu-halta Excel-solvprovizanto, por ekscii pri diversaj specoj de Excel-metodoj. Dankon pro via pacienco legi ĉi tiun artikolon.
