Содржина
Функцијата 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 . Потоа одете на картичката Вметни >> изберете Модул. Во полето за дијалог Општо , го пишуваме кодот.
Како што нашата агенда е да го најдеме Име на датотека од името на патеката, ќе го поставимецелото име на патека (од самиот корен до датотеката) и нашиот код ќе биде
1657
Овде во рамките на нашиот код, го поставивме името на патеката како E:\Exceldemy\Sales_of_January. xlsx
Разложување на кодот:
- Првично, деклариравме променлива низа наречена FN . И излезот од функцијата Dir беше зачуван во оваа променлива.
- Следно, функцијата Dir го наоѓа името на датотеката и ја враќа од дадената патека.
- Потоа MsgBox го поставува излезот преку полето за пораки. MsgBox враќа излез со помош на полето за пораки.
- Потоа, извршете го кодот со копчето F5 .
Конечно, ја најдовме датотеката со име Sales_of_January.xlsx .
2. Проверете го постоењето на директориумот
Можеме да го провериме постоењето на директориум користејќи ја функцијата Dir . Ајде да го напишеме кодот за да провериме дали постои папката Exceldemy . Запишете го следниов код во општото поле и стартувајте го со копчето F5 .
6996
Разложување на кодот :
- Изјавивме две променливи; PN го содржи целото име на патеката на нашиот директориум за проверка.
- Овде во функцијата Dir , поставивме две вредности, име на патека и атрибут вредност како vbDirectory . Оваа вредност на атрибутот ќе помогне да се открие директориумот. И излезот од оваа функција е зачуван во Датотека променлива.
- Потоа проверивме дали променливата е празна или не. Ако откриеме дека променливата не е, тогаш прогласете го постоењето на директориумот преку поле за пораки, во спротивно, враќањето не постои.
Тука, Exceldemy директориумот постои, па ќе најдеме „ Exceldemy постои “, каде што Exceldemy е името на папката.
3. Направете папка што не постои
Можете да креирате папка што не постои на вашиот компјутер. За ова, треба да креирате име на патека што не постои во вашите папки. Да замислиме дека ќе создадеме директориум наречен Exceldemy_1 . Ќе ја користиме командата MkDir за да го креираме директориумот, но пред тоа, треба да го напишеме следниот VBA код.
1233
Овде напишавме команда за креирање на директориумот користејќи го името на патеката од блокот Else на нашиот код. Изврши кодот со копчето F5 .
Директориумот е креиран. Ајде да погледнеме во папката директориум. Папката Exceldemy_1 сега е видлива на вашиот компјутер.
Слични читања:
- Како да повикате под во VBA во Excel (4 примери)
- Врати вредност во функцијата VBA (и низа и вредности без низа)
- Користете ја функцијата VBA UCASE во Excel (4 примери)
- Како да ја користите функцијата TRIM воVBA во Excel (дефиниција + VBA код)
4. Најдете ја првата датотека од директориумот
Главната задача на функцијата Dir е за да ја пронајдете првата датотека во дадениот директориум. Сè што треба да наведете во функцијата е името на патеката (до директориумот на контејнерот) и ќе ја врати првата датотека од тој директориум.
Ајде да ја најдеме првата датотека од нашиот Exceldemy директориум. Нашиот код ќе биде
4357
Можете да го видите основниот код; го префрливме името на патеката во функцијата Dir . Сега Изврши кодот со копчето F5 , ќе ја најдеш првата датотека во овој директориум.
5. Најди ги сите Датотеки од директориум
Во претходниот дел, видовме како да го најдеме името на првата датотека од директориумот. Ситуацијата може да се појави кога треба да ги најдете сите датотеки од одреден директориум. За да ги најдете сите датотеки во одреден директориум, треба да го напишете следниов код VBA .
2914
Еве две променливи за складирање на имињата на датотеките како сингл ( FN ), и како листа ( FL ). Јамката Do while се повторува додека ниедна датотека не останува во директориумот, користејќи ја оваа јамка, го туркаме секое име на датотека во променливата FL .
Извршете го кодот, и ќе ги најдете сите датотеки во директориумот, како на сликата подолу.
6. Најдете ги сите датотеки и папки од директориумот
НиеСпомнавте во претходниот дел каде да ги најдете сите датотеки. Можеме да ги најдеме и сите под-папки во една папка. За да го направите ова, напишете го следниов код VBA што го прикачивме подолу.
9021
Промената во нашиот код е само користење на параметрите на атрибутот. Го користевме vbDirectory во тоа поле. Извршете кодот и ќе ги најдете сите датотеки и подпапки на Exceldemy_Folder .
7 Најди ги сите датотеки од специфичен тип
Користејќи ја функцијата VBA Dir , можеме да најдеме одреден тип на датотека. Ајде да истражуваме со пример.
Ќе најдеме датотеки .csv од нашиот директориум. Нашиот код ќе биде како следниот-
1199
Се надеваме дека го разбравте кодот, кој користи сличен механизам за наоѓање датотеки. Во името на патеката, користевме џокер ( * ). Оваа ѕвездичка (*) означува дека може да се појави кој било знак до кој било број. Знакот е користен на таков начин што името на датотеката може да биде што било, но мора да биде датотека .csv .
Кога ќе го извршите кодот, тој ќе го врати . csv датотеки од нашиот директориум Exceldemy .
Дел за вежбање
Обезбедивме пракса дел на секој лист на десната страна за вашата пракса. Ве молиме направете го тоа сами.
Заклучок
Тоа е сè за денешната сесија. И ова се неколку лесни примериод функцијата VBA Dir во Excel. Ве молиме известете не во делот за коментари доколку имате какви било прашања или предлози. За подобро разбирање, преземете го практичниот лист. Посетете ја нашата веб-локација, Exceldemy , едношалтерски давател на решенија за Excel, за да дознаете за различните видови на методи на Excel. Ви благодариме за вашето трпение при читањето на оваа статија.
