Mündəricat
DIR funksiyası VBA -də əsasən sizə kataloqu və ya verilmiş qovluqdakı faylları göstərir. O, həmçinin bu funksiya ilə ilk faylı qaytara bilər. Bu funksiyanın xüsusi fayl və qovluqları əldə etmək üçün çoxlu istifadəsi var. Sizə lazım olan tək şey fayl yolunu VBA kodunun yol adına daxil etməkdir. Sizə VBA DIR kodlarından istifadə etmək daha çətin ola bilər. Narahat olmayın, bu məqalədə biz sizə VBA DIR funksiyasından istifadə etmək üçün daha yaxşı vizuallaşdırma üçün bəzi nümunələr göstərəcəyik. Ümid edirik ki, məqaləni oxuduqdan sonra funksiyadan istifadə edə biləcəksiniz. Beləliklə, başlayaq.
Təcrübə İş Kitabını Yükləyin
Aşağıdakı təcrübə iş kitabını endirin. O, mövzunu daha yaxşı başa düşməyə kömək edəcək.
DIR Function.xlsm
DIR Funksiyasına Giriş
Xülasə:
VBA DIR funksiyası verilmiş qovluq yolundan fayl və ya kataloqun adını qaytarır. Şərti olaraq ilk faylı qaytarır.
Sintaksis:
Dir [ (pathname, [ attributes ] ) ] Arqumentlər İzahı:
| Arqument | Tələb/İstəyə Bağlı | İzahat |
|---|---|---|
| YolAdı | Əlavə | Yol faylına daxil olmaq və onu təyin etmək üçün |
| Atributlar | Könüllü | Sabit və ya ədədi ifadə uyğun faylların atributlarını təyin edir |
Bir neçə qabaqcadanmüəyyən edilmiş atributlar, onlar-
| Atributun adı | Təsvir |
|---|---|
| vbNormal | Fayllar xüsusi atributları olmayan |
| vbReadOnly | Atributları olmayan yalnız oxumaq üçün fayllar |
| vbHidden | Gizli atributları olmayan fayllar |
| vbSystem | Atributları olmayan sistem faylları |
| vbVolume | Səs etiketi |
| vbDirectory | Atributları olmayan qovluqlar və ya qovluqlar |
| vbAlias | Belirilmiş fayl adı ləqəbdir |
Excel-də VBA DIR funksiyasının istifadəsinə dair 7 nümunə
Təsvirdən başa düşə bilərsiniz ki, VBA DIR funksiyası verilən yol adından fayl adı. Nümunə ilə başa düşək. Burada sizə müxtəlif nümunələri göstərmək üçün Exceldemy_Qovluq kataloqu yaratdıq. Bu qovluqda müxtəlif kiçik qovluqlar və fayllar var.
1. Faylın adını Yoldan tapın
Qovluğumuzda xüsusi faylı tapa bilərik: fayl adının yolunu elan edir.
Faylın yolunu kopyaladıqdan sonra kodu işə salmalısınız.
Bu səbəbdən Developer tab >> Visual Basic seçin. Sonra Daxil et nişanına keçin >> Module seçin. Ümumi dialoq qutusunda kodu yazırıq.
Gündəliyimiz <1-i tapmaq olduğundan>Fayl adı -ni yol adından təyin edəcəyiktam yol adı (kökdən fayla qədər) və kodumuz olacaq
1789
Burada kodumuzda biz yol adını E:\Exceldemy\Sales_of_January olaraq təyin etdik. xlsx
Kod bölgüsü:
- İlk olaraq biz FN
. Və Dir funksiyasının çıxışı bu dəyişəndə saxlandı. - Sonra, Dir funksiyası fayl adını tapır və onu verilmiş yoldan qaytarır.
- Sonra MsgBox mesaj qutusu vasitəsilə çıxışı təyin edir. MsgBox mesaj qutusundan istifadə edərək çıxışı qaytarır.
- Sonra kodu F5 düyməsi ilə işlədin.
Nəhayət, Sales_of_January.xlsx adlı faylı tapdıq.
2. Kataloqun mövcudluğunu yoxlayın
Biz Dir funksiyasından istifadə edərək kataloqun mövcudluğunu yoxlaya bilərik. Exceldemy qovluğunun olub olmadığını yoxlamaq üçün kodu yazaq. Aşağıdakı kodu ümumi qutuya yazın və onu F5 düyməsi ilə işə salın.
3258
Kod Bölgüsü :
- Biz iki dəyişən elan etdik; PN yoxlama kataloqumuzun tam yolunu ehtiva edir.
- Burada Dir funksiyasında biz iki dəyər təyin etdik, yol adı və atribut vbDirectory kimi dəyər. Bu atribut dəyəri kataloqu aşkar etməyə kömək edəcək. Və bu funksiyanın çıxışı faylda saxlanılır Fayl dəyişən.
- Sonra biz dəyişənin boş olub olmadığını yoxladıq. Əgər dəyişənin olmadığını görsək, mesaj qutusu vasitəsilə kataloqun mövcudluğunu elan edin, əks halda qaytarma mövcud deyil.
Burada Exceldemy kataloqu mövcuddur, buna görə də biz “ Exceldemy mövcuddur ” tapacağıq, burada Exceldemy qovluğun adıdır.
3. Mövcud Olmayan Qovluq Yaradın
Kompüterinizdə mövcud olmayan qovluq yarada bilərsiniz. Bunun üçün qovluqlarınızda olmayan bir yol adı yaratmalısınız. Təsəvvür edək ki, Exceldemy_1 adlı qovluq yaradacağıq. Kataloq yaratmaq üçün MkDir əmrindən istifadə edəcəyik, lakin bundan əvvəl aşağıdakı VBA kodunu yazmalıyıq.
3225
Burada kodumuzun Else blokundan yol adından istifadə edərək kataloq yaratmaq əmrini yazdıq. F5 düyməsi ilə kodu çalışdır .
Kataloq yaradıldı. Kataloq qovluğuna baxaq. Exceldemy_1 qovluğu indi kompüterinizdə görünür.
Oxşar Oxumalar:
- Excel-də VBA-da Sub-a Necə Zəng etməli (4 Nümunə)
- VBA Funksiyasında Dəyəri qaytarın (Həm Massiv, həm də Qeyri-Masiv Dəyərləri)
- Excel-də VBA UCASE funksiyasından istifadə edin (4 Nümunə)
- TRIM funksiyasından necə istifadə etməliExcel-də VBA (Tərif + VBA Kodu)
4. Kataloqdan Birinci Faylı tapın
Dir funksiyasının əsas vəzifəsi verilən qovluqda ilk faylı tapmaq üçün. Funksiya daxilində sizə lazım olan tək şey yol adıdır (konteyner kataloquna qədər) və o, həmin qovluqdan ilk faylı qaytaracaq.
Gəlin bizim -dən ilk faylı tapaq. Exceldemy kataloq. Kodumuz olacaq
2270
Əsas kodu görə bilərsiniz; biz yol adını Dir funksiyasına keçirdik. İndi kodu F5 düyməsi ilə İşlə edin, siz bu kataloqda ilk faylı tapacaqsınız.
5. Hamısını tapın Kataloqdan fayllar
Əvvəlki bölmədə biz kataloqdan ilk fayl adını necə tapmağı gördük. Müəyyən bir kataloqdan bütün faylları tapmaq lazım olduqda vəziyyət yarana bilər. Müəyyən bir kataloqdakı bütün faylları tapmaq üçün aşağıdakı VBA kodunu yazmalısınız.
6722
Burada fayl adlarını saxlamaq üçün iki dəyişən var. tək ( FN ) və siyahı kimi ( FL ). Do while döngəsi qovluqda heç bir fayl qalmayana qədər təkrarlanır, bu dövrədən istifadə edərək hər bir fayl adını FL dəyişəninə itələyirik.
Kodu yerinə yetirin, və siz aşağıdakı şəkildəki kimi kataloqdakı bütün faylları tapacaqsınız.
6. Kataloqdan Bütün Fayl və Qovluqları Tapın
Bizbütün faylları haradan tapmaq lazım olduğunu əvvəlki bölmədə qeyd etmişik. Biz həmçinin bütün alt qovluqları bir qovluqda tapa bilərik. Bunun üçün aşağıda əlavə etdiyimiz aşağıdakı VBA kodunu yazın.
2681
Kodumuzdakı dəyişiklik sadəcə atribut parametrlərinin istifadəsidir. Biz həmin sahədə vbDirectory -dən istifadə etdik. Kodu çalışdırın və siz Exceldemy_Folder -in bütün fayllarını və alt qovluqlarını tapacaqsınız.
7 . Konkret Tipli Bütün Faylları Tapın
VBA Dir funksiyasından istifadə etməklə biz istənilən xüsusi fayl növünü tapa bilərik. Nümunə ilə araşdıraq.
Biz kataloqumuzdan .csv faylları tapacağıq. Kodumuz aşağıdakı kimi olacaq-
7534
Ümid edirik ki, faylları tapmaq üçün oxşar mexanizmdən istifadə edən kodu başa düşmüsünüz. Yol adında biz joker işarədən istifadə etdik ( * ). Bu ulduz (*) istənilən rəqəmə qədər istənilən simvolun baş verə biləcəyini bildirir. Joker simvoldan elə istifadə olunub ki, fayl adı istənilən ola bilər, lakin .csv faylı olmalıdır.
Siz kodu işə saldığınız zaman o, -i qaytaracaq. csv faylları Exceldemy kataloqumuzdan.
Təcrübə Bölməsi
Biz təcrübə təqdim etdik. təcrübəniz üçün sağ tərəfdəki hər vərəqdə bölmə. Zəhmət olmasa, özünüz edin.
Nəticə
Bunlar bugünkü sessiyaya aiddir. Və bunlar bir neçə asan nümunədirExcel-də VBA Dir funksiyası. Hər hansı bir sualınız və ya təklifiniz varsa, şərh bölməsində bizə bildirin. Daha yaxşı başa düşmək üçün təcrübə vərəqini yükləyin. Müxtəlif növ Excel üsulları haqqında məlumat əldə etmək üçün birdəfəlik Excel həlli təminatçısı olan Exceldemy vebsaytımıza daxil olun. Bu məqaləni oxumaqda səbr etdiyiniz üçün təşəkkür edirik.
