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 |
|
|
|
20.04.2018 13:37:54 |
Gast8197 |
|
|
XML Daten in Array schreiben |
20.04.2018 14:05:44 |
SJ |
|
|
Von:
SJ |
Datum:
20.04.2018 14:05:44 |
Views:
503 |
Rating:
|
Antwort:
|
Thema:
XML Daten in Array schreiben |
Hallo,
ein wenig Transferleistung hatte ich schon erwartet - hier eine Möglichkeit die Werte der Attribute auszulesen:
Option Explicit
'//Verweise
'//Microsoft XML, v6.0
Public Sub readAttributeValue()
Dim xDoc As New MSXML2.DOMDocument60
If xDoc.Load("C:\Users\user\Desktop\test.xml") Then
Dim xNode As IXMLDOMNode
Set xNode = xDoc.SelectSingleNode("//GetWDVBSEvents/VBAEvents")
If Not xNode Is Nothing Then
Dim xNodeChild As IXMLDOMNode
For Each xNode In xNode.ChildNodes
Debug.Print xNode.Attributes.getNamedItem("Name").Text
Next xNode
Else
MsgBox "Node wurde in XML nicht gefunden.", vbInformation
End If
Else
GoTo cleanup
End If
cleanup:
If Not xDoc Is Nothing Then Set xDoc = Nothing
If Not xNode Is Nothing Then Set xNode = Nothing
If Not xNodeChild Is Nothing Then Set xNodeChild = Nothing
End Sub
Ausgabe:
PK_OnPallet_Selection
PK_OnPallet_Association
Viele Grüße
|
- 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 |
|
|
|
20.04.2018 13:37:54 |
Gast8197 |
|
|
XML Daten in Array schreiben |
20.04.2018 14:05:44 |
SJ |
|
|