साहजिकच, आम्हाला वेगळ्या निर्देशिकेत VBA वापरून मूळ एक्सेल फाइलमधून फाइल उघडण्याची आवश्यकता असू शकते. परंतु त्याच वेळी, आम्हाला कार्यपुस्तिका कशी उघडायची आहे याबद्दल आमच्याकडे विविध प्रकारचे निकष आहेत. जर तुम्ही व्हेरिएबल नावाने वर्कबुक कसे उघडू शकता हे जाणून घेण्यास उत्सुक असाल, तर हा लेख तुमच्यासाठी उपयुक्त ठरू शकतो. या लेखात, आम्ही एक्सेलमध्ये व्हीबीए वापरून व्हेरिएबल नावासह कार्यपुस्तिका कशी उघडू शकता याबद्दल विस्तृत स्पष्टीकरणांसह चर्चा करू.

सराव कार्यपुस्तिका डाउनलोड करा

खालील सराव कार्यपुस्तिका डाउनलोड करा.

VBA.xlsm वापरून व्हेरिएबल नावासह कार्यपुस्तिका उघडा

Sample.xlsx

4 सोपे एक्सेलमध्ये VBA वापरून व्हेरिएबल नावासह वर्कबुक उघडण्याचे मार्ग

आम्ही प्रात्यक्षिकासाठी खालील डेटासेट वापरणार आहोत. आमच्याकडे त्यांच्या आयडीसह अनेक उत्पादनांची उत्पादन माहिती आहे. ही एक नमुना फाइल आहे जी आम्ही VBA कोड वापरून उघडणार आहोत.

1. वर्कबुक वापरणे. प्रॉपर्टी उघडा

वर्कबुक वापरणे .ओपन प्रॉपर्टी, आम्ही डिरेक्टरीचा उल्लेख करून किंवा स्थानाचा उल्लेख न करून फाइल्स उघडू शकतो. आम्ही उघडलेली फाईल केवळ वाचनीय बनवू शकतो.

1.1 फाईल पाथचा उल्लेख करणारे वर्कबुक उघडा

पुढील पद्धतीमध्ये, आपण वर्कबुक. ओपन प्रॉपर्टी वापरणार आहोत. नमूद केलेल्या फाइल स्थान निर्देशिकेतून थेट फाइल उघडण्यासाठी. फाईल कुठेही असली तरी आपण ती फाईल उघडू शकतोजे आहे Sub Open_File_with_Add_Property()

⮚ नंतर आपण File_Path व्हेरिएबल स्ट्रिंग प्रकार म्हणून घोषित करतो.

7220

⮚ आणि File_Path व्हेरिएबल फाइलच्या स्थानावर सेट करा.

6372

⮚ आम्ही वर्कबुक प्रकार <1 मध्ये wb व्हेरिएबल म्हणून घोषित करतो>

5643

⮚ नंतर Workbook.Add गुणधर्म वापरून File_Path स्थानामध्ये संचयित केलेल्या निर्देशिकेतून कार्यपुस्तिका जोडली जाते.

4157

⮚ शेवटी, आम्ही समाप्त करतो. या कोडची उप-प्रक्रिया.

अधिक वाचा: [निश्चित!] पद्धत ऑब्जेक्ट वर्कबुक उघडणे अयशस्वी (4 उपाय)

निष्कर्ष

याचा सारांश, व्हीबीए वापरून व्हेरिएबल नावांसह कार्यपुस्तिका कशी उघडता येईल या समस्येचे उत्तर येथे ४ भिन्न उदाहरणांद्वारे दिले आहे. VBA मॅक्रो पद्धतीला सुरवातीपासून समजून घेण्यासाठी पूर्वीचे VBA-संबंधित ज्ञान आवश्यक आहे.

या समस्येसाठी, मॅक्रो-सक्षम कार्यपुस्तिका डाउनलोड करण्यासाठी उपलब्ध आहे जिथे तुम्ही सराव करू शकता. या पद्धती.

टिप्पणी विभागाद्वारे कोणतेही प्रश्न किंवा अभिप्राय विचारण्यास मोकळ्या मनाने. Exceldemy समुदायाच्या सुधारणेसाठी कोणतीही सूचना अत्यंत प्रशंसनीय असेल

चरण

• आमच्याकडे दस्तऐवज फोल्डरमध्ये एक फाइल संग्रहित आहे जी आम्हाला उघडायची आहे.
• आम्ही फाइल वापरू व्हेरिएबल म्हणून नाव द्या आणि नंतर लहान VBA मॅक्रो वापरून फाइल उघडा.
• फाइलची अचूक फाइल निर्देशिका खाली गुणधर्म विंडोमध्ये दर्शविली आहे.

<1

• प्रथम, डेव्हलपर टॅबवर जा आणि Visual Basic वर क्लिक करा. तुमच्याकडे ते नसल्यास, तुम्हाला डेव्हलपर टॅब सक्षम करावे लागेल . किंवा तुम्ही Visual Basic Editor उघडण्यासाठी ' Alt+F11' दाबा.

• त्यानंतर एक नवीन डायलॉग बॉक्स येईल, त्या डायलॉग बॉक्समध्ये Insert > Module वर क्लिक करा.

• पुढे, मॉड्यूल संपादक विंडोमध्ये, खालील कोड टाइप करा:

3460

• नंतर <बंद करा 6>मॉड्युल विंडो.
• त्यानंतर, View टॅबवर जा > मॅक्रो .
• नंतर View वर क्लिक करा मॅक्रो .

• मॅक्रो पहा, वर क्लिक केल्यानंतर तुम्ही आत्ताच तयार केलेले मॅक्रो निवडा. येथे नाव आहे Open_with_File_Path . नंतर रन क्लिक करा.

• त्यानंतर नमुना फाइल उघडेल.

🔎 कोडचे ब्रेकडाउन

1111

⮚ प्रथम, आम्ही उप-साठी नाव देतो प्रक्रिया जी Open_with_File_Path आहे.

7207

⮚ नंतर, आम्ही फाइलचे स्थान File_Path व्हेरिएबल

6858

⮚ मध्ये ठेवतो.त्यानंतर, आम्ही आमचे व्हेरिएबल wrkbk घोषित करतो, ज्याचा प्रकार वर्कबुक आहे.

5735

⮚ त्यानंतर, आम्ही File_Path डिरेक्टरी व्हेरिएबलमध्ये नाव असलेली फाइल उघडतो आणि फाइल सेट करतो. wrkbk व्हेरिएबल म्हणून.

3885

⮚ शेवटी, आम्ही या कोडची उप-प्रक्रिया समाप्त करतो.

अधिक वाचा: कसे Excel VBA वापरून पाथमधून वर्कबुक उघडा (4 उदाहरणे)

1.2 फाईल पाथचा उल्लेख न करता वर्कबुक उघडा

पुढील पद्धतीमध्ये, आम्ही मूळ फोल्डरमधून फाइल उघडू, जिथे मुख्य फाईल सेव्ह केली आहे. कोडमध्ये कोणत्याही स्थानाचा उल्लेख न करता फाइल उघडता येते. ही फाईल मूळ फोल्डर सारख्याच फोल्डरमध्ये असणे आवश्यक आहे.

चरण

• आमच्याकडे त्याच निर्देशिकेत एक वेगळी फाइल जतन केलेली आहे जिथे पालक एक्सेल फाइल आता सेव्ह केली आहे.
• फाइलचे नाव 1 आहे.

• प्रथम, डेव्हलपर<7 वर जा> टॅब आणि Visual Basic वर क्लिक करा. तुमच्याकडे ते नसल्यास, तुम्हाला डेव्हलपर टॅब सक्षम करावे लागेल . किंवा तुम्ही Visual Basic Editor उघडण्यासाठी ' Alt+F11 ' देखील दाबू शकता.

• त्यानंतर एक नवीन डायलॉग बॉक्स येईल, त्या डायलॉग बॉक्समध्ये Insert > Module वर क्लिक करा.

• पुढे, मॉड्यूल संपादक विंडोमध्ये, खालील कोड टाइप करा:

3602

• नंतर <बंद करा 6>मॉड्युल विंडो.
• त्यानंतर, View टॅबवर जा > मॅक्रो .
• नंतर View वर क्लिक करामॅक्रो .

• View Macros वर क्लिक केल्यानंतर, तुम्ही आत्ताच तयार केलेले मॅक्रो निवडा. येथे नाव आहे Open_without_File_Path . त्यानंतर Run वर क्लिक करा.

• Run दाबल्यानंतर, तुमच्या लक्षात येईल की 1 नावाची फाईल आता उघडली आहे.
• आणि अशा प्रकारे आपण Excel मध्ये VBA वापरून व्हेरिएबल नावाने कार्यपुस्तिका उघडतो.

🔎 ब्रेकडाउन कोड

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

9894

⮚ आम्ही घोषित करतो wrkbk वर्कबुक प्रकारात व्हेरिएबल म्हणून

1980

⮚ आम्ही 1.xlsx नावाच्या पॅरेंट डिरेक्टरीमधून फाइल उघडतो.

5437

⮚ शेवटी, आम्ही उप-प्रक्रिया समाप्त करतो. या कोडचे.

1.3 वर्कबुक ओन्ली रीड ओन्ली म्हणून उघडा

पद्धत पहिल्या पद्धतीसारखीच आहे, परंतु येथे आपण फाईल केवळ-वाचनीय मोडमध्ये उघडू, म्हणजे आपण असे करणार नाही. Excel फाइलमधील कोणताही डेटा किंवा मूल्य बदलण्यास सक्षम.

चरण

• आम्ही उघडू इच्छित असलेली फाइल दस्तऐवज फोल्डरमध्ये सेव्ह केली आहे.
14 टॅब आणि Visual Basic<7 वर क्लिक करा>. तुमच्याकडे ते नसल्यास, तुम्हाला डेव्हलपर टॅब सक्षम करावे लागेल . किंवा तुम्ही Visual Basic Editor उघडण्यासाठी ' Alt+F11 ' देखील दाबू शकता.

• मग एक नवीन असेल डायलॉग बॉक्समध्ये, त्या डायलॉग बॉक्समध्ये, वर क्लिक कराघाला > मॉड्युल .

• पुढे, मॉड्यूल संपादक विंडोमध्ये, टाइप करा खालील कोड:

9251

• नंतर मॉड्युल विंडो बंद करा.
• त्यानंतर, View टॅब > वर जा. मॅक्रो .
• नंतर मॅक्रो पहा वर क्लिक करा.

• व्यू क्लिक केल्यानंतर मॅक्रो, तुम्ही आत्ताच तयार केलेले मॅक्रो निवडा. येथे नाव आहे Open_with_File_Read_Only . नंतर Run वर क्लिक करा.

• रन वर क्लिक केल्यानंतर, फाइल आता उघडलेली दिसेल. केवळ वाचनीय म्हणून, शीर्षक पट्टीमध्ये दर्शविल्याप्रमाणे.

🔎 कोडचे ब्रेकडाउन

2284

⮚ प्रथम, आम्ही उप-प्रक्रियेसाठी एक नाव प्रदान करतो जे आहे Open_with_File_Read_Only()

8842

⮚ आम्ही wrkbk वर्कबुक प्रकारात व्हेरिएबल म्हणून घोषित करतो

9134

⮚ फाइल नंतर नियुक्त निर्देशिकेतून उघडेल, आणि फाइल शेवटच्या युक्तिवादानुसार रीड-ओन्ली सेट केली जाईल.

5656

⮚ शेवटी, आम्ही समाप्त करतो या कोडची उप-प्रक्रिया.

अधिक वाचा: एक्सेल VBA सह केवळ वाचनीय म्हणून वर्कबुक कसे उघडायचे

2. मेसेज बॉक्स वापरणे

मागील पद्धतीप्रमाणेच, आम्ही येथे एक्सेलमध्ये VBA कोडद्वारे फाइल्स उघडू शकतो, परंतु या प्रकरणात, आम्ही येथे एक लहान संदेश बॉक्स समाविष्ट करू.

चरण

• प्रथम, डेव्हलपर टॅबवर जा आणि Visual Basic वर क्लिक करा. तुमच्याकडे ते नसल्यास, तुम्हाला सक्षम करावे लागेलविकसक टॅब . किंवा तुम्ही Visual Basic Editor उघडण्यासाठी ' Alt+F11' दाबा.

• त्यानंतर एक नवीन डायलॉग बॉक्स येईल, त्या डायलॉग बॉक्समध्ये Insert > Module वर क्लिक करा.

• पुढे, मॉड्यूल संपादक विंडोमध्ये, खालील कोड टाइप करा:

4419

• नंतर <बंद करा 6>मॉड्युल विंडो.
• त्यानंतर, View टॅबवर जा > मॅक्रो .
• नंतर View वर क्लिक करा मॅक्रो .

• मॅक्रो पहा, वर क्लिक केल्यानंतर तुम्ही आत्ताच तयार केलेले मॅक्रो निवडा. येथे नाव आहे Open_File_with_Messege_Box . नंतर रन वर क्लिक करा.

• मग आम्हाला चेतावणी बॉक्स मिळाला, जो फाइल यशस्वीरित्या उघडली आहे<असे दर्शवत आहे. 7>.
• नंतर ठीक आहे वर क्लिक करा.

• आणि नंतर आपण पाहू की फाइल आता आहे. उघडा.

• आणि नंतर आम्ही कोडमध्ये थोडासा बदल करण्याचा प्रयत्न करतो.
• आम्ही फाईलचे नाव असे बदलतो नमुना10 , आणि प्रत्यक्षात दस्तऐवज फोल्डरमध्ये Sample10 नावाची फाइल नाही.

• मग आम्ही कोड पुन्हा चालवा, आणि तेथे एक मेसेज बॉक्स दिसेल की फाइल उघडणे अयशस्वी .
• यानंतर ओके क्लिक करा.

🔎 संहितेचे ब्रेकडाउन

7312

⮚ प्रथम, आम्ही उप-प्रक्रियेसाठी एक नाव प्रदान करतो जे आहे Open_with_File_Read_Only()

2440

⮚ आम्ही wrkbk वर्कबुक प्रकार ५५६८<१>८२२०८६३२

⮚ ही ओळ तपासेल की सॅम्पल नावाची फाइल डिरेक्टरीमध्ये उपलब्ध आहे की नाही, जर फाइल असेल तर फाइल उघडा आणि त्याच वेळी संदेश दर्शवेल.

3986

⮚ निर्देशिकेत नमुना नावाची फाइल नसल्यास, हा संदेश वितरित केला जाईल.

3287

⮚ शेवटी, आम्ही या कोडची उप-प्रक्रिया समाप्त करतो.

6199

⮚ शेवटी, आम्ही या कोडची उप-प्रक्रिया समाप्त करतो.

अधिक वाचा: VBA वापरून वर्कबुक कसे उघडायचे आणि मॅक्रो कसे चालवायचे (4 उदाहरणे)

3. फाइल उघडण्यासाठी डायलॉग बॉक्सचा वापर

फाइल लोकेशन डिरेक्टरी काढणे आणि प्रत्येक वेळी आयात करणे VBA कोड मध्ये खूप अवजड आहे. समस्येचे निराकरण करण्यासाठी, कोणत्याही डिरेक्टरीमधून फाइल निवडण्यासाठी तुम्ही डायलॉग बॉक्स कसा वापरू शकता हे आम्ही दाखवू.

स्टेप्स

• आता आम्ही फाइल उघडू. फाइल एक्सप्लोरर डायलॉग बॉक्स वापरून.
• प्रथम, डेव्हलपर टॅबवर जा आणि Visual Basic वर क्लिक करा. तुमच्याकडे ते नसल्यास, तुम्हाला डेव्हलपर टॅब सक्षम करावे लागेल . किंवा तुम्ही Visual Basic Editor उघडण्यासाठी ' Alt+F11' दाबा.

• त्यानंतर एक नवीन डायलॉग बॉक्स येईल, त्या डायलॉग बॉक्समध्ये Insert > Module वर क्लिक करा.

• पुढे, मॉड्यूल संपादक विंडोमध्ये, खालील कोड टाइप करा:

5024

• नंतर मॉड्यूल बंद करा विंडो.
• त्यानंतर, दृश्य टॅबवर जा > मॅक्रो .
• नंतर मॅक्रो पहा<7 वर क्लिक करा>.

• मॅक्रो पहा, वर क्लिक केल्यानंतर तुम्ही आत्ताच तयार केलेले मॅक्रो निवडा. येथे नाव आहे Open_File_with_Dialog_Box . नंतर रन क्लिक करा.

• आणि नंतर एक नवीन विंडो उघडेल. फाइल एक्सप्लोरर डायलॉग बॉक्समध्ये आणि नमुना निवडा आणि ओके क्लिक करा.

40>

• नंतर फाईलचे नाव नमुना उघडला.
• आणि अशा प्रकारे आपण Excel मध्ये VBA वापरून व्हेरिएबल नावाने कार्यपुस्तिका उघडतो.

🔎 कोडचे ब्रेकडाउन

2376

⮚ प्रथम, आम्ही उप-प्रक्रियेसाठी नाव देतो जे आहे सब ओपन_फाइल_विथ_डायलॉग_बॉक्स()

8458

⮚ आम्ही फाइलडायलॉग प्रकार

4894

⮚ आम्ही फाइल_पथ मध्ये व्हेरिएबल म्हणून घोषित करतो>फाइल_पथ स्ट्रिंग प्रकार

4681

⮚ पहिल्या ओळीतून एक डायलॉग बॉक्स असेल. पुढील ओळ डायलॉग बॉक्सचे नाव आणि फाइल प्रकार दर्शवते.

⮚ Dbox.Title डायलॉग बॉक्सचे शीर्षक सेट करेल. आणि FileType फाइल प्रकार सेट करा.

8502

⮚ Dbox.Filters.Clear डायॉग बॉक्समध्ये लागू केलेले कोणतेही पूर्वीचे फिल्टर साफ करेल

6653

⮚ Dbox.Show फाइलवर डायलॉग बॉक्स दिसेल.

⮚ ही ओळ वापरकर्त्याने एकापेक्षा जास्त फाइल निवडल्या आहेत की नाही हे निर्धारित करेल. वापरकर्त्याने पेक्षा जास्त निवडल्यासएक फाईल, संपूर्ण प्रक्रिया थांबेल.

5457

⮚ शेवटी, आम्ही या कोडची उप-प्रक्रिया समाप्त करतो.

अधिक वाचा: कसे उघडायचे एक्सेल व्हीबीए (4 उदाहरणे) वापरून फोल्डर आणि फाइल निवडा (4 उदाहरणे)

4. वर्कबुक वापरणे. मालमत्ता जोडा

मागील पद्धतींच्या विरूद्ध, आम्ही पूर्वनिश्चित निर्देशिकेत नवीन एक्सेल फाइल तयार करू. आणि मग आपण ते वर्कबुक वापरून उघडू. गुणधर्म जोडा.

चरण

• प्रथम, डेव्हलपर टॅबवर जा आणि Visual Basic<वर क्लिक करा 7>. तुमच्याकडे ते नसल्यास, तुम्हाला डेव्हलपर टॅब सक्षम करावे लागेल . किंवा तुम्ही Visual Basic Editor उघडण्यासाठी ' Alt+F11' दाबा.

• त्यानंतर एक नवीन डायलॉग बॉक्स येईल, त्या डायलॉग बॉक्समध्ये Insert > Module वर क्लिक करा.

पुढे, मॉड्यूल संपादक विंडोमध्ये, खालील कोड टाइप करा:

6862

• नंतर मॉड्यूल विंडो बंद करा.
• नंतर म्हणजे, View टॅबवर जा > मॅक्रो .
• नंतर मॅक्रो पहा वर क्लिक करा.

• मॅक्रो पहा क्लिक केल्यानंतर, तुम्ही आत्ताच तयार केलेले मॅक्रो निवडा. येथे नाव आहे Open_File_with_Add_Property . नंतर रन वर क्लिक करा.

• रन, वर क्लिक केल्यानंतर आता एक नवीन फाईल आल्याचे तुमच्या लक्षात येईल. तयार केले आणि उघडले.

🔎 कोडचे ब्रेकडाउन

⮚ प्रथम, आम्ही प्रदान करतो उप-प्रक्रियेसाठी नाव