retrieval of XML information & Copy to excel Files Pin

Question

Hello everyone ,

I am trying to retrieve XML information, I managed to recover the attributes against the childrens they are not recovering below my code and the form of my XML file:

XML template :

<?xml version="1.0" encoding="utf-8"?>

<Root>

<ToolsList>

<Tool PartNumber="0018B">

<ToolLine Text=" FI : 3897" />

<ToolLine Text=" PINCE1 Reference : M 22520/2.01" />

<ToolLine Text=" Position : 2.02" />

<ToolLine Text=" Reglage : 7" />

<ToolLine Text=" PINCE2 Reference: M 22520/7.01" />

</Tool>

</ToolsList>

</Root>

Code C#:

Imports System.IO

Imports System.Xml

Module ParsingUsingXmlDocument

Sub Main()

Try

Dim m_xmld As XmlDocument

Dim m_nodelist As XmlNodeList

Dim m_node As XmlNode

'Create the XML Document

m_xmld = New XmlDocument()

'Load the Xml file

m_xmld.Load("D:\Users\Desktop\Xml to excel chahine\U881A1013_105_A_PREP_1.xml")

m_nodelist = m_xmld.SelectNodes("/Root/ToolsList/PartNumber")

'Loop through the nodes

For Each m_node In m_nodelist

Dim partnumber = m_node.Attributes.GetNamedItem("PartNumber").Value

'Get the firstName Element Value

Dim text1 = m_node.ChildNodes.Item(0).InnerText

Dim text2 = m_node.ChildNodes.Item(1).InnerText

Dim text3 = m_node.ChildNodes.Item(2).InnerText

Dim text4 = m_node.ChildNodes.Item(3).InnerText

Console.Write("partnumber: " & partnumber _

& " text1: " & text1 & " text3: " _

& text3)

Console.Write(vbCrLf)

Next

Catch errorVariable As Exception

'Error trapping

Console.Write(errorVariable.ToString())

End Try

End Sub

End Module

if you have any ideas do not hesitate to help me, thanks in advance

after a question how can I implement this information on an excel file