Import Contents of XML file to List box

[RonQA]

I have searched everywhere and cannot find if it is possible to Import Contents of XML file to a List box.

The XML file i am using only has 2 lines I want imported to the listbox.

Does anyone have any ideas?

Thanks,

 

[PaulBricker]

You can look at the FileSysObject()
Pretty sure you can grab the contents of an XML file and save it to a table to use in your List box.

Paul

 

[RonQA]

Here is a piece of code I found. I adapted it to my needs and it works great.

Thanks,

You have to add the Reference "Microsoft XML"

Private Sub Command85_Click()
Dim xmldoc As MSXML2.DOMDocument
Dim xmlNode As MSXML2.IXMLDOMNode
Dim xmlNodeList As MSXML2.IXMLDOMNodeList
Dim myNode As MSXML2.IXMLDOMNode
Dim dir, folder, files
Dim PRange As String
Dim wo As String
wo = WO_Num
Set fso = CreateObject("Scripting.FileSystemObject")
dir = "O:\Order Tracking Router\OTR Data\"


Set xmldoc = New MSXML2.DOMDocument
xmldoc.async = False
xmldoc.Load (dir & wo & ".xml")

Set xmlNodeList = xmldoc.getElementsByTagName("OTR_link")

For Each xmlNode In xmlNodeList
For Each myNode In xmlNode.childNodes
If myNode.nodeType = NODE_TEXT Then
List0.AddItem (xmlNode.Text)
'MsgBox xmlNode.nodeName & "=" & xmlNode.Text
End If
Next myNode
Next xmlNode
Set xmlNodeList = xmldoc.getElementsByTagName("sow")

For Each xmlNode In xmlNodeList
For Each myNode In xmlNode.childNodes
If myNode.nodeType = NODE_TEXT Then
List0.AddItem (xmlNode.Text)

End If
Next myNode
Next xmlNode


Set xmldoc = Nothing
End Sub