Não é possível obter dados do arquivo XML no VBA?
Estou tentando obter dados do arquivo XML, mas não consigo. Não sei o que estou perdendo aqui.
Arquivo XML:
<?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>
Código:
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()")
No caso acimaSites, Names eURLs não ganha nada.