DataTables("表A").DataRows.Clear()
Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("http://vip.stock.finance.sina.com.cn/mkt/#sh_a")
output.Show(web.ReadyState)
output.Show(web.Document.GetElementsByTagName("table").count)
Do Until web.ReadyState <> 4 AndAlso web.Document.GetElementsByTagName("table").count > 0
Application.DoEvents
Loop
Dim trs As object = web.Document.GetElementById("list_amount_ctrl").GetElementsByTagName("a")
For Each elem As object In trs
If elem.InnerText = "80" Then
elem.InvokeMember("click")
End If
Next
trs = web.Document.GetElementById("tbl_wrap").GetElementsByTagName("tr")
For i As Integer = 1 To trs.count-1
Dim r As Row = Tables("表A").AddNew
Dim tds = trs(i).GetElementsByTagName("td")
r("第一列") = tds(0).innerText
r("第二列") = tds(1).innerText
r("第三列") = tds(2).innerText
r("第四列") = tds(3).innerText
r("第五列") = tds(4).innerText
r("第六列") = tds(5).innerText
r("第七列") = tds(6).innerText
r("第八列") = tds(7).innerText
r("第九列") = tds(8).innerText
r("第十列") = tds(9).innerText
r("第十一列") = tds(10).innerText
r.Save()
Next
加好友 
发短信
Post By：2021/2/8 19:32:00 [只看该作者]
