Мазмұны
VBA ішіндегі DIR функциясы негізінен берілген қалтадағы каталогты немесе файлдарды көрсетеді. Ол сондай-ақ осы функциямен бірінші файлды қайтара алады. Бұл функцияның белгілі бір файлдар мен қалталарды алу үшін көп қолданылуы бар. Сізге тек файл жолын VBA кодының жол атауына енгізу қажет. Сізге VBA DIR кодтарын пайдалану қиынырақ болуы мүмкін. Уайымдамаңыз, бұл мақалада біз сізге VBA DIR функциясын пайдалану үшін жақсырақ визуализация үшін бірнеше мысалдарды көрсетеміз. Мақаланы оқығаннан кейін функцияны пайдалана аласыз деп үміттенемін. Ендеше, бастайық.
Тәжірибелік жұмыс кітабын жүктеп алу
Келесі жаттығу жұмыс кітабын жүктеп алыңыз. Бұл тақырыпты жақсырақ түсінуге көмектеседі.
DIR функциясы.xlsm
DIR функциясына кіріспе
Қорытынды:
VBA DIR функциясы берілген қалта жолынан файлдың немесе каталогтың атын қайтарады. Шартты түрде ол бірінші файлды қайтарады.
Синтаксис:
Dir [ (pathname, [ attributes ] ) ] Аргументтер Түсініктеме:
| Аргумент | Міндетті/Қосымша | Түсіндіру |
|---|---|---|
| Жол атауы | Қосымша | Жол файлға қатынасу және оны анықтайды |
| Атрибуттар | Қосымша | Тұрақты немесе сандық өрнек сәйкес келетін файлдардың атрибуттарын анықтайды |
Бірнеше алдын алаанықталған атрибуттар, олар-
| Атрибут атауы | Сипаттамасы |
|---|---|
| vbNormal | Файлдар арнайы атрибуттары жоқ |
| vbReadOnly | Төлсипаттары жоқ тек оқуға арналған файлдар |
| vbHidden | Жасырын атрибуттары жоқ файлдар |
| vbSystem | Атрибуттары жоқ жүйелік файлдар |
| vbVolume | Дыбыс белгісі |
| vbDirectory | Атрибуттары жоқ каталогтар немесе қалталар |
| vbAlias | Көрсетілген файл аты - бүркеншік ат |
7 Excel бағдарламасында VBA DIR функциясын пайдалану мысалдары
Сипаттамадан сіз VBA DIR функциясының мыналарды қамтамасыз ететінін түсінген боларсыз. берілген жол атауынан файл атауы. Оны мысал арқылы түсінейік. Мұнда әртүрлі мысалдарды көрсету үшін Exceldemy_Folder каталогын жасадық. Бұл қалтада әртүрлі шағын қалталар мен файлдар бар.
1. Жолдан файл атын табыңыз
Біздің қалтада біз белгілі бір файлды таба аламыз: файл атауының жолын жариялау.
Файлдың жолын көшіргеннен кейін кодты іске қосу керек.
Осы себепті Әзірлеуші қойындысына өтіңіз >> Visual Basic таңдаңыз. Содан кейін Кірістіру қойындысына >> Модуль таңдаңыз. Жалпы диалогтық терезесінде біз кодты жазамыз.
Біздің күн тәртібіміз <1 табу болып табылады>Файл атауы жол атынан, біз орнатамызтолық жол атауы (түбірден файлға дейін) және біздің код болады
6898
Осы жерде кодымызда жол атауын E:\Exceldemy\Sales_of_January етіп орнаттық. xlsx
Кодтың бөлінуі:
- Бастапқыда біз FN<деп аталатын жолдық айнымалыны жарияладық. 2>. Және Dir функциясының шығысы осы айнымалыда сақталды.
- Кейін, Dir функциясы файл атауын тауып, оны берілген жолдан қайтарады.
- Содан кейін MsgBox хабарлама жолағы арқылы шығысты орнатады. MsgBox хабарлама жолағын пайдаланып нәтижені қайтарады.
- Содан кейін кодты F5 пернесі арқылы іске қосыңыз.
Соңында біз Sales_of_January.xlsx атты файлды таптық.
2. Каталогтың бар-жоғын тексеріңіз
Біз Dir функциясы арқылы каталогтың бар-жоғын тексере аламыз. Exceldemy қалтасының бар-жоғын тексеру үшін кодты жазайық. Жалпы өріске келесі кодты жазыңыз және оны F5 пернесі арқылы іске қосыңыз.
7225
Кодтың бөлінуі :
- Біз екі айнымалыны жарияладық; PN тексеру каталогының толық жол атауын қамтиды.
- Осы жерде Dir функциясында біз жол атауы және төлсипатты екі мәнді орнаттық. мән vbDirectory ретінде. Бұл төлсипат мәні каталогты анықтауға көмектеседі. Және бұл функцияның шығысы файлда сақталады Файл айнымалы.
- Содан кейін айнымалының бос немесе бос еместігін тексердік. Егер айнымалының жоқ екенін тапсақ, онда каталогтың бар екенін хабарлама терезесі арқылы жариялаңыз, әйтпесе қайтару жоқ.
Мұнда Exceldemy каталогы бар, сондықтан біз « Exceldemy бар » дегенді табамыз, мұнда Exceldemy — қалта атауы.
3. Жоқ қалтаны жасау
ДК-де жоқ қалтаны жасауға болады. Ол үшін қалталарыңызда жоқ жол атауын жасауыңыз керек. Exceldemy_1 деп аталатын каталог жасаймыз деп елестетіп көрейік. Каталог құру үшін MkDir командасын қолданамыз, бірақ оған дейін келесі VBA кодын жазу керек.
9538
Мұнда біз кодымыздың Else блогындағы жол атын пайдаланып каталог құру командасын жаздық. F5 пернесі арқылы кодты іске қосыңыз .
Каталог жасалды. Каталог қалтасын қарастырайық. Exceldemy_1 қалтасы енді компьютеріңізде көрінеді.
Ұқсас оқулар:
- Excel бағдарламасында VBA жүйесінде қосалқыға қалай қоңырау шалу керек (4 мысал)
- VBA функциясында мәнді қайтару (массив және массив емес мәндер)
- Excel бағдарламасында VBA UCASE функциясын пайдалану (4 мысал)
- TRIM функциясын пайдалану жолыExcel бағдарламасындағы VBA (анықтама + VBA коды)
4. Каталогтан бірінші файлды табыңыз
Dir функциясының негізгі тапсырмасы: берілген каталогтағы бірінші файлды табу үшін. Функция ішінде сізге жол атауын беру қажет (контейнер каталогына дейін) және ол сол каталогтан ең бірінші файлды қайтарады.
Бірінші файлды біздің табайық. Exceldemy каталогы. Біздің код болады
4159
Сіз негізгі кодты көре аласыз; жол атауын Dir функциясына бердік. Енді F5 пернесі арқылы кодты Іске қосу , осы каталогтан бірінші файлды табасыз.
5. Барлығын табу Каталогтағы файлдар
Алдыңғы бөлімде каталогтан бірінші файл атын қалай табуға болатынын көрдік. Жағдай белгілі бір каталогтан барлық файлдарды табу қажет болғанда туындауы мүмкін. Белгілі бір каталогтағы барлық файлдарды табу үшін келесі VBA кодын жазу керек.
9182
Мұнда файл атауларын сақтау үшін екі айнымалы мән берілген. жалғыз ( FN ) және тізім ретінде ( FL ). Do While циклі каталогта ешбір файл қалмайынша қайталанады, осы циклды пайдалана отырып, біз әрбір файл атауын FL айнымалысына енгіземіз.
Кодты орындаңыз, және сіз төмендегі суреттегідей каталогтағы барлық файлдарды таба аласыз.
6. Каталогтан барлық файлдар мен қалталарды табыңыз
Бізбарлық файлдарды қайдан табуға болатынын алдыңғы бөлімде айтқан болатынбыз. Біз сондай-ақ қалтадағы барлық ішкі қалталарды таба аламыз. Ол үшін төменде біз тіркеген келесі VBA кодын жазыңыз.
5696
Біздің кодтағы өзгеріс тек атрибут параметрлерін пайдалану болып табылады. Біз бұл өрісте vbDirectory қолдандық. кодты іске қосыңыз, сонда сіз Exceldemy_Folder барлық файлдары мен ішкі қалталарын табасыз.
7 Белгілі бір түрдегі барлық файлдарды табу
VBA Dir функциясын пайдалану арқылы біз кез келген белгілі бір файл түрін таба аламыз. Мысалмен зерттеп көрейік.
Біз каталогтан .csv файлдарын табамыз. Біздің код келесідей болады-
3300
Файлдарды табудың ұқсас механизмін пайдаланатын кодты түсіндіңіз деп үміттенеміз. Жол атауында біз қойылмалы таңбаны қолдандық ( * ). Бұл жұлдызша (*) кез келген санға дейінгі кез келген таңбаның пайда болуы мүмкін екенін білдіреді. Қойылмалы таңба файл атауы кез келген нәрсе болуы мүмкін, бірақ .csv файлы болуы керек етіп қолданылған.
Кодты іске қосқанда, ол мәнін қайтарады. csv файлдары Exceldemy каталогынан.
Тәжірибе бөлімі
Біз тәжірибені ұсындық. тәжірибеңіз үшін оң жақтағы әрбір парақтың бөлімі. Өтінемін, мұны өзіңіз жасаңыз.
Қорытынды
Оның бәрі бүгінгі сабаққа қатысты. Және бұл қарапайым мысалдарExcel бағдарламасындағы VBA Dir функциясының. Сұрақтарыңыз немесе ұсыныстарыңыз болса, түсініктемелер бөлімінде бізге хабарлаңыз. Жақсырақ түсіну үшін тәжірибе парағын жүктеп алыңыз. Excel әдістерінің әртүрлі түрлері туралы білу үшін біздің веб-сайтқа кіріңіз, Exceldemy , Excel шешімдерінің бір терезе провайдері. Осы мақаланы оқуға шыдамдылық танытқаныңыз үшін рахмет.
