साबुन वेब सेवाओं का उपभोग करें - वीबीए कोड उदाहरण

क्या आप वीबीए के साथ वेब सेवा को एकीकृत करने का कोई तरीका ढूंढ रहे हैं? असमर्थित माइक्रोसॉफ्ट ऑफिस एक्सपी वेब सर्विसेज टूलकिट 2.0 या माइक्रोसॉफ्ट ऑफिस 2003 वेब सर्विसेज टूलकिट 2.01 डाउनलोड करें

स्वयं ऐसा करने के बाद, मैं एक सार्वजनिक वेब सेवा के लिए इस Xmethods सूची को ब्राउज़ करने गया और मुझे रैंडम बुशिज़्म वेब सेवा मिली। अब मेरा लक्ष्य एक मैक्रो बनाना था जो वेब सर्विसेज टूलकिट का उपयोग करके एक संदेश बॉक्स को यादृच्छिक "बुशिज्म" के साथ प्रदर्शित करेगा।

कुछ नोट्स यदि आप इसे स्वयं आज़माना चाहते हैं…

1. यदि आपने पहले से ऐसा नहीं किया है, तो वेब सेवा टूलकिट स्थापित करें।

2. एक्सेल खोलें।

3. विजुअल बेसिक एडिटर (Alt + F11) खोलें।

4. अपने टूल्स मेनू पर नए विकल्प पर क्लिक करें - "वेब सेवा संदर्भ …"

5. आपके नए खुले . में टूलकिट फॉर्म "वेब सेवा यूआरएल" रेडियो बटन पर क्लिक करें और यह पता दर्ज करें: http://greg.froh.ca/fun/random-bushism/soap/?wsdl

6. सर्च बटन पर क्लिक करें।

7. उम्मीद है कि इसे बुशिज्म वेब सेवा मिल गई है और इसे "खोज परिणाम" बॉक्स में सूचीबद्ध किया गया है। वेब सेवा का चयन करने के लिए एक चेकमार्क रखें और "बटन जोड़ें" पर क्लिक करें।

8. एक मॉड्यूल डालें। आपका संपादक अब कुछ इस तरह दिखना चाहिए:

9. इस कोड को अपने मॉड्यूल में जोड़ें, यदि वांछित हो तो त्रुटि प्रबंधन के साथ छिड़कें, GetRandomBushism Macro को चलाएं या कॉल करें:

123456789101112

उप GetRandomBushism ()नई clsws_RandomBushismService के रूप में डिम बुशरैंडमडिम बुशस्ट्रक्चर स्ट्रक्चर_रैंडम बुशिज्म के रूप मेंबुशस्ट्रक्चर सेट करें = बुशरैंडम.wsm_getRandomBushismMsgBox बुशस्ट्रक्चर.बुशिज़्म और vbCrLf और _vbCrLf और बुशस्ट्रक्चर.संदर्भ, "बुशिज्म"अंत उप