亲， 为啥不好使呢...
Dim i As Long
Dim web As New System.Windows.Forms.WebBrowser
e.Form.Controls("Label1").text= i
web.Navigate("http://thira.plavox.info/transport/api/?t=sagawa&no=564410245055 ")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Do Until web.Document.GetElementsByTagName("table") IsNot Nothing
Application.DoEvents '循环
Loop
If web.ReadyState=System.Windows.Forms.WebBrowserReadyState.Complete
Dim elems As System.Windows.Forms.HtmlElementCollection
Elems = web.Document.GetElementsByTagName("table")
For Each elem As System.Windows.Forms.Htmlelement In elems
If elem.GetAttribute("id") Like "_id46:tb1" Then
Dim e_Info As System.Windows.Forms.HtmlElement = elem.GetElementsByTagName("tbody")(0)
Dim e_Info1 As System.Windows.Forms.HtmlElement = e_Info.GetElementsByTagName("tr")(0).GetElementsByTagName("td")(2)
Tables("表A").AddNew
Tables("表A").Current("第一列") = e_Info1.InnerText
DataTables("表A").Save()
End If
Next
End If
加好友 
发短信
Post By：2014/4/29 11:13:00 [只看该作者]
