Question

我正在尝试从XML中提取所有子节点，并且需要将excel表中的所有节点保存在一个Column.I我在Excel工作表中指定XML.Given在Xml.Can下面任何一个请帮助如何提取

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

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

1 个答案: