यह आलेख आपको दिखाएगा कि वीबीए में ऑब्जेक्ट बनाएं विधि का उपयोग कैसे करें।
वीबीए एक वस्तु उन्मुख भाषा है - यह वस्तुओं को नियंत्रित करने और बनाने के लिए प्रक्रियाओं का उपयोग करता है।
वस्तु बनाएँ
हम माइक्रोसॉफ्ट ऑफिस एप्लिकेशन में ऑब्जेक्ट बनाने के लिए ऑब्जेक्ट बनाएं विधि का उपयोग कर सकते हैं। उदाहरण के लिए, यदि हम एक्सेल में वीबीए कोड लिख रहे हैं, और वर्ड की एक कॉपी खोलना चाहते हैं, तो हम वर्ड का एक नया इंस्टेंस बनाने के लिए क्रिएट ऑब्जेक्ट मेथड का उपयोग कर सकते हैं।
उदाहरण के लिए:
| 12345 | उप CreateWordInstance ()वस्तु के रूप में मंद wdAppwdApp सेट करें = CreateObject ("Word.Application")wdApp.Visible = Trueअंत उप |
इसी तरह, हम PowerPoint या Access का एक नया उदाहरण बना सकते हैं।
| 12345 | सब क्रिएटपावरपॉइंटएप्लिकेशनवस्तु के रूप में मंद पीपीएपppApp सेट करें = CreateObject ("PowerPoint.Application")ppApp.विजिबल = ट्रूअंत उप |
हम एप्लिकेशन ऑब्जेक्ट के अलावा अन्य ऑब्जेक्ट बनाने के लिए क्रिएट ऑब्जेक्ट का भी उपयोग कर सकते हैं। उदाहरण के लिए हम इसका उपयोग एक्सेल शीट बनाने के लिए कर सकते हैं।
| 1234567 | उप CreateExcelSheet ()वस्तु के रूप में मंद xlSheetxlSheet सेट करें = CreateObject ("Excel.Sheet")xlSheet.Application.Visible = TruexlSheet.Application.Range("A2") = "गुड मॉर्निंग"xlSheet सेट करें = कुछ नहींअंत उप |
हालांकि, यह वास्तव में एक्सेल का एक नया उदाहरण बनाता है - यह उस उदाहरण में शीट नहीं बनाता है जो पहले से खुला है। उस कारण से, हमें ऑब्जेक्ट को देखने के लिए नई शीट के एप्लिकेशन (यानी: एक्सेल का नया उदाहरण) को विज़िबल पर सेट करना होगा।
उपरोक्त सभी उदाहरणों में, हम लेट बाइंडिंग का उपयोग कर रहे हैं - इसलिए हम वेरिएबल्स को ऑब्जेक्ट के रूप में घोषित करते हैं। हम अपने वीबीए प्रोजेक्ट में वर्ड या पावरपॉइंट का संदर्भ सेट करके और फिर नीचे दिखाए गए उप प्रक्रिया को लिखकर अर्ली बाइंडिंग का भी उपयोग कर सकते हैं। लेट और अर्ली बाइंडिंग के बारे में अधिक समझने के लिए, यहां क्लिक करें।
सबसे पहले अर्ली बाइंडिंग के लिए, वीबीई के भीतर, हम माइक्रोसॉफ्ट वर्ड के लिए एक संदर्भ सेट करते हैं।
में मेन्यू बार, चुनें उपकरण > संदर्भ और का संदर्भ खोजने के लिए नीचे स्क्रॉल करें माइक्रोसॉफ्ट वर्ड 16.0 ऑब्जेक्ट लाइब्रेरी.
सुनिश्चित करें कि संदर्भ की जाँच की गई है, और फिर क्लिक करें ठीक है।
नोट: संस्करण 16.0 नहीं हो सकता है, यह सब इस बात पर निर्भर करता है कि आप अपने पीसी पर माइक्रोसॉफ्ट ऑफिस का कौन सा संस्करण चला रहे हैं!
अब, हम अर्ली बाइंडिंग का उपयोग करके ऑब्जेक्ट को घोषित करते हैं - इसका मतलब है कि, wdApp को ऑब्जेक्ट के रूप में घोषित करने के बजाय, हम इसे एक के रूप में घोषित करते हैं शब्द। आवेदन। बाकी कोड वही है जब हमने ऊपर लेट बाइंडिंग का इस्तेमाल किया था।
| 12345 | उप CreateWordInstance ()नए शब्द के रूप में मंद wdApp। आवेदनwdApp सेट करें = CreateObject ("Word.Application")wdApp.Visible = Trueअंत उप |
