获取XML指定节点下的所有内容

Sub Command1_Click()

    Set Dom = CreateObject("Microsoft.XMLDOM")

    Dom.async = False

    Dom.Load "C:\Documents and Settings\Administrator\桌面\a.xml"

    Set Node = Dom.SelectSingleNode("mkryxx").SelectSingleNode("list1").ChildNodes(1)

    For Each x In Node.ChildNodes

        Debug.Print x.Text

    Next

End Sub

补充：VB ,  基础类

上一个：16x16格式的ICO图片VB不认识
下一个：求助，用vb实现excel简单考勤统计