Άχνετε τρόπο να ενσωματώσετε μια υπηρεσία ιστού με το VBA; Κάντε λήψη της μη υποστηριζόμενης Microsoft Office XP Web Services Toolkit 2.0 ή Microsoft Office 2003 Web Services Toolkit 2.01
Αφού το έκανα ο ίδιος, περιήγησα σε αυτήν τη λίστα Xmethods για μια δημόσια υπηρεσία Ιστού και βρήκα την Τυχαία υπηρεσία Βουσισμού στο Web. Τώρα ο στόχος μου ήταν να δημιουργήσω μια μακροεντολή που θα εμφανίζει ένα πλαίσιο μηνυμάτων με έναν τυχαίο «βωχισμό» μέσα, χρησιμοποιώντας το Web Services Toolkit.
Μερικές σημειώσεις αν θέλετε να το δοκιμάσετε μόνοι σας…
1. Εάν δεν το έχετε κάνει ήδη, εγκαταστήστε το Web Services Toolkit.
2. Ανοίξτε το Excel.
3. Ανοίξτε το Visual Basic Editor (Alt + F11).
4. Κάντε κλικ στη νέα επιλογή στο μενού Εργαλεία - "Αναφορές υπηρεσιών Ιστού …"
5. Στο πρόσφατα ανοιχτό σας Φόρμα εργαλειοθήκης κάντε κλικ στο κουμπί επιλογής "Web Service URL" και εισαγάγετε αυτήν τη διεύθυνση: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Κάντε κλικ στο κουμπί αναζήτησης.
7. Ας ελπίσουμε ότι έχει βρει την υπηρεσία ιστού Bushism και την έχει καταχωρίσει στο πλαίσιο "Αποτελέσματα αναζήτησης". Τοποθετήστε ένα σημάδι ελέγχου για να επιλέξετε την υπηρεσία ιστού και κάντε κλικ στο κουμπί "Προσθήκη κουμπιού".
8. Τοποθετήστε μια ενότητα. Ο Συντάκτης σας θα πρέπει τώρα να μοιάζει με αυτό:
9. Προσθέστε αυτόν τον κωδικό στη μονάδα σας, πασπαλίστε με το χειρισμό σφαλμάτων εάν θέλετε, εκτελέστε ή καλέστε τη μακροεντολή GetRandomBushism:
| 123456789101112 | Sub GetRandomBushism ()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct As struct_RandomBushismΟρίστε BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context,, "Bushism"Τέλος υπο |
