Змест
Функцыя DIR у VBA галоўным чынам паказвае вам каталог або файлы з дадзенай папкі. Ён таксама можа вярнуць першы файл з гэтай функцыяй. Гэтая функцыя шмат у чым выкарыстоўваецца для атрымання пэўных файлаў і тэчак. Усё, што вам трэба, проста ўставіць шлях да файла ў імя шляху кода VBA . Вам можа быць цяжэй выкарыстоўваць коды VBA DIR . Не хвалюйцеся, у гэтым артыкуле мы збіраемся паказаць вам некалькі прыкладаў для лепшай візуалізацыі выкарыстання функцыі VBA DIR . Спадзяюся, вы зможаце выкарыстоўваць гэтую функцыю пасля прачытання артыкула. Такім чынам, давайце пачнем.
Спампаваць Практычны сшытак
Спампуйце наступны практычны сшытак. Гэта дапаможа вам лепш зразумець прадмет.
DIR Function.xlsm
Уводзіны ў функцыю DIR
Зводка:
Функцыя VBA DIR вяртае назву файла або каталога з зададзенага шляху да папкі. Традыцыйна ён вяртае першы файл.
Сінтаксіс:
Dir [ (pathname, [ attributes ] ) ] Тлумачэнне аргументаў:
| Аргумент | Абавязковы/неабавязковы | Тлумачэнне |
|---|---|---|
| Імя шляху | Дадаткова | Шлях для доступу і ўказвае файл |
| Атрыбуты | Дадаткова | Канстанта або лікавы выраз задае атрыбуты адпаведных файлаў |
Ёсць некалькі папярэдніхвызначаныя атрыбуты, гэта -
| Назва атрыбута | Апісанне |
|---|---|
| vbNormal | Файлы без пэўных атрыбутаў |
| vbReadOnly | Файлы толькі для чытання без атрыбутаў |
| vbHidden | Схаваны файлы без атрыбутаў |
| vbSystem | Сістэмныя файлы без атрыбутаў |
| vbVolume | Метка тома |
| vbDirectory | Каталогі або папкі без атрыбутаў |
| vbAlias | Вызначанае імя файла з'яўляецца псеўданімам |
7 прыкладаў выкарыстання функцыі VBA DIR у Excel
З апісання вы маглі зразумець, што функцыя VBA DIR забяспечвае імя файла з указанага шляху. Давайце разбярэмся ў гэтым на прыкладзе. Тут мы стварылі каталог Exceldemy_Folder , каб паказаць вам розныя прыклады. У гэтай тэчцы ёсць розныя невялікія папкі і файлы.
1. Знайдзіце імя файла па шляху
У нашай папцы мы можам знайсці пэўны файл па абвяшчаючы шлях да імя файла.
Пасля капіравання шляху да файла вам трэба запусціць код.
Па гэтай прычыне перайдзіце на ўкладку Распрацоўшчык >> абярыце Visual Basic . Затым перайдзіце на ўкладку Уставіць >> выберыце Модуль. У дыялогавым акне Агульныя мы пішам код.
Паколькі наша мэта - знайсці Імя файла з шляху, мы ўсталюемпоўны шлях (ад самага кораня да файла), і наш код будзе
3893
Тут, у нашым кодзе, мы ўсталявалі шлях як E:\Exceldemy\Sales_of_January. xlsx
Разбіўка кода:
- Першапачаткова мы аб'явілі радковую зменную пад назвай FN . Вывад функцыі Dir быў захаваны ў гэтай зменнай.
- Далей функцыя Dir знаходзіць імя файла і вяртае яго з указанага шляху.
- Тады MsgBox усталёўвае вывад праз поле паведамлення. MsgBox вяртае вывад з дапамогай акна паведамлення.
- Затым запусціце код з дапамогай клавішы F5 .
Нарэшце мы знайшлі файл з назвай Sales_of_January.xlsx .
2. Праверце існаванне каталога
Мы можам праверыць існаванне каталога з дапамогай функцыі Dir . Давайце напішам код, каб праверыць, ці існуе тэчка Exceldemy . Запішыце наступны код у агульным полі і запусціце яго з дапамогай клавішы F5 .
5334
Разбіўка кода :
- Мы аб'явілі дзве зменныя; PN змяшчае поўнае імя шляху да нашага каталога праверкі.
- Тут у функцыі Dir мы задалі два значэнні, імя шляху і атрыбут значэнне як vbDirectory . Гэта значэнне атрыбута дапаможа вызначыць каталог. І выхад гэтай функцыі захоўваецца ў Файл пераменная.
- Потым мы праверылі, пустая зменная ці не. Калі мы выяўляем, што зменная не з'яўляецца, то аб'яўляем пра існаванне каталога праз акно паведамлення, інакш вяртанне не існуе.
Тут Exceldemy<21 Каталог> існуе, таму мы знойдзем « Exceldemy існуе », дзе Exceldemy — назва папкі.
3. Стварыце папку, якая не існуе
Вы можаце стварыць папку, якая не існуе на вашым ПК. Для гэтага вы павінны стварыць шлях, якога няма ў вашых папках. Давайце ўявім, што мы збіраемся стварыць каталог пад назвай Exceldemy_1 . Мы будзем выкарыстоўваць каманду MkDir для стварэння каталога, але перад гэтым нам трэба напісаць наступны код VBA .
9319
Тут мы напісалі каманду для стварэння каталога з выкарыстаннем шляху з блока Else нашага кода. Запусціце код з дапамогай клавішы F5 .
Каталог быў створаны. Давайце паглядзім на тэчку каталога. Тэчка Exceldemy_1 цяпер бачная на вашым кампутары.
Падобныя паказанні:
- Як выклікаць суб'ект у VBA ў Excel (4 прыклады)
- Вярнуць значэнне ў функцыі VBA (як масіў, так і значэнні, якія не ўваходзяць у масіў)
- Выкарыстанне функцыі VBA UCASE ў Excel (4 прыклады)
- Як выкарыстоўваць функцыю TRIM уVBA ў Excel (Вызначэнне + код VBA)
4. Знайсці першы файл у каталогу
Асноўная задача функцыі Dir гэта каб знайсці першы файл у прадстаўленым каталогу. Усё, што вам трэба падаць унутры функцыі, гэта імя шляху (да каталога кантэйнера), і ён верне самы першы файл з гэтага каталога.
Давайце знойдзем першы файл з нашага Exceldemy каталог. Наш код будзе
7366
Вы можаце ўбачыць асноўны код; мы перадалі імя шляху ў функцыю Dir . Цяпер Запусціце код з дапамогай клавішы F5 , вы знойдзеце першы файл у гэтым каталогу.
5. Знайсці ўсё Файлы з каталога
У папярэднім раздзеле мы бачылі, як знайсці першае імя файла з каталога. Можа ўзнікнуць сітуацыя, калі вам спатрэбіцца знайсці ўсе файлы з пэўнай дырэкторыі. Каб знайсці ўсе файлы ў пэўным каталогу, вы павінны напісаць наступны код VBA .
9806
Вось дзве зменныя для захавання імёнаў файлаў асобна ( FN ) і ў выглядзе спісу ( FL ). Цыкл Do While выконвае ітэрацыі да таго часу, пакуль у каталогу не застанецца ніводнага файла, выкарыстоўваючы гэты цыкл, мы замяшчаем імя кожнага файла ў зменную FL .
Выканайце код, і вы знойдзеце ўсе файлы ў каталогу, як на малюнку ніжэй.
6. Знайдзіце ўсе файлы і тэчкі ў каталогу
Мыу папярэднім раздзеле згадвалі, дзе знайсці ўсе файлы. Мы таксама можам знайсці ўсе падпапкі ў тэчцы. Каб зрабіць гэта, напішыце наступны код VBA , які мы прымацавалі ніжэй.
6613
Змена ў нашым кодзе заключаецца толькі ў выкарыстанні параметраў атрыбутаў. Мы выкарыстоўвалі vbDirectory у гэтым полі. Запусціце код, і вы знойдзеце ўсе файлы і падпапкі Exceldemy_Folder .
7 Знайдзіце ўсе файлы пэўнага тыпу
Выкарыстоўваючы функцыю VBA Dir мы можам знайсці любы пэўны тып файла. Давайце разгледзім на прыкладзе.
Мы збіраемся знайсці файлы .csv у нашым каталогу. Наш код будзе выглядаць так:
4940
Мы спадзяемся, што вы зразумелі код, які выкарыстоўвае падобны механізм для пошуку файлаў. У шляху мы выкарыстоўвалі падстаноўны знак ( * ). Гэтая зорачка (*) азначае, што можа сустракацца любы сімвал да любой лічбы. Знак падстаноўкі быў выкарыстаны такім чынам, што імя файла можа быць любым, але павінна быць файлам .csv .
Калі вы запускаеце код, ён верне . csv файлы з нашага Exceldemy каталога.
Раздзел практыкі
Мы прадаставілі практыку раздзел на кожным аркушы з правага боку для вашай практыкі. Калі ласка, зрабіце гэта самастойна.
Выснова
Вось і ўсё аб сённяшнім занятку. І гэта некалькі простых прыкладаўфункцыі VBA Dir у Excel. Калі ў вас ёсць якія-небудзь пытанні ці прапановы, дайце нам ведаць у раздзеле каментарыяў. Для лепшага разумення спампуйце практычны ліст. Наведайце наш вэб-сайт Exceldemy , універсальнага пастаўшчыка рашэнняў Excel, каб даведацца пра розныя віды метадаў Excel. Дзякуй за цярпенне падчас чытання гэтага артыкула.
