Können Sie keine Daten aus einer XML-Datei in VBA abrufen?
Ich versuche, Daten aus einer XML-Datei abzurufen, kann sie jedoch nicht abrufen. Ich weiß nicht, was ich hier vermisse.
XML-Datei:
<?xml version="1.0" encoding="UTF-8"?>
<TestClass>
<TestObject>
<Site>Facebook</Site>
<Name>ABC</Name>
<URL>https://www.facebook.com/ABC/</URL>
</TestObject>
<TestObject>
<Site>Facebook</Site>
<Name>XYZ</Name>
<URL>https://www.facebook.com/XYZ/</URL>
</TestObject>
<TestObject>
<Site>Twitter</Site>
<Name>ABC</Name>
<URL>https://www.twitter.com/ABC/</URL>
</TestObject>
<TestObject>
<Site>Facebook</Site>
<Name>XYZ</Name>
<URL>https://www.twitter.com/XYZ/</URL>
</TestObject>
</TestClass>
Code
Dim oXMLFile As Object
Dim XMLFileName As String
Dim Sites As Object
Dim Names As Object
Dim URLs As Object
Set oXMLFile = CreateObject("Microsoft.XMLDOM")
XMLFileName = "C:\Users\abc\Desktop\Files\Test.xml"
oXMLFile.Load (XMLFileName)
If oXMLFile.Load(XMLFileName) Then
' The document successfully to load.
Else
' The document failed to load.
End If
Sites = oXMLFile.SelectNodes("TestClass/TestObject/Site/text()")
Names = oXMLFile.SelectNodes("TestClass/TestObject/Name/text()")
URLs = oXMLFile.SelectNodes("TestClass/TestObject/URL/text()")
In obigem FallSites
, Names
undURLs
bekommt nichts.Kann mir jemand vorschlagen, ob ich hier etwas vermisse?