AW: Webservice XML Objekt in Excel Zellen speicher
29.01.2006 13:17:24
Bommel
Hi,
hab schon Stunden gegoogelt und leider nichts gefunden :-(
Hier mal der Code, der das Ergebnis holt, welches in eine Excel Tabelle soll.
Das Ergebnis ist in "xmlhttp.responseXML.XML" gespeichert.
Private Sub CommandButton1_Click()
Dim xmlhttp
Dim user As String
Dim pass As String
Dim org As Long
Dim service As Integer
user = "user"
pass = "BHJSKHE5A59C22D"
org = 0
service = 0
Set xmlhttp = CreateObject("Msxml2.XMLHTTP")
Dim request
request = "<?xml version='1.0' encoding='utf-8'?>" & _
" <soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>" & _
" <soap:Header>" & _
" <AuthHeader xmlns='servicename'>" & _
" <sLogin>" & user & "</sLogin>" & _
" <sPassword>" & pass & "</sPassword>" & _
" <Org>" & org & "</Org>" & _
" </AuthHeader>" & _
" </soap:Header>" & _
" <soap:Body>" & _
" <servicefunction xmlns='servicename'>" & _
" <Org>" & org & "</Org>" & _
" <functionvariable1>" & service & "</functionvariable1>" & _
" </servicefunction>" & _
" </soap:Body>" & _
" </soap:Envelope>"
'MsgBox (request)
xmlhttp.Open "POST", "URL", False
xmlhttp.SetRequestHeader "SOAPAction", "servicename/servicefunction"
xmlhttp.SetRequestHeader "Content-Type", "text/xml"
xmlhttp.send (request)
'Debug.Print xmlhttp.responseXML.XML
'MsgBox (xmlhttp.responseXML.XML)
End Sub