主题：甜甜姐帮帮忙 xml循环采集问题

 或者，用如下代码，自己学一下xmlDocument

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