सामग्री सारणी
VBA मधील DIR फंक्शन मुख्यतः तुम्हाला दिलेल्या फोल्डरमधील डिरेक्टरी किंवा फाइल्स दाखवते. ते या फंक्शनसह पहिली फाईल देखील परत करू शकते. विशिष्ट फाइल्स आणि फोल्डर्स मिळविण्यासाठी या फंक्शनचे बरेच उपयोग आहेत. तुम्हाला फक्त VBA कोडच्या पाथनावामध्ये फाईल पाथ टाकायचा आहे. तुम्हाला VBA DIR कोड वापरणे अधिक कठीण वाटू शकते. काळजी करू नका, या लेखात, आम्ही तुम्हाला VBA DIR फंक्शन वापरण्यासाठी चांगल्या व्हिज्युअलायझेशनसाठी काही उदाहरणे दाखवणार आहोत. लेख वाचल्यानंतर तुम्ही फंक्शन वापरण्यास सक्षम व्हाल अशी आशा आहे. तर, चला सुरुवात करूया.
सराव वर्कबुक डाउनलोड करा
खालील सराव वर्कबुक डाउनलोड करा. हे तुम्हाला विषय अधिक चांगल्या प्रकारे समजण्यास मदत करेल.
DIR Function.xlsm
DIR फंक्शनचा परिचय
सारांश:
VBA DIR फंक्शन दिलेल्या फोल्डर मार्गावरून फाइल किंवा डिरेक्टरीचे नाव परत करते. पारंपारिकपणे, ती पहिली फाइल परत करते.
सिंटॅक्स:
Dir [ (pathname, [ attributes ] ) ] वितर्क स्पष्टीकरण:
<16 विशेषता| वितर्क | आवश्यक/पर्यायी | स्पष्टीकरण |
|---|---|---|
| PathName | पर्यायी | पथ फाइलमध्ये प्रवेश करण्यासाठी आणि निर्दिष्ट करण्यासाठी |
| पर्यायी | स्थिर किंवा अंकीय अभिव्यक्ती जुळणाऱ्या फाइल्सचे गुणधर्म निर्दिष्ट करते |
काही प्री-परिभाषित गुणधर्म, ते आहेत-
| विशेषता नाव | वर्णन |
|---|---|
| vbNormal | फाईल्स कोणत्याही विशिष्ट गुणधर्मांशिवाय |
| vbReadOnly | कोणत्याही विशेषता नसलेल्या केवळ वाचनीय फाइल्स |
| vbHidden | लपवलेल्या विशेषता नसलेल्या फाइल्स |
| vbSystem | विशेषता नसलेल्या सिस्टम फाइल्स |
| vbVolume | Volume लेबल |
| vbDirectory | कोणतीही विशेषता नसलेली निर्देशिका किंवा फोल्डर |
| vbAlias | निर्दिष्ट फाइलनाव हे उपनाव आहे<17 |
7 एक्सेलमधील VBA DIR फंक्शन वापरण्याची उदाहरणे
वर्णनावरून, तुम्हाला समजले असेल की VBA DIR फंक्शन प्रदान करते. प्रदान केलेल्या पथनावावरून फाइल नाव. ते उदाहरणाने समजून घेऊ. तुम्हाला विविध उदाहरणे दाखवण्यासाठी येथे आम्ही Exceldemy_Folder निर्देशिका तयार केली आहे. या फोल्डरमध्ये वेगवेगळे छोटे फोल्डर्स आणि फाइल्स आहेत.
1. पाथ वरून फाइलनाव शोधा
आमच्या फोल्डरमध्ये, आम्ही विशिष्ट फाइल शोधू शकतो. फाइल नावाचा मार्ग घोषित करत आहे.
फाइलचा मार्ग कॉपी केल्यानंतर, तुम्हाला कोड चालवावा लागेल.
या कारणासाठी, डेव्हलपर टॅब >> वर जा. Visual Basic निवडा. नंतर घाला टॅबवर जा >> मॉड्युल निवडा. सामान्य डायलॉग बॉक्समध्ये, आम्ही कोड लिहितो.
आमचा अजेंडा <1 शोधणे आहे>Filename pathname वरून, आपण सेट करूपूर्ण पथनाव (मूळापासून फाईलपर्यंत) आणि आमचा कोड असेल
2147
येथे आमच्या कोडमध्ये, आम्ही पथनाव E:\Exceldemy\Sales_of_January असे सेट केले आहे. xlsx
कोड ब्रेकडाउन:
- सुरुवातीला, आम्ही FN<नावाचे स्ट्रिंग व्हेरिएबल घोषित केले. 2>. आणि Dir फंक्शनचे आउटपुट या व्हेरिएबलमध्ये सेव्ह केले गेले.
- पुढे, Dir फंक्शन फाईलचे नाव शोधते आणि प्रदान केलेल्या मार्गावरून ते परत करते.<29
- नंतर MsgBox मेसेज बॉक्समधून आउटपुट सेट करते. MsgBox संदेश बॉक्स वापरून आउटपुट परत करतो.
- नंतर, F5 की वापरून कोड चालवा.
शेवटी, आम्हाला Sales_of_January.xlsx नावाची फाइल सापडली आहे.
2. डिरेक्टरीचे अस्तित्व तपासा
आम्ही Dir फंक्शन वापरून डिरेक्टरीचे अस्तित्व तपासू शकतो. Exceldemy फोल्डर अस्तित्वात आहे की नाही हे तपासण्यासाठी कोड लिहू. खालील कोड सामान्य बॉक्समध्ये लिहा आणि F5 की वापरून चालवा.
3005
कोड ब्रेकडाउन :
- आम्ही दोन व्हेरिएबल्स घोषित केले आहेत; PN मध्ये आमच्या चेकिंग डिरेक्टरीचे संपूर्ण पथनाव आहे.
- येथे Dir फंक्शनमध्ये, आम्ही दोन मूल्ये सेट केली आहेत, पथनाव आणि विशेषता मूल्य vbDirectory म्हणून. ही विशेषता मूल्य निर्देशिका शोधण्यात मदत करेल. आणि या फंक्शनचे आउटपुट मध्ये साठवले जाते फाइल व्हेरिएबल.
- मग आम्ही व्हेरिएबल रिक्त आहे की नाही ते तपासले. जर आम्हाला आढळले की व्हेरिएबल नाही, तर डिरेक्टरीचे अस्तित्व संदेश बॉक्सद्वारे घोषित करा, अन्यथा, रिटर्न अस्तित्वात नाही.
येथे, एक्सेलडेमी<21 निर्देशिका अस्तित्वात आहे, म्हणून आम्हाला आढळेल “ Exceldemy अस्तित्वात आहे ”, जिथे Exceldemy हे फोल्डरचे नाव आहे.
3. अस्तित्वात नसलेले फोल्डर तयार करा
तुम्ही तुमच्या PC वर अस्तित्वात नसलेले फोल्डर तयार करू शकता. यासाठी, तुम्हाला तुमच्या फोल्डर्समध्ये अस्तित्वात नसलेले पथनाव तयार करावे लागेल. कल्पना करूया की आपण Exceldemy_1 नावाची निर्देशिका तयार करणार आहोत. डिरेक्टरी तयार करण्यासाठी आम्ही MkDir कमांड वापरू, परंतु त्यापूर्वी, आम्हाला खालील VBA कोड लिहावा लागेल.
3465
आम्ही आमच्या कोडच्या Else ब्लॉकमधून पाथनेम वापरून डिरेक्टरी तयार करण्यासाठी कमांड लिहिली आहे. F5 की वापरून कोड चालवा.
डिरेक्टरी तयार केली गेली आहे. चला डिरेक्टरी फोल्डर पाहू. Exceldemy_1 फोल्डर आता तुमच्या संगणकावर दृश्यमान आहे.
समान वाचन:
- एक्सेलमधील व्हीबीएमध्ये सबला कसे कॉल करावे (4 उदाहरणे)
- व्हीबीए फंक्शनमध्ये मूल्य परत करा (अॅरे आणि नॉन-अॅरे मूल्य दोन्ही)<2
- एक्सेलमध्ये VBA UCASE फंक्शन वापरा (4 उदाहरणे)
- ट्रिम फंक्शन कसे वापरावेएक्सेलमधील VBA (परिभाषा + VBA कोड)
4. डिरेक्टरीमधून पहिली फाइल शोधा
Dir फंक्शनचे मुख्य कार्य आहे प्रदान केलेल्या निर्देशिकेतील पहिली फाइल शोधण्यासाठी. फंक्शनमध्ये तुम्हाला फक्त पाथनेम (कंटेनर डिरेक्टरीपर्यंत) प्रदान करणे आवश्यक आहे आणि ते त्या डिरेक्टरीमधून पहिली फाइल परत करेल.
आमच्या मधून पहिली फाइल शोधूया. Exceldemy डिरेक्टरी. आमचा कोड असेल
3224
तुम्ही मूलभूत कोड पाहू शकता; आपण पथनाव Dir फंक्शनमध्ये पास केले आहे. आता F5 की सह कोड रन करा, तुम्हाला या डिरेक्टरीमध्ये पहिली फाईल मिळेल.
5. सर्व शोधा डिरेक्टरीमधील फाइल्स
मागील विभागात, डिरेक्टरीमधून प्रथम फाइलचे नाव कसे शोधायचे ते आपण पाहिले. जेव्हा आपल्याला विशिष्ट निर्देशिकेतून सर्व फायली शोधण्याची आवश्यकता असते तेव्हा परिस्थिती उद्भवू शकते. विशिष्ट निर्देशिकेतील सर्व फाईल्स शोधण्यासाठी, तुम्हाला खालील VBA कोड लिहावा लागेल.
7271
फाइलनावे साठवण्यासाठी येथे दोन व्हेरिएबल्स आहेत. एकल ( FN ), आणि सूची म्हणून ( FL ). Do while लूप पुनरावृत्ती करतो पर्यंत कोणतीही फाईल निर्देशिकेत राहते, या लूपचा वापर करून, आम्ही प्रत्येक फाईलचे नाव FL व्हेरिएबलमध्ये ढकलतो.
कोड कार्यान्वित करा, आणि तुम्हाला खालील इमेज प्रमाणे डिरेक्टरी मध्ये सर्व फाईल्स सापडतील.
6. डिरेक्टरी मधून सर्व फाईल्स आणि फोल्डर्स शोधा
आम्हीमागील विभागात सर्व फाईल्स कुठे शोधायचे ते सांगितले आहे. आपण फोल्डरमध्ये सर्व उप-फोल्डर देखील शोधू शकतो. हे करण्यासाठी, आम्ही खाली जोडलेला खालील VBA कोड लिहा.
8357
आमच्या कोडमधील बदल हा केवळ विशेषता पॅरामीटर्सचा वापर आहे. आम्ही त्या फील्डमध्ये vbDirectory वापरले आहे. कोड चालवा , आणि तुम्हाला Exceldemy_Folder च्या सर्व फाइल्स आणि सबफोल्डर सापडतील.
7 विशिष्ट प्रकारच्या सर्व फाइल्स शोधा
VBA Dir फंक्शन वापरून, आम्ही कोणत्याही विशिष्ट प्रकारच्या फाइल शोधू शकतो. चला उदाहरणासह एक्सप्लोर करू.
आम्ही आमच्या डिरेक्टरीमधून .csv फाइल्स शोधणार आहोत. आमचा कोड खालीलप्रमाणे असेल-
6258
आम्हाला आशा आहे की तुम्हाला कोड समजला असेल, जो फाइल्स शोधण्यासाठी समान यंत्रणा वापरतो. पथनावामध्ये, आम्ही वाइल्डकार्ड ( * ) वापरले. हा तारका (*) सूचित करतो की कोणत्याही संख्येपर्यंत कोणतेही वर्ण येऊ शकतात. वाइल्डकार्ड अशा प्रकारे वापरले गेले आहे की फाईलचे नाव काहीही असू शकते परंतु .csv फाईल असणे आवश्यक आहे.
जेव्हा तुम्ही कोड चालवाल, तेव्हा ते परत करेल. आमच्या एक्सेलडेमी डिरेक्टरीमधील csv फायली.
सराव विभाग
आम्ही एक सराव प्रदान केला आहे तुमच्या सरावासाठी उजव्या बाजूला प्रत्येक शीटवरील विभाग. कृपया ते स्वतः करा.
निष्कर्ष
आजच्या सत्राबद्दल एवढेच आहे. आणि ही काही सोपी उदाहरणे आहेतएक्सेलमधील VBA Dir फंक्शन. आपल्याकडे काही प्रश्न किंवा सूचना असल्यास कृपया टिप्पण्या विभागात आम्हाला कळवा. अधिक चांगल्या प्रकारे समजून घेण्यासाठी, कृपया सराव पत्रक डाउनलोड करा. आमच्या वेबसाइटला भेट द्या, Exceldemy , एक-स्टॉप एक्सेल समाधान प्रदाता, विविध प्रकारच्या Excel पद्धतींबद्दल जाणून घेण्यासाठी. हा लेख वाचण्यात तुमच्या संयमाबद्दल धन्यवाद.
