स्वाभाविक रूप से, हमें VBA का उपयोग करके किसी भिन्न निर्देशिका में पेरेंट एक्सेल फ़ाइल से फ़ाइल खोलने की आवश्यकता हो सकती है। लेकिन साथ ही, हमारे पास विभिन्न प्रकार के मापदंड भी हैं कि हम कार्यपुस्तिका को कैसे खोलना चाहते हैं। यदि आप यह जानने के लिए उत्सुक हैं कि आप चर नाम के साथ कार्यपुस्तिका कैसे खोल सकते हैं, तो यह लेख आपके काम आ सकता है। इस लेख में, हम विस्तृत व्याख्याओं के साथ चर्चा करते हैं कि कैसे आप एक्सेल में VBA का उपयोग करके चर नाम के साथ एक कार्यपुस्तिका खोल सकते हैं।

अभ्यास कार्यपुस्तिका डाउनलोड करें

नीचे इस अभ्यास कार्यपुस्तिका को डाउनलोड करें।

VBA.xlsm का उपयोग करके चर नाम के साथ कार्यपुस्तिका खोलें

Sample.xlsx

4 आसान एक्सेल में VBA का उपयोग करके चर नाम के साथ कार्यपुस्तिका खोलने के तरीके

हम प्रदर्शन के लिए नीचे दिए गए डेटासेट का उपयोग करने जा रहे हैं। हमारे पास कई उत्पादों की उत्पाद जानकारी उनकी आईडी के साथ है। यह एक नमूना फ़ाइल है जिसे हम VBA कोड का उपयोग करके खोलने जा रहे हैं।

.Open संपत्ति, हम निर्देशिका का उल्लेख करके, या स्थान का उल्लेख नहीं करके फाइलें खोल सकते हैं। हम खोली गई फ़ाइल को केवल पढ़ने के लिए भी बना सकते हैं।

1.1 फ़ाइल पथ का उल्लेख करते हुए वर्कबुक खोलें

अगली विधि में, हम वर्कबुक.ओपन प्रॉपर्टी का उपयोग करने जा रहे हैं फ़ाइल को सीधे उल्लेखित फ़ाइल स्थान निर्देशिका से खोलने के लिए। कोई फर्क नहीं पड़ता कि फ़ाइल कहाँ स्थित है, हम फ़ाइल खोल सकते हैंजो Sub Open_File_with_Add_Property()

⮚ फिर हम File_Path variable को String type के रूप में घोषित करते हैं।

6907

⮚ और File_Path चर को फ़ाइल के स्थान पर सेट करें।

2892

⮚ हम wb को कार्यपुस्तिका प्रकार में एक चर के रूप में घोषित करते हैं।

4540

⮚ फिर कार्यपुस्तिका को File_Path स्थान में संग्रहीत निर्देशिका से Workbook.Add गुण का उपयोग करके जोड़ा जाता है।

9032

⮚ अंत में, हम समाप्त करते हैं इस कोड की उप-प्रक्रिया।

और पढ़ें: [फिक्स्ड!] वस्तु कार्यपुस्तिकाओं का खुला तरीका विफल (4 समाधान)

निष्कर्ष

इसे सारांशित करने के लिए, हम कैसे VBA का उपयोग करके चर नामों के साथ कार्यपुस्तिकाएँ खोल सकते हैं, इसका उत्तर यहाँ 4 अलग-अलग उदाहरणों द्वारा दिया गया है। VBA मैक्रो विधि को शुरू से समझने के लिए पूर्व VBA-संबंधित ज्ञान की आवश्यकता होती है।

इस समस्या के लिए, एक मैक्रो-सक्षम कार्यपुस्तिका डाउनलोड करने के लिए उपलब्ध है जहां आप अभ्यास कर सकते हैं ये तरीके।

टिप्पणी अनुभाग के माध्यम से कोई भी प्रश्न या प्रतिक्रिया पूछने के लिए स्वतंत्र महसूस करें। Exceldemy समुदाय की बेहतरी के लिए कोई भी सुझाव अत्यंत सराहनीय होगा

चरण

• हमारे पास दस्तावेज़ फ़ोल्डर में एक फ़ाइल संग्रहीत है जिसे हमें खोलने की आवश्यकता है।
• हम फ़ाइल का उपयोग करेंगे एक चर के रूप में नाम और फिर एक छोटे VBA मैक्रो का उपयोग करके फ़ाइल खोलें।
• फ़ाइल की सटीक फ़ाइल निर्देशिका गुण विंडो में नीचे दिखाई गई है।

<1

• सबसे पहले, डेवलपर टैब पर जाएं और विजुअल बेसिक पर क्लिक करें। यदि आपके पास वह नहीं है, तो आपको डेवलपर टैब सक्षम करना होगा । या आप विजुअल बेसिक एडिटर खोलने के लिए ' Alt+F11' दबा सकते हैं।

• फिर एक नया डायलॉग बॉक्स होगा, उस डायलॉग बॉक्स में, इन्सर्ट > मॉड्यूल पर क्लिक करें।

• अगला, मॉड्यूल संपादक विंडो में, निम्न कोड टाइप करें:

5349

• फिर बंद करें मॉड्यूल विंडो।
• उसके बाद, व्यू टैब > मैक्रोज़ पर जाएं। मैक्रोज़ ।

• व्यू मैक्रोज़ पर क्लिक करने के बाद, उस मैक्रोज़ को चुनें जिसे आपने अभी बनाया है। यहाँ नाम Open_with_File_Path है। इसके बाद Run पर क्लिक करें।

• इसके बाद Sample file खुल जाएगी।

🔎 कोड का टूटना

2568

⮚ सबसे पहले, हम उप के लिए एक नाम प्रदान करते हैं- प्रक्रिया जो है Open_with_File_Path ।

9613

⮚ फिर, हम फ़ाइल का स्थान File_Path Variable

4472

⮚ में रखते हैंफिर, हम अपने चर wrkbk की घोषणा करते हैं, जिसका प्रकार एक कार्यपुस्तिका है।

5648

⮚ फिर, हम File_Path निर्देशिका चर में नामित फ़ाइल खोलते हैं और फ़ाइल सेट करते हैं wrkbk चर के रूप में।

7120

⮚ अंत में, हम इस कोड की उप-प्रक्रिया को समाप्त करते हैं।

और पढ़ें: कैसे करें Excel VBA का उपयोग करके पथ से कार्यपुस्तिका खोलें (4 उदाहरण)

1.2 फ़ाइल पथ का उल्लेख किए बिना कार्यपुस्तिका खोलें

अगली विधि में, हम मूल फ़ोल्डर से फ़ाइल खोलेंगे, जहाँ मुख्य फ़ाइल सहेजी गई है। फ़ाइल को कोड में किसी स्थान का उल्लेख किए बिना खोला जा सकता है। यह फ़ाइल केवल मूल फ़ोल्डर के समान फ़ोल्डर में होनी चाहिए। एक्सेल फाइल अब सेव हो गई है।

• सबसे पहले, डेवलपर<7 पर जाएं> टैब पर क्लिक करें और विजुअल बेसिक पर क्लिक करें। यदि आपके पास वह नहीं है, तो आपको डेवलपर टैब सक्षम करना होगा । या आप विजुअल बेसिक एडिटर खोलने के लिए ' Alt+F11 ' भी दबा सकते हैं।

• फिर एक नया डायलॉग बॉक्स होगा, उस डायलॉग बॉक्स में, इन्सर्ट > मॉड्यूल पर क्लिक करें।

• अगला, मॉड्यूल संपादक विंडो में, निम्न कोड टाइप करें:

5192

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

🔎 कोड

8094

⮚ सबसे पहले, हम उप-प्रक्रिया के लिए एक नाम प्रदान करते हैं जो सब ओपन_बिना_फाइल_पाथ()

2394

⮚ हम घोषणा करते हैं wrkbk कार्यपुस्तिका प्रकार

3924

⮚ में एक चर के रूप में हम 1.xlsx नामक मूल निर्देशिका से फ़ाइल खोलते हैं।

6753

⮚ अंत में, हम उप-प्रक्रिया को समाप्त करते हैं इस कोड का।

1.3 केवल पढ़ने के लिए कार्यपुस्तिका खोलें

यह विधि पहली विधि के समान है, लेकिन यहां हम फ़ाइल को रीड-ओनली मोड में खोलेंगे, जिसका अर्थ है कि हम नहीं करेंगे एक्सेल फ़ाइल में किसी भी डेटा या मान को बदलने में सक्षम।

चरण

• जिस फ़ाइल को हम खोलना चाहते हैं वह दस्तावेज़ फ़ोल्डर में सहेजी जाती है।
• और यह वह फ़ाइल है जिसे हम केवल पढ़ने के लिए खोलना चाहते हैं।

• सबसे पहले, डेवलपर पर जाएं टैब पर क्लिक करें और विजुअल बेसिक<7 पर क्लिक करें>। यदि आपके पास वह नहीं है, तो आपको डेवलपर टैब सक्षम करना होगा । या आप Visual Basic Editor खोलने के लिए ' Alt+F11 ' भी दबा सकते हैं।

• फिर एक नया डायलॉग बॉक्स में, उस डायलॉग बॉक्स में पर क्लिक करेंडालें > मॉड्यूल ।

• अगला, मॉड्यूल संपादक विंडो में, टाइप करें निम्नलिखित कोड:

2629

• फिर मॉड्यूल विंडो बंद करें।
• उसके बाद, देखें टैब > मैक्रोज़ ।
• इसके बाद व्यू मैक्रोज़ पर क्लिक करें।

• व्यू पर क्लिक करने के बाद मैक्रोज़, उन मैक्रोज़ का चयन करें जिन्हें आपने अभी बनाया है। यहाँ नाम Open_with_File_Read_Only है। इसके बाद Run पर क्लिक करें।

• Run पर क्लिक करने के बाद, हम देखेंगे कि फ़ाइल अब खुल गई है जैसा कि रीड-ओनली, जैसा कि टाइटल बार में दिखाया गया है।

  6599

  ⮚ सबसे पहले, हम उप-प्रक्रिया के लिए एक नाम प्रदान करते हैं जो Open_with_File_Read_Only()

  4479

  ⮚ हम wrkbk को वर्कबुक प्रकार में चर के रूप में घोषित करते हैं

  4959

  ⮚ फ़ाइल तब निर्दिष्ट निर्देशिका से खुलेगी, और फ़ाइल को अंतिम तर्क द्वारा केवल पढ़ने के लिए सेट किया जाएगा।

  2275

  ⮚ अंत में, हम समाप्त करते हैं इस कोड की उप-प्रक्रिया।

  और पढ़ें: एक्सेल वीबीए के साथ रीड-ओनली के रूप में कार्यपुस्तिका कैसे खोलें

  2. संदेश बॉक्स का उपयोग करना

  पिछली पद्धति के लगभग समान, हम यहाँ एक्सेल में VBA कोड के माध्यम से फ़ाइलें खोल सकते हैं, लेकिन इस मामले में, हम यहाँ एक छोटा संदेश बॉक्स शामिल करेंगे।

  चरण

  • सबसे पहले डेवलपर टैब पर जाएं और विजुअल बेसिक पर क्लिक करें। यदि आपके पास वह नहीं है, तो आपको सक्षम करना होगाडेवलपर टैब । या आप विज़ुअल बेसिक एडिटर खोलने के लिए ' Alt+F11' दबा सकते हैं।

  

  • फिर एक नया डायलॉग बॉक्स होगा, उस डायलॉग बॉक्स में, इन्सर्ट > मॉड्यूल पर क्लिक करें।

  

  • अगला, मॉड्यूल संपादक विंडो में, निम्न कोड टाइप करें:

  7897

  

  • फिर बंद करें मॉड्यूल विंडो।
  • उसके बाद, व्यू टैब > मैक्रोज़ पर जाएं। मैक्रोज़ ।

  

  • व्यू मैक्रोज़ पर क्लिक करने के बाद, उस मैक्रोज़ को चुनें जिसे आपने अभी बनाया है। यहाँ नाम Open_File_with_Messege_Box है। इसके बाद रन पर क्लिक करें। 7>.
  • फिर ओके पर क्लिक करें।

  

  • और फिर हम देखेंगे कि फाइल अब है open.

  

  • और फिर हम कोड को थोड़ा बदलने की कोशिश करते हैं।
  • हम फाइल का नाम बदलकर कर देते हैं नमूना10 , और वास्तव में दस्तावेज़ फ़ोल्डर में नमूना10 नामक कोई फ़ाइल नहीं है।

  

  • फिर हम कोड फिर से चलाएँ, और वहाँ एक संदेश बॉक्स है जो कह रहा है फ़ाइल का खोलना विफल।
  • इसके बाद ठीक क्लिक करें।

  

  🔎 कोड का विश्लेषण

  9986

  ⮚ सबसे पहले, हम उप-प्रक्रिया के लिए एक नाम प्रदान करते हैं जो है Open_with_File_Read_Only()

  3448

  ⮚ हमवर्कबुक टाइप

  5441

  9021

  ⮚ में वेरिएबल के रूप में wrkbk डिक्लेअर करें। फ़ाइल खोलें और उसी समय संदेश दिखाएगा।

  3130

  ⮚ यदि निर्देशिका में नमूना नाम की कोई फ़ाइल नहीं है, तो यह संदेश वितरित किया जाएगा।

  7631

  ⮚ अंत में, हम इस कोड की उप-प्रक्रिया को समाप्त करते हैं।

  3792

  ⮚ अंत में, हम इस कोड की उप-प्रक्रिया को समाप्त करते हैं।

  और पढ़ें: VBA का उपयोग करके वर्कबुक कैसे खोलें और मैक्रो कैसे चलाएँ (4 उदाहरण)

  3. फ़ाइल खोलने के लिए डायलॉग बॉक्स का उपयोग

  फ़ाइल स्थान निर्देशिका को निकालना और उन्हें हर बार आयात करना वीबीए कोड में काफी बोझिल है। समस्या को हल करने के लिए, हम दिखाएंगे कि आप किसी भी निर्देशिका से फ़ाइल का चयन करने के लिए डायलॉग बॉक्स का उपयोग कैसे कर सकते हैं।

  चरण

  • अब हम फ़ाइल खोलेंगे फाइल एक्सप्लोरर डायलॉग बॉक्स का इस्तेमाल करते हुए।
  • सबसे पहले, डेवलपर टैब पर जाएं और विजुअल बेसिक पर क्लिक करें। यदि आपके पास वह नहीं है, तो आपको डेवलपर टैब सक्षम करना होगा । या आप विजुअल बेसिक एडिटर खोलने के लिए ' Alt+F11' दबा सकते हैं।

  

  • फिर एक नया डायलॉग बॉक्स होगा, उस डायलॉग बॉक्स में, इन्सर्ट > मॉड्यूल पर क्लिक करें।

  

  • अगला, मॉड्यूल संपादक विंडो में, निम्न कोड टाइप करें:

  3722

  • फिर मॉड्यूल बंद करें विंडो।
  • उसके बाद, व्यू टैब > मैक्रोज़ पर जाएं।>.

  

  यह सभी देखें: एक्सेल में टेक्स्ट को नंबर में बल्क कन्वर्ट कैसे करें (6 तरीके)
  • व्यू मैक्रोज़ पर क्लिक करने के बाद, अभी-अभी बनाए गए मैक्रोज़ को चुनें। यहाँ नाम Open_File_with_Dialog_Box है। इसके बाद रन पर क्लिक करें।

  

  • और फिर एक नई विंडो खुलती है। फ़ाइल एक्सप्लोरर संवाद बॉक्स में और नमूना का चयन करें और ठीक पर क्लिक करें।

  

  • फिर नामित फ़ाइल नमूना खोला गया।
  • और इस तरह हम एक्सेल में VBA का उपयोग करके चर नाम के साथ कार्यपुस्तिका खोलते हैं।

  

  🔎 कोड का विश्लेषण

  6241

  ⮚ सबसे पहले, हम उप-प्रक्रिया के लिए एक नाम प्रदान करते हैं जो उप Open_File_with_Dialog_Box()

  है

  8760

  ⮚ हम Dbox FileDialog type

  यह सभी देखें: एक्सेल में दो कॉलम कैसे जोड़े (2 उपयुक्त तरीके)

  8319

  ⮚ में एक वेरिएबल के रूप में Dbox घोषित करते हैं File_Path <6 में वेरिएबल के रूप में हम घोषित करते हैं>File_Path As String type

  9661

  ⮚ पहली लाइन से एक डायलॉग बॉक्स होगा। अगली पंक्ति डायलॉग बॉक्स के नाम और फ़ाइल प्रकार को दर्शाती है।

  ⮚ Dbox.Title डायलॉग बॉक्स का शीर्षक सेट करेगा। और FileType फ़ाइल प्रकार सेट करें।

  9644

  ⮚ Dbox.Filters.Clear डायलॉग बॉक्स में लागू किए गए किसी भी पिछले फ़िल्टर को साफ़ कर देगा

  8056

  ⮚ Dbox.Show डायलॉग बॉक्स को फ़ाइल पर प्रदर्शित करेगा।

  ⮚ यह पंक्ति निर्धारित करेगी कि उपयोगकर्ता ने एक से अधिक फ़ाइल का चयन किया है या नहीं। यदि उपयोगकर्ता इससे अधिक का चयन करता हैएक फ़ाइल, पूरी प्रक्रिया बंद हो जाएगी।

  3784

  ⮚ अंत में, हम इस कोड की उप-प्रक्रिया को समाप्त करते हैं।

  और पढ़ें: कैसे खोलें Excel VBA का उपयोग करके फ़ोल्डर और फ़ाइल का चयन करें (4 उदाहरण)

  4. वर्कबुक का उपयोग करना। संपत्ति जोड़ें

  पिछले तरीकों के विपरीत, हम एक पूर्व निर्धारित निर्देशिका में एक नई एक्सेल फ़ाइल बनाएंगे और फिर हम इसे वर्कबुक का उपयोग करके खोलेंगे। Add property.

  Steps

  • सबसे पहले, Developer tab पर जाएं और Visual Basic<पर क्लिक करें। 7>। यदि आपके पास वह नहीं है, तो आपको डेवलपर टैब सक्षम करना होगा । या आप विजुअल बेसिक एडिटर खोलने के लिए ' Alt+F11' दबा सकते हैं।

  

  • फिर एक नया डायलॉग बॉक्स होगा, उस डायलॉग बॉक्स में, इन्सर्ट > मॉड्यूल पर क्लिक करें।

  

  अगला, मॉड्यूल संपादक विंडो में, निम्न कोड टाइप करें:

  6100

  • फिर मॉड्यूल विंडो बंद करें।
  • बाद कि, देखें टैब > मैक्रोज़ पर जाएं।
  • फिर मैक्रोज़ देखें पर क्लिक करें।

  

  • व्यू मैक्रोज़ पर क्लिक करने के बाद, अभी-अभी बनाए गए मैक्रोज़ को चुनें। यहाँ नाम Open_File_with_Add_Property है। इसके बाद रन क्लिक करें। निर्मित और खोला गया। उप-प्रक्रिया के लिए एक नाम