你需要分析这个网页的结构,然后一个一个的获取信息,例如代码这样写
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.ccmn.cn/historyprice/cjxh_1/")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
'取数据
Dim elems As object = web.Document.GetElementById("list_elem").GetElementsByTagName("tr")
For Each elem As object In elems
Dim tdelems As object = elem.GetElementsByTagName("td")
For Each tdelem As object In tdelems
output.show(tdelem.Innertext)
Next
Next