Office: (Office 2010) SOAP und VBA

Hallo,

ich kenne mich mit SOAP gar nicht aus, muss aber über SOAP Daten von einem Webservice bekommen. Geht das mit VBA und wenn ja, wie?

Gruss,

Andreas

:)

 

Hallo Andreas,

in der Wikipedia gibt es einen Artikel dazu, der sehr interessant ist.

Außerdem kannst Du mal google bemühen und schreibst einfach nur "SOAP und VBA" und wirst bei Excel fündig. *Smilie

http://www.herber.de/forum/archiv/14...ices_SOAP.html

Vielleicht hilft Dir das weiter. Der Code in Excel und Access ist normal in den Bereichen identisch.

VG
trekking

 

Habe alles schon gelesen, bin aber nicht schlau draus geworden. Hatte mir hier mehr Hilfe versprochen.

 

Hi Andreas,

was erwartest Du genau?

Woraus bist Du nicht schlau geworden. Der Link zum Heber Forum sieht doch recht gut aus. Hast Du darauf basierend mal was gemacht?

VG
trekking

 

Werde das alles noch mal durchackern.

 

Um welchen Webservice geht es denn genau?

 

Das steht in der Schnitstellenbescheibung:

Der DRSC ist über eine Schnittstelle erreichbar, die technisch als WebService ausgelegt ist, und auf den WebServern der DeDeNet residiert.

1.1. Methode
Die Schnittstelle soll eine GetPosition() Methode zur Verfügung stellen. GetPosition() liefert auf eine Anfrage die entsprechenden Ortungsdaten aller im DeDeFleet System verfügbaren Fahrzeuge zurück.

1.2. Request
Adresse: http://portal.dedefleet.de/Services/...stService.asmx
WSDL: http://portal.dedefleet.de/Services/...vice.asmx?WSDL
Der Request wird als UTF-8 codiertes XML –String an den DRSC gesandt. Beispiel:

Code:

 

Beispiel:

 

Du musst die Spitzklammern im XML codieren um sie hier zu posten.
Code:

 

Keine Ahnung, was man da in den Request schreibt, aber prinzipiell geht das so:

PHP:

         Private Const sWebServiceURL As String = "http://portal.dedefleet.de/Services/PositionRequestService.asmx"

Private Sub TestDeDeFleet()
Dim sRequest As String

sRequest = "??"
DeDeFleet_GetPosition sRequest

End Sub

Public Sub DeDeFleet_GetPosition(sRequest As String)
Dim sSOAPMsgHead As String, sSOAPMsgFoot As String
Dim sSOAPMsgBody As String
Dim sResponse As String

sSOAPMsgHead = "<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/"">"

sSOAPMsgBody = "<soap:Body>"
sSOAPMsgBody = sSOAPMsgBody & "<GetPosition xmlns=""http://tempuri.org/"">"
sSOAPMsgBody = sSOAPMsgBody & "<request>" & sRequest & "</request>"
sSOAPMsgBody = sSOAPMsgBody & "</GetPosition>"
sSOAPMsgBody = sSOAPMsgBody & "</soap:Body>"

sSOAPMsgFoot = "</soap:Envelope>"

sResponse = GetHttpWebRequestResponse(sSOAPMsgHead & sSOAPMsgBody & sSOAPMsgFoot)

Debug.Print sResponse

End Sub

Private Function GetHttpWebRequestResponse(sBody As String) As String
Dim oHttpRequest As New MSXML2.XMLHTTP60

With oHttpRequest
.Open "POST", sWebServiceURL, False
.SetRequestHeader "Content-Type", "text/xml"
.SetRequestHeader "Content-Length", Len(sBody)
.Send sBody
GetHttpWebRequestResponse = .responseText
End With

End Function


 

\@CatBoy
Hi Jones eine Frage zu Deiner Code Schreibweise.

Warum schreibst Du

Code:

Nicht so:
Code:

Sieht irgendwie übersichtlicher aus und spart Tip oder Kopier Arbeit.

Hab die Spitzklammern mal weggelassen, da Sonic zwar gesagt hat, dass diese codiert werden müssen, aber für mich als unwissenden nicht wie : Kannst Du das nachholen Sonic. Wäre super.

VG
trekking

 

Werde das alles gleich mal ausprobieren..

 

\@trekking1

Ist traditionsbedingt. Wenn es länger wird, ist es so übersichtlicher.

z.B. Exchange Web Service (ews)

PHP:

         Private Function GetSOAPBody_FindEMails(sSOAPMsgItemIds As String) As String
Dim sSOAPMsgHead As String, sSOAPMsgOperation As String, sSOAPMsgFoot As String
Dim sSOAPMsgImpersonate As String
Dim sBody As String

sSOAPMsgImpersonate = ""

sSOAPMsgHead = "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" " & _
"xmlns:m=""http://schemas.microsoft.com/exchange/services/2006/messages"" " & _
"xmlns:t=""http://schemas.microsoft.com/exchange/services/2006/types"" " & _
"xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
sSOAPMsgHead = sSOAPMsgHead & "<soap:Header>"
sSOAPMsgHead = sSOAPMsgHead & "<t:RequestServerVersion Version=""Exchange2010"" />"
sSOAPMsgHead = sSOAPMsgHead & sSOAPMsgImpersonate
sSOAPMsgHead = sSOAPMsgHead & "</soap:Header>"
sSOAPMsgHead = sSOAPMsgHead & "<soap:Body>"

sSOAPMsgOperation = "<m:GetItem>"
sSOAPMsgOperation = sSOAPMsgOperation & "<m:ItemShape>"
sSOAPMsgOperation = sSOAPMsgOperation & "<t:BaseShape>IdOnly</t:BaseShape>"
sSOAPMsgOperation = sSOAPMsgOperation & "<t:AdditionalProperties>"
sSOAPMsgOperation = sSOAPMsgOperation & "<t:FieldURI FieldURI=""item:DateTimeReceived"" />"
sSOAPMsgOperation = sSOAPMsgOperation & "<t:FieldURI FieldURI=""item:DateTimeSent"" />"
sSOAPMsgOperation = sSOAPMsgOperation & "<t:FieldURI FieldURI=""item:Subject"" />"
sSOAPMsgOperation = sSOAPMsgOperation & "<t:FieldURI FieldURI=""message:IsRead"" />"
sSOAPMsgOperation = sSOAPMsgOperation & "<t:FieldURI FieldURI=""item:Importance"" />"
sSOAPMsgOperation = sSOAPMsgOperation & "<t:FieldURI FieldURI=""item:HasAttachments"" />"
sSOAPMsgOperation = sSOAPMsgOperation & "<t:FieldURI FieldURI=""message:Sender"" />"
sSOAPMsgOperation = sSOAPMsgOperation & "<t:FieldURI FieldURI=""message:ToRecipients"" />"
sSOAPMsgOperation = sSOAPMsgOperation & "<t:FieldURI FieldURI=""message:CcRecipients"" />"
sSOAPMsgOperation = sSOAPMsgOperation & "<t:FieldURI FieldURI=""message:BccRecipients"" />"
sSOAPMsgOperation = sSOAPMsgOperation & "<t:FieldURI FieldURI=""message:InternetMessageId"" />"
'sSOAPMsgOperation = sSOAPMsgOperation & "<t:FieldURI FieldURI=""calendar:UID"" />"
sSOAPMsgOperation = sSOAPMsgOperation & "<t:ExtendedFieldURI PropertySetId=""6ED8DA90-450B-101B-98DA-00AA003F1305"" " & _
"PropertyId=""3"" PropertyType=""Binary"" />" ' CalendarUid
'sSOAPMsgOperation = sSOAPMsgOperation & "<t:FieldURI FieldURI=""item:Attachments"" />"
sSOAPMsgOperation = sSOAPMsgOperation & "<t:ExtendedFieldURI PropertySetId=""00020328-0000-0000-C000-000000000046"" " & _
"PropertyId=""4240"" PropertyType=""Integer"" />" ' PidTagFlagStatus
sSOAPMsgOperation = sSOAPMsgOperation & "<t:ExtendedFieldURI PropertySetId=""00020328-0000-0000-C000-000000000046"" " & _
"PropertyId=""4096"" PropertyType=""String"" />" ' PidTagBody
'sSOAPMsgOperation = sSOAPMsgOperation & "<t:ExtendedFieldURI PropertySetId=""00020328-0000-0000-C000-000000000046"" " & _
'                                        "PropertyId=""4105"" PropertyType=""Binary"" />" ' PidTagRtfCompressed
sSOAPMsgOperation = sSOAPMsgOperation & "</t:AdditionalProperties>"
sSOAPMsgOperation = sSOAPMsgOperation & "</m:ItemShape>"
sSOAPMsgOperation = sSOAPMsgOperation & "<m:ItemIds>" & sSOAPMsgItemIds & "</m:ItemIds>"
sSOAPMsgOperation = sSOAPMsgOperation & "</m:GetItem>"

sSOAPMsgFoot = "</soap:Body>"
sSOAPMsgFoot = sSOAPMsgFoot & "</soap:Envelope>"

sBody = "<?xml version=""1.0"" encoding=""utf-8""?>"
sBody = sBody & sSOAPMsgHead
sBody = sBody & sSOAPMsgOperation
sBody = sBody & sSOAPMsgFoot

GetSOAPBody_FindEMails = sBody

End Function         

 

Du konvertierst die Spitzklammern in die entsprechenden HTML-Entites. Die XML-Tools von Notepad++ können das auf Knopfdruck.
Das sieht dann so aus:
Code:

PS: Diesen Text habe ich jetzt doppelt HTML-Codiert, damit man die Rohfassung sieht, und nicht die gerenderte Darstellung im Browser.

 

\@Catboy
OK bei 24 x _ ist bei Access ja Schluss, mich verwirrt es mehr. Hatte das früher ja auch so geschrieben und mache es jetzt anders. Danke für die Erklärung.

@sonic
Super, danke dafür.

VG
trekking