主题：请教下数据抓取的问题

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=98333&skin=0

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=62394&skin=0

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://money.finance.sina.com.cn/corp/go.php/vMS_MarketHistory/stockid/600460.phtml?year=2013&jidu=1")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim tb = web.Document.GetElementById("FundHoldSharesTable")
Dim trs = tb.GetElementsByTagName("tr")   '根据标签得到数据集合
For i As Integer = 1 To trs.count-1
    output.show(trs(i).InnerText)
    Dim tds = trs(i).GetElementsByTagName("td")
    For j As Integer = 0 To tds.count-1
        output.show(tds(j).InnerText)
    Next
Next

1、代码我测试没问题

2、参考帮助文档 https://msdn.microsoft.com/zh-cn/library/system.windows.forms.webbrowser_members(v=vs.80).aspx

代码没问题。请单独在浏览器测试网址看能否正常访问 http://www.askci.com/news/finance/2016/03/28/10712p1mg.shtml

要等一段时间

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.askci.com/news/finance/2016/03/28/10712p1mg.shtml")
web.ScriptErrorsSuppressed = True
Do Until web.ReadyState = 4 andalso web.Document.GetElementsByTagName("table").count > 0
    Application.DoEvents
Loop
Dim tb = web.Document.GetElementsByTagName("table")
Dim trs = tb(0).GetElementsByTagName("tr")   '根据标签得到数据集合
For i As Integer = 1 To trs.count-1
    output.show(trs(i).InnerText)
    Dim tds = trs(i).GetElementsByTagName("td")
    For j As Integer = 0 To tds.count-1
        output.show(tds(j).InnerText)
    Next
Next