Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.04.2018 10:49:11 |
Lonzianer |
|
|
|
20.04.2018 11:10:52 |
Gast54905 |
|
|
|
20.04.2018 11:32:42 |
Gast88835 |
|
|
|
20.04.2018 11:40:37 |
Gast84286 |
|
|
XML Daten in Array schreiben |
20.04.2018 13:37:54 |
Gast8197 |
|
|
|
20.04.2018 14:05:44 |
SJ |
|
|
Von:
Gast8197 |
Datum:
20.04.2018 13:37:54 |
Views:
482 |
Rating:
|
Antwort:
|
Thema:
XML Daten in Array schreiben |
Hallo Zusammen
Wäre echt froh wenn mir jemand auf die Sprünge hilft, schaffe es einfach nicht auf die ID oder Name Werte zuzugreifen. Kann einfach nur die Werte ausgeben, wie "When a pallet has been selected in picking."
Mein Code sieht jetzt so aus:
Public Sub WebServiceRMWS()
Dim werte As Variant
Dim key As Variant
Dim myValue As Variant
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", "")
Dim xDoc As New MSXML2.DOMDocument60
If xDoc.Load("E:\Temp\Registry\DMI Manufacturing Transactions\XML.xml") Then
Dim xNode As IXMLDOMNode
Set xNode = xDoc.SelectSingleNode("/GetWDVBSEvents/VBAEvents")
xDoc.SelectSingleNode ("/GetWDVBSEvents/VBAEvents/VBAEvent[@Name='PK_OnPallet_Selection']")
'myValue = xDoc.SelectSingleNode([@ID='20']).Text
'myValue = xDoc.SelectSingleNode("/GetWDVBSEvents/VBAEvents[20]").Attributes
'Debug.Print myValue
Debug.Print xDoc.Text
cleanup:
If Not xDoc Is Nothing Then Set xDoc = Nothing
If Not xNode Is Nothing Then Set xNode = Nothing
End Sub
Danke euch und ein schönes Wochenende!
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.04.2018 10:49:11 |
Lonzianer |
|
|
|
20.04.2018 11:10:52 |
Gast54905 |
|
|
|
20.04.2018 11:32:42 |
Gast88835 |
|
|
|
20.04.2018 11:40:37 |
Gast84286 |
|
|
XML Daten in Array schreiben |
20.04.2018 13:37:54 |
Gast8197 |
|
|
|
20.04.2018 14:05:44 |
SJ |
|
|