VO में CreateObject फ़ंक्शन
वीबीए कोडिंग में ऑब्जेक्ट्स बहुत महत्वपूर्ण अवधारणाएं हैं, और यह समझना कि किसी वस्तु का कार्य मॉडल काफी जटिल है। जब हम VBA कोडिंग में वस्तुओं का संदर्भ देते हैं, तो हम इसे दो तरीकों से करते हैं, जैसे कि, "अर्ली बाइंडिंग" और "लेट बाइंडिंग।" "अर्ली बाइंडिंग" VBA के संदर्भ पुस्तकालय से ऑब्जेक्ट संदर्भ सेट करने की प्रक्रिया है, और जब हम फ़ाइल को किसी और को भेजते हैं, तो उन्हें उन संबंधित वस्तुओं के संदर्भ को सेट करने की भी आवश्यकता होती है। हालाँकि, "लेट बाइंडिंग" के लिए उपयोगकर्ता को किसी ऑब्जेक्ट संदर्भ को सेट करने की आवश्यकता नहीं होती है, क्योंकि देर से बाइंडिंग कोडिंग में, हम संबंधित ऑब्जेक्ट को VBA "CreateObject" फ़ंक्शन का उपयोग करके सेट करते हैं।
एक्सेल VBA में CreateObject क्या है?
"ऑब्जेक्ट बनाएँ" जैसा कि नाम से ही कहा गया है कि यह एक्सेल VBA से उल्लिखित ऑब्जेक्ट बनाएगा। इसलिए, ऑब्जेक्ट बनाएँ फ़ंक्शन एक सक्रिय एक्स घटक द्वारा शुरू किए गए ऑब्जेक्ट के संदर्भ को वापस करता है।
नीचे VBA में CreateObject फ़ंक्शन का सिंटैक्स है
- वर्ग: उस वस्तु का नाम जिसे हम चर के संदर्भ में आरंभ और सेट करने का प्रयास कर रहे हैं।
- (सर्वर नाम): यह एक वैकल्पिक पैरामीटर है; अगर नजरअंदाज किया जाता है, तो यह स्थानीय मशीन का ही उपयोग करेगा।
एक्सेल VBA में ऑब्जेक्ट ऑब्जेक्ट फ़ंक्शन का उदाहरण
नीचे VBA CreateObject के उदाहरण दिए गए हैं।
उदाहरण 1
अब हम देखेंगे कि VBA में CreateObject फ़ंक्शन का उपयोग करके एक्सेल से PowerPoint एप्लिकेशन कैसे शुरू करें। एक्सेल फ़ाइल खोलें और ALT + F11 कुंजी दबाकर विज़ुअल बेसिक एडिटर विंडो पर जाएं ।
कोड:
उप CreateObject_Example1 () सब उप
चर को PowerPoint.Application के रूप में घोषित करें।
जैसा कि आप ऊपर देख सकते हैं, जब हम "PowerPoint" शब्द लिखना शुरू करते हैं, तो हम संबंधित खोजों को दिखाने वाली कोई IntelliSense सूची नहीं देखते हैं। ऐसा इसलिए है क्योंकि "PowerPoint" एक बाहरी वस्तु है। लेकिन चिंता की कोई बात नहीं है कि चर को "ऑब्जेक्ट" घोषित करें।
कोड:
उप CreateObject_Example1 () ऑब्जेक्ट अंत उप के रूप में मंद PPT
चूंकि हमने चर को "ऑब्जेक्ट" के रूप में घोषित किया है, इसलिए हमें "सेट" कीवर्ड का उपयोग करके ऑब्जेक्ट के संदर्भ को सेट करना होगा। "सेट" कीवर्ड दर्ज करके, चर का उल्लेख करें, और एक समान चिह्न डालें।
कोड:
उप CreateObject_Example1 () ऑब्जेक्ट PPT के रूप में मंद PPT = उप उप
अब CreateObject फ़ंक्शन खोलें।
चूँकि हम बनाएँ ऑब्जेक्ट फ़ंक्शन के "क्लास" पैरामीटर के लिए "PowerPoint" के बाहरी ऑब्जेक्ट को संदर्भित कर रहे हैं , इसलिए डबल्स उद्धरणों में बाहरी ऑब्जेक्ट का नाम "PowerPoint.Application" के रूप में उल्लेख करें।
कोड:
उप CreateObject_Example1 () ऑब्जेक्ट PPT के रूप में मंद PPT = CreateObject ("PowerPoint.Application") समाप्ति उप
अब Create Object फ़ंक्शन PowerPoint एप्लिकेशन को आरंभ करेगा। एक बार जब ऑब्जेक्ट शुरू हो जाता है, तो हमें चर नाम का उपयोग करके इसे दिखाई देने की आवश्यकता होती है।
ऑब्जेक्ट बनाने की विधि या देर से बाध्यकारी विधि के साथ समस्याओं में से एक यह है कि हमें समय पर IntelliSense सूची देखने को नहीं मिलती है। आपको उस कोड के बारे में पूरी तरह से सुनिश्चित होना चाहिए जो आप लिख रहे हैं।
चर "PPT" के लिए, "दृश्यमान" गुण का उपयोग करें और "True" के रूप में स्थिति सेट करें।
कोड:
उप CreateObject_Example1 () ऑब्जेक्ट PPT के रूप में मंद PPT = CreateObject ("PowerPoint.Application") PPT.Vouble = True End उप
PPT में स्लाइड जोड़ने के लिए, नीचे दी गई लाइन VBA कोड को परिभाषित करें।
कोड:
उप CreateObject_Example1 () ऑब्जेक्ट PPT के रूप में मंद PPT = CreateObject ("PowerPoint.Application") PPT.Vanish = True PPT.Presentations.Add End Sub
अब कोड को मैन्युअल रूप से या F5 कुंजी के माध्यम से निष्पादित करें और देखें "PowerPoint" एप्लिकेशन खुलता है।
एक बार जब पावरपॉइंट एप्लिकेशन चर "पीपीटी" का उपयोग कर सक्षम हो जाता है, तो हम पावरपॉइंट एप्लिकेशन को एक्सेस करना शुरू कर सकते हैं।
उदाहरण # 2
अब हम देखेंगे कि VBA में CreateObject फ़ंक्शन का उपयोग करके एक्सेल एप्लिकेशन कैसे शुरू करें। एक बार फिर, चर को "ऑब्जेक्ट" घोषित करें।
कोड:
उप CreateObject_Example2 () ऑब्जेक्ट अंत उप के रूप में मंद एक्सेलशीट
The moment we declare the variable as an object, it causes late binding, and we need to use the “Set” keyword to set the reference for the required object.
Since we are referencing to excel worksheet from the application excel, enter “Excel. Sheet” in double-quotes.
Code:
Sub CreateObject_Example2() Dim ExcelSheet As Object Set ExcelSheet = CreateObject("Excel.Sheet") End Sub
Once the reference for the excel sheet is set, we need to make it visible to use it. This is similar to how we made the PowerPoint application visible.
Code:
Sub CreateObject_Example2() Dim ExcelSheet As Object Set ExcelSheet = CreateObject("Excel.Sheet") ExcelSheet.Application.Visible = True End Sub
Now it will activate the excel worksheet.
Similarly, to initiate an excel workbook from other Microsoft products, we can use the below code.
Code:
उप CreateObject_Example3 () ऑब्जेक्ट ExlWb = CreateObject ("Excel.Application") के रूप में मंद ExlWb ExlWb.Application.Vouble = True End उप
VBA में CreateObject के बारे में याद रखने वाली बातें
- VBA में, CreateObject फ़ंक्शन का उपयोग ऑब्जेक्ट्स को संदर्भित करने के लिए किया जाता है।
- ऑब्जेक्ट फ़ंक्शन बनाएँ एक देर से बाध्यकारी प्रक्रिया का कारण बनता है।
- बनाएँ ऑब्जेक्ट फ़ंक्शन का उपयोग करते हुए, हमें VBA की IntelliSense सूची तक पहुंचने की अनुमति नहीं है।
