xml - 如何提取XML中的所有子节点并保存在Excel中

Question

我正在尝试从 XML 中提取所有子节点，并且需要将所有节点保存在 Excel 工作表中的一个列中。我在 Excel 工作表中指定 XML。在 Xml 下方给出。任何人都可以帮助如何提取。

XML:

<Company>
    <EmpName>Kathir</EmpName>
    <EmpAge>12</EmpAge>
    <EmpPlace>23</EmpPlace>
    <Salary>
        <Income>1234</Income>
        <Pf>233</Pf>
    </Salary>
</Company>

Answer 1

在运行此代码之前添加对 Microsoft XML, V6.0 的引用。

Sub xml()

    Dim XDoc As MSXML2.DOMDocument
    Set XDoc = New MSXML2.DOMDocument
    XDoc.async = False
    XDoc.validateOnParse = False
    XDoc.Load ("C:\test.xml")
    Set xEmpDetails = XDoc.DocumentElement
    Set xEmployee = xEmpDetails.FirstChild
    For Each xEmployee In xEmpDetails.ChildNodes
        For Each xChild In xEmployee.ChildNodes
            MsgBox xChild.BaseName & " " & xChild.Text
        Next xChild
    Next xEmployee
End Sub