वेबपेज या IE में डेटा दर्ज करने के लिए VBA कोड

वेबपेज पर डेटा दर्ज करें
विषयसूची

VBA वेबपेज में डेटा दर्ज करें - VBA GetElementByID फ़ंक्शन का उपयोग करके IE स्वचालन

क्या यह है:

अगर आप यानी ऑटोमेशन करने की कोशिश कर रहे हैं या करने की कोशिश कर रहे हैं VBA का उपयोग करके वेबपेज पर डेटा दर्ज करें तो यह पोस्ट आपके लिए है। हम VBA का उपयोग करके IE में डेटा दर्ज/भरने के तरीके पर चरण दर चरण निर्देश दिखाएंगे।

वेबपेज पर डेटा दर्ज करेंPin

क्यों यह है:

यह तब बहुत मददगार होता है जब आप किसी वेबपेज में नियमित रूप से कई फ़ील्ड दर्ज करना या भरना चाहते हैं। या यदि आप ब्राउज़र के डिफॉल्ट रिमेंबर माई पासवर्ड विकल्प आदि का उपयोग किए बिना एक क्लिक में वेबसाइट पर लॉग इन करना चाहते हैं।

कैसे VBA का उपयोग करके वेबपेज पर डेटा दर्ज करना




इस उदाहरण में हम उपयोग कर रहे हैं एक्सेल वीबीए हालाँकि IE स्वचालन के लिए आप किसी भी VBA समर्थित प्लेटफ़ॉर्म का उपयोग कर सकते हैं।

स्टेप 1: एक्सेल वर्कबुक खोलें और वीबीए कोड बिल्डर (Alt + F11) पर जाएं और एक नया मॉड्यूल खोलें।

वेबपेज पर डेटा दर्ज करें

चरण दो: नीचे दिए गए कोड को कॉपी करें और इसमें पेस्ट करें।

निजी सब wpieautologin()

धुंधला अर्थात जैसा SHDocVw.इंटरनेटएक्सप्लोरर

तय करना यानि = नया SHDocVw.इंटरनेटएक्सप्लोरर

अर्थात.दृश्य = सत्य 

यानी "https://www.askeygeek.com/wp-admin" नेविगेट करें 'हम askeygeek.com एडमिन पेज पर लॉग इन करने का प्रयास कर रहे हैं

करना

करोघटनाएँ

कुंडली जब तक यानी रेडीस्टेट = 4

अर्थात READYSTATE के 5 अलग-अलग स्टेटस कोड हैं, यहां हम स्टेटस 4 का उपयोग कर रहे हैं:

'अप्रारंभीकृत = 0

'लोड हो रहा है = 1

'भरा हुआ = 2

'इंटरैक्टिव =3

'पूर्ण = 4 

पुकारना यानी.Document.GetElementByID(“user_login”).SetAttribute(“value”, “testUser”)

पुकारना यानी.Document.GetElementByID(“user_pass”).SetAttribute(“value”, “testPass12345”)

 'ढूंढने के लिए “ ” टैग हाइपर लिंक और बटन पर क्लिक करें

तय करना AllInputs = ie.Document.getelementsbytagname(“input”) 'आप अपनी इच्छानुसार कोई भी टैगनाम उपयोग कर सकते हैं

    के लिए प्रत्येक हाइपर_लिंक में सभी इनपुट

        अगर हाइपर_लिंक.नाम = “wp-submit” तब 'आप .name, .id आदि का उपयोग कर सकते हैं

            हाइपर_लिंक.क्लिक करें

            बाहर निकलना के लिए

        अंत अगर

    अगला

करना

करोघटनाएँ

कुंडली जब तक यानी रेडीस्टेट = 3

करना

करोघटनाएँ

कुंडली जब तक यानी रेडीस्टेट = 4

अंत विषय

चरण 3रन बटन या F5 पर क्लिक करें। (इसके अलावा आप एक्सेल शीट में एक बटन/आकृति डाल सकते हैं, फिर राइट क्लिक करें और इस मैक्रो को हर बार चलाने के लिए असाइन करें।)

वेबपेज पर डेटा दर्ज करें

नोट्स 1: सुनिश्चित करें कि 'माइक्रोसॉफ्ट इंटरनेट नियंत्रण' टूल - संदर्भ से सक्षम है।

यानी स्वचालनPin

नोट्स 2: GetElement मान खोजने के लिए वेबपेज पर राइट क्लिक करें और स्रोत देखें पर क्लिक करें

टैग द्वारा तत्व प्राप्त करेंPin



Picture of Anson Antony
एंसन एंटनी
एंसन एक योगदानकर्ता लेखक और संस्थापक हैं www.askeygeek.com. कुछ भी नया सीखना हमेशा से उनका जुनून रहा है, ASKEYGEEK.com प्रौद्योगिकी और व्यवसाय के प्रति उनके जुनून का परिणाम है। उन्हें बिजनेस प्रोसेस आउटसोर्सिंग, वित्त और लेखा, सूचना प्रौद्योगिकी, परिचालन उत्कृष्टता और बिजनेस इंटेलिजेंस में एक दशक का बहुमुखी अनुभव मिला है। कार्यकाल के दौरान, उन्होंने विभिन्न भूमिकाओं और जिम्मेदारियों में जेनपैक्ट, हेवलेट पैकर्ड, एम*मोडल और कैपजेमिनी जैसे संगठनों के लिए काम किया था। व्यवसाय और प्रौद्योगिकी के अलावा, वह फिल्मों के शौकीन हैं, जो सिनेमा देखने और सीखने में घंटों बिताते हैं और एक फिल्म निर्माता भी हैं!

7 प्रतिक्रियाएं

  1. हाय टीम, मुझे ब्राउज़र टैब में डेटा भरने की ज़रूरत है, जो पहले से ही खुला है और सटीक पृष्ठ पर नेविगेट किया गया है, जहां मुझे अपना डेटा भरने की ज़रूरत है, कृपया इस सत्र से निपटने के लिए वीबीए कोड प्रदान करें।

  2. नमस्ते,

    मुझे वेब पेज से एक अतिरिक्त संदेश पर क्लिक करना है, क्या आप कोड के साथ मेरी मदद कर सकते हैं। मैं इस पर ओके पर क्लिक करने के अंतिम भाग पर आश्चर्यचकित हूं

  3. क्या आप यहाँ मेरी मदद कर सकते हैं?
    कोड की निम्नलिखित पंक्तियों में कोई आईडी या मान सेट नहीं है, मैं इसे "lastnameFilter" या "firstnameFilter" में कैसे सम्मिलित करूँ?

    शिक्षार्थी की आईडी

    पहला नाम

    पारिवारिक नाम

    खोज

    धन्यवाद

  4. मुझे Call ie.Document.GetElementByID(“user_login”).SetAttribute(“value”, “testUser”) पर त्रुटि मिल रही है

    त्रुटि: रन-टाइम त्रुटि 424: ऑब्जेक्ट आवश्यक.

    क्या आप कृपया मेरी सहायता कर सकते हैं।

प्रातिक्रिया दे

आपका ईमेल पता प्रकाशित नहीं किया जाएगा. आवश्यक फ़ील्ड चिह्नित हैं *

बधाई हो!
आपने कर दिखाया,
बंद मत करो!

उठो 60,000 UberTTS कैरेक्टर क्रेडिट निःशुल्क!!!

यह पॉपअप नहीं दिखाएगा आप पर है दोबारा!!!

उबरटीटीएस
4
Share to...