Excel 如何用VBA读取xml文件

'读取XML

Sub ReadUTF-8XML()

    Dim objDOM As Object

    Dim targetNode As Object

    'UTF-8

    Set objDOM = CreateObject("MSXML2.DOMDocument")

    '普通格式的话

    'Set objDOM = CreateObject("MSXML.DOMDocument")

    objDOM.async = False

    ret = objDOM.Load("c:\test.xml")

    Dim objPageHeader As Object

    If ret Then

        'ヘッダー情報

        Set targetNode = objDOM.documentElement.selectNodes("//96biti523")

        '取得节点“PointDifferenceColor”下的值

        For Each Clone In targetNode

            Set ChartUnit = Clone.CloneNode(True)

            Set node = ChartUnit.FirstChild

            '子节点判断

            Do While ChartUnit.haschildnodes = True

                MsgBox node.nodename & " : " & node.Text

                '子节点值取得(说不定能找到billwolf，shinobi，smile，Mars，Zac等老朋友呢)

                '如果有孙节点，返回数组。最好不要这样用

                If node.nodename = ChartUnit.LastChild.nodename Then Exit Do

                Set node = node.nextSibling

            Loop '//Do While node.haschildnodes = True

        Next Clone

    End If

End Sub