Bir web hizmetini VBA ile entegre etmenin bir yolunu mu arıyorsunuz? Desteklenmeyen Microsoft Office XP Web Services Toolkit 2.0 veya Microsoft Office 2003 Web Services Toolkit 2.01'i indirin
Bunu kendim yaptıktan sonra, herkese açık bir web hizmeti için bu Xmethods listesine göz atmaya gittim ve Random Bushism Web Service'i buldum. Şimdi amacım, Web Services Toolkit'i kullanarak, içinde rastgele bir "Bushism" bulunan bir mesaj kutusu görüntüleyecek bir Makro oluşturmaktı.
Kendiniz denemek isterseniz bazı notlar…
1. Henüz yapmadıysanız, Web Hizmetleri Araç Takımı'nı yükleyin.
2. Excel'i açın.
3. Visual Basic Düzenleyicisini (Alt + F11) açın.
4. Araçlar menünüzdeki yeni seçeneğe tıklayın - “Web Hizmeti Referansları… ”
5. Yeni açtığınız Araç Takımı Formu "Web Hizmeti URL'si" radyo düğmesini tıklayın ve şu adresi girin: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Arama düğmesine tıklayın.
7. Umarım Bushism web hizmetini bulmuş ve “Arama Sonuçları” kutusunda listelemiştir. Web hizmetini seçmek için bir onay işareti koyun ve “Ekle Düğmesine” tıklayın.
8. Bir modül yerleştirin. Editörünüz şimdi şöyle görünmelidir:
9. Bu kodu modülünüze ekleyin, istenirse hata işleme serpin, GetRandomBushism Makrosunu çalıştırın veya çağırın:
| 123456789101112 | Alt GetRandomBushism()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct As struct_RandomBushismBushStruct = BushRandom.wsm_getRandomBushism'i ayarlaMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context, "Buşizm"Alt Bitiş |
