VBA ChDir - Excel VBA ChDir फ़ंक्शन का उपयोग करके निर्देशिका कैसे बदलें?

विषय - सूची

एक्सेल VBA Chdir

एक्सेल VBA Chdir

"चिरिर" को " परिवर्तन निर्देशिका " कहा जा सकता है । "ChDir" का उपयोग करके, हम पूरी तरह से योग्य पथ के बिना फ़ाइलों की खोज करते समय VBA में उपयोग की जाने वाली वर्तमान डिफ़ॉल्ट निर्देशिका को बदल सकते हैं। उदाहरण के लिए, जब हम फ़ाइल को डिफ़ॉल्ट रूप से एक नई फ़ाइल के रूप में सहेजने का प्रयास करते हैं, तो हम देख सकते हैं कि सिस्टम कॉन्फ़िगर ड्राइव खुल गया है, और वहाँ से हम उस फ़ोल्डर का चयन करते हैं जिसे हम सहेजना चाहते हैं।

क्या आपने कभी सोचा है कि हम उस डिफ़ॉल्ट फ़ोल्डर पिकर विंडो को अपनी इच्छा से बदल सकते हैं? हाँ, हम ऐसा कर सकते हैं!

अब VBA में ChDir फ़ंक्शन के सिंटैक्स को देखें।

पथ: यह वह जगह है जहां हमें उस फ़ोल्डर पथ का उल्लेख करना होगा जिसे हम डिफ़ॉल्ट रूप से खोलना चाहते हैं जब हम फ़ाइल को किसी अन्य नाम के रूप में खोलने या सहेजने का प्रयास करते हैं।

पथ का उल्लेख दोहरे-उद्धरणों में किया जाना चाहिए।

VBA में ChDir फ़ंक्शन के उदाहरण

नीचे Excel VBA ChDir के उदाहरण दिए गए हैं।

उदाहरण 1

अब सबसे पहले VBA कोड के नीचे देखें।

कोड:

सब ChDir_Example1 () फ़ाइल के रूप में डिम एफडी फ़ाइल के रूप में मंद एनडी स्ट्रिंग सेट एफडी के रूप में = Application.FileDialog (msoFileDialogFilePicker) FD के साथ।

जब मैं F5 कुंजी या मैन्युअल का उपयोग करके इस कोड को चलाता हूं, तो यह पहले नीचे की डिफ़ॉल्ट विंडो को खोलेगा।

यहाँ से, मुझे VBA कोड का उपयोग करके उन फ़ाइलों को चुनने के लिए विभिन्न फ़ोल्डर्स और सब फोल्डर से गुजरना होगा, जिन्हें मैं खोलना चाहता हूँ।

इसमें बहुत समय लगेगा! अगर मुझे विभिन्न फ़ोल्डरों के माध्यम से जाना है, तो यह विभिन्न सब फ़ोल्डर्स के कारण गलत फ़ाइल चयन का कारण भी हो सकता है, और यह अधिक भ्रम जोड़ता है।

क्या होगा यदि मेरा कोड विशिष्ट फ़ोल्डर खोल सकता है जहां मेरी फ़ाइल को चुना जाना आवश्यक है ??

क्या यह एक अच्छा विकल्प नहीं है?

हां, आइए इसे आजमाते हैं।

हमारे कोड पर पास होने से पहले, हमें फ़ंक्शन ChDir का उपयोग करने और डबल-कोट्स में फ़ोल्डर पथ का उल्लेख करने की आवश्यकता है ।

ChDir "D: Articles Excel फ़ाइलें"

उपर्युक्त कोड, डिफ़ॉल्ट रूप से, "D" ड्राइव में खोली जाने वाली निर्देशिका को बदल देगा और D ड्राइव "लेख" फ़ोल्डर के तहत, और इस फ़ोल्डर के तहत, खोला जाने वाला उप फ़ोल्डर "Excel Files" है।

कोड:

उप ChDir_Example2 () वेरिएंट ChDir के रूप में मंद फ़ाइल नाम "D: Articles Excel फ़ाइलें" फ़ाइल का नाम = Application.GetSaveAsFilename () यदि टाइपनेम (फ़ाइल नाम) "बूलियन" तो MsgBox फ़ाइल नाम समाप्त हो सकता है यदि उप सब

अब मैं मैन्युअल रूप से या F5 कुंजी दबाकर कोड चलाऊंगा और देखूंगा कि कौन सी फ़ाइल निर्देशिका खुलती है।

जैसा कि हम उपरोक्त चित्र में देख सकते हैं, मुझे मेरे विनिर्देश के अनुसार डिफ़ॉल्ट विंडो मिली।

बस अगर आपकी ChDir फ़ंक्शन उल्लिखित फ़ाइल निर्देशिका को नहीं दिखा रही है, तो आपको पहले ड्राइव को बदलने की आवश्यकता है फिर ChDir फ़ंक्शन को लागू करें ।

ड्राइव को बदलने के लिए, हमें “ChDir” फ़ंक्शन का उपयोग करना होगा। चूंकि मैं "डी" ड्राइव में फ़ाइल खोलना चाहता हूं, इसलिए मुझे ड्राइव को "डी" में बदलना होगा ।

ChDrive "D"

उपरोक्त कोड ड्राइव को "ई" में बदल देगा।

कोड:

उप ChDir_Example2 () वेरिएंट ChDrive के रूप में मंद फ़ाइलनाम "D" ChDir "D: Article Excel फ़ाइलें" फ़ाइल का नाम = Application.GetSaveAsFilename () यदि TypeName (फ़ाइल नाम) "बूलियन" तो MsgBox फ़ाइल नाम समाप्त हो सकता है यदि उप सब