|
Hallo Alle zusammen
Folgendes Szenario, ich bin dabei ein VBA Word Makro zu schreiben, das beim Öffnen der Datei Daten über einen Webservice in ein Word Dokument einfügt. Dass will ich erreichen in dem ich die Daten zuerst aus dem Webservice lese, sie dann in ein Array schreibe und dann mit einer For-Each-Next Schleife das Array in die dafür vorgesehenen Textmarken einfüge.
Die Verbindung herzustellen hab ich geschafft. Meine Frage ist nun wie kann ich die Werte in ein Array schreiben? Hab leider keinen Ahnung wie ich das angehen kann. Hoffe jemand kann mir helfen.
Mein Code sieht so aus:
Public Sub WebServiceRMWS()
Const WEBSERVICE = "http://chvmes01.xxxxx/RMWS_ConfigurationRead.asmx?wsdl"
Set DMIService = New DMIService
Set oXML = CreateObject("msxml2.DOMDocument.4.0")
oXML.LoadXML DMIService.execute(WEBSERVICE, "GetWDVBSEvents", "RMWS_ConfigurationReadSoap", "")
Debug.Print DMIService.execute(WEBSERVICE, "GetWDVBSEvents", "RMWS_ConfigurationReadSoap", "")
End Sub
Die Ausgabe sieht folgendermassen aus(Hab zur besseren Übersicht nur 2 Zeilen belassen, sind ganz ganz viele):
GetWDVBSEvents Error="False">
<VBAEvents>
<VBAEvent ID="20" Name="PK_OnPallet_Selection">When a pallet has been selected in picking.</VBAEvent>
<VBAEvent ID="21" Name="PK_OnPallet_Association">When a pallet has been associated in picking.</VBAEvent>
</VBAEvents></GetWDVBSEvents>
Nun ich möchte die Werte von Name="xxx" in ein Array schreiben. Kann mir jemand einen Tipp geben wie ich das anstelle?
Freundliche Sonnige Grüsse
|