主题：提取XML问题？

 参考示例，自己看着办

Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Load("http://nanoappli.com/tracking/api/410695801670.xml")
Dim ndList As System.XML.XmlNodeList = xmlDoc.GetElementsByTagName("item")
For i As Integer = 0 To ndList.count - 1
    Dim nr As Row = Tables("表A").AddNew
    nr("第一列") = ndList(i).item("status").InnerText
    nr("第二列") = ndList(i).item("date").InnerText
    nr("第三列") = ndList(i).item("time").InnerText
    nr("第四列") = ndList(i).item("placeName").InnerText
    nr("第五列") = ndList(i).item("placeCode").InnerText
Next

http://msdn.microsoft.com/zh-cn/library/system.xml.xmldocument%28VS.80%29.aspx

 回复3楼，请参照帮助文档，找对应的方法去获取值 http://msdn.microsoft.com/zh-cn/library/system.xml.xmldocument_members(v=vs.80).aspx

 好好研究一下你的xml的结构即可。