Office: Web Service von Excel/VBA aus aufrufen

simbril · 25. Juli 2010

Hallo zusammen,

ich suche seit 2 Tagen und das treibt mich langsam wieder in Wahnsinn.

Ich nutze Excel 2003. Ich habe ein Web Service mit AXIS2 definiert und implementiert in Java. Das Web Service wird durch AXIS2 in "http://localhost:8080/axis2/services/" deployed und heißt MyService.
In VBA-Editor habe ich den Verweis zu Microsoft SOAP Type Library gesetz und auch das MS 2003 Web Service Toolkit installiert. Ich habe die Doku von MSDN Schritt für Schritt gefolgt. Das Toolkit findet offensichtlich die WSDL-Datei und davon generiert er in VBA-Code. Der generierte Code und die WSDL-Beschreibung könnt ihr unten sehen.
Das Problem ist, dass ich mein Service nicht aufrufen kann. Ich bekomme die folgende Meldung :Laufzeitfehler -2147221504 (80040000)Connector:Verbindungstimeout

Hatte jemand das Problem schon? Könnt ihr mir bitte sageb, wie ich überhaupt
ein Web Service von VBA aus aufrufe. Könnte ich das irgendwie mit den SOAPConnector, Serializer Objekten auf lowlevel machen und wo ich eventuel doku und tutorial finden könnte.

Das ist der generierte Code:
Code:

'*****************************************************************
'Diese Klasse wurde vom Microsoft Office 2003 Web Services Toolkit, erstellt.
'
'Erstellt: 7/26/2010 01:08:20 PM
'
'Beschreibung:
'Diese Klasse ist eine VBA-Klassenrepräsentation des Webdienstes
' entsprechend der Definition in http://localhost:8080/axis2/services/MyService?wsdl .
'
'Verwendung:
'Dimensionieren Sie eine Variable als neues "clsws_MyService"-Objekt, und schreiben Sie dann Code für
'unter Verwendung der Methoden, die von der Klasse bereitgestellt werden.
'Beispiel:
' Dim ExampleVar as New clsws_MyService
' debug.print ExampleVar.wsm_concat("Beispieleingabe")
'
'Weitere Informationen erhalten Sie unter "Komplexe Typen" in der Hilfe zum Microsoft Office 2003
'Web Services Toolkit .
'
'Änderungen am Code dieser Klasse führen möglicherweise zu falschem Verhalten der Klassenobjekte.
'
'*****************************************************************

'Dimensionieren von privaten Klassenvariablen.
Private sc_MyService As SoapClient30
Private Const c_WSDL_URL As String = "http://localhost:8080/axis2/services/MyService?wsdl"
Private Const c_SERVICE As String = "MyService"
Private Const c_PORT As String = "MyServiceSOAP"
Private Const c_SERVICE_NAMESPACE As String = "http://ttdev.com/ss"

Private Sub Class_Initialize()
'*****************************************************************
'Diese Unterroutine wird immer dann aufgerufen, wenn ein Objekt dieser Klasse instanziiert wird.
'Erstellt "sc_ComplexTypes" als neues "SoapClient30"-Objekt. Anschließend initialisiert
'das "sc_ComplexTypes.mssoapinit2"-Objekt mithilfe der WSDL-Datei unter
'http://localhost:8080/axis2/services/MyService?wsdl.
'*****************************************************************

Dim str_WSML As String
str_WSML = ""

Set sc_MyService = New SoapClient30

sc_MyService.MSSoapInit2 c_WSDL_URL, str_WSML, c_SERVICE, c_PORT, c_SERVICE_NAMESPACE
'Verwenden Sie den Proxyserver, der in den LAN-Einstellungen von Internet Explorer festgelegt ist,
'indem Sie für "ProxyServer" den Wert festlegen.
sc_MyService.ConnectorProperty("ProxyServer") = ""
'Proxyeinstellungen werden automatisch erkannt, wenn für Internet Explorer die automatische Erkennung für
' aktiviert ist, indem für "EnableAutoProxy" der Wert "True" festgelegt wird.
sc_MyService.ConnectorProperty("EnableAutoProxy") = True

End Sub

Private Sub Class_Terminate()
'*****************************************************************
'Diese Unterroutine wird immer dann aufgerufen, wenn für ein Objekt dieser Klasse der Destruktor aufgerufen wird.
'Setzt das "sc_ComplexTypes"-Objekt auf "Nothing".
'*****************************************************************

'Fehlerbehebung
On Error GoTo Class_TerminateTrap

Set sc_MyService = Nothing

Exit Sub

Class_TerminateTrap:
MyServiceErrorHandler ("Class_Terminate")
End Sub

Private Sub MyServiceErrorHandler(str_Function As String)
'*****************************************************************
'Diese Unterroutine ist der Fehlerhandler für die Klasse. Sie kann von jeder Unterroutine oder Funktion der Klasse
'aus aufgerufen werden, wenn in der betreffenden Unterroutine oder Funktion ein Fehler auftritt. In diesem Fall wird das Fehlerobjekt auf den Fehler und den
'Namen der aufrufenden Unterroutine bzw. Funktion gesetzt.
'*****************************************************************

'SOAP-Fehler
If sc_MyService.faultcode "" Then
Err.Raise vbObjectError, str_Function, sc_MyService.faultstring
'Nicht SOAP-bezogener Fehler
Else
Err.Raise Err.Number, str_Function, Err.Description
End If

End Sub

Public Sub wsm_concat(ByVal str_s1 As String, ByVal str_s2 As String)
'*****************************************************************
'Proxyunterroutine anhand von http://localhost:8080/axis2/services/MyService?wsdl erstellt.
'*****************************************************************

'Fehlerbehebung
On Error GoTo wsm_concatTrap

sc_MyService.concat str_s1, str_s2

Exit Sub
wsm_concatTrap:
MyServiceErrorHandler "wsm_concat"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist die WSDL-Datei:
HTML:
-
-
-
-
-
-








-


-


-
-







-

-


-




-
-
:)

simbril · 27. Juli 2010

ach, kommt schon Leute. Hat sich keiner mit WS beschäftigt? Ich weiß, dass dieses MS 2003 Web Service Toolkit nich korrektes Code generiert. Oder mind. nicht vollständiges. Ich versuche im Moment allein, auf Low Level einen Client zu basteln, der mit SOAP-Nachrichten diesen Web Service kontaktiert, hab jedoch keinen Erfolg.

User · 11. Dezember 2010

Hallo Simbril,

habe deinen Thread gerade gefunden.
Hast Du Dein Problem bereits gelöst?
Wo liegt den jetzt dein Service, auf "Localhost" oder "53.59.178.28:8080"?
Für eine Adresse wirst Du Dich entscheiden müssen ;-)

Ansonsten melde Dich nochmal!

Gruß

LL

Office: Web Service von Excel/VBA aus aufrufen

Web Service von Excel/VBA aus aufrufen

Web Service von Excel/VBA aus aufrufen

Web Service von Excel/VBA aus aufrufen - Similar Threads - Web Service Excel

Import aus Web - Scriptfehler

WEB-Abfrage

Outlook - es lässt sich keine web oder gmx e-Mail Adresse einrichten

Internationale Anzeigeoption in Outlook Web App

Kalender in Excel Web

Web Nachricht in Outlook lesen

Mails in Web App anzeigen