Dim web As new System.Windows.Forms.WebBrowser web.Navigate("http://qgqp.shdjt.com/gpdm.asp?gpdm=002741") Do Until web.Document IsNot Nothing Application.DoEvents Loop
For Each tr As object In web.Document.GetElementsByTagName("tr") Dim str As String = "" For Each td As object In tr.GetElementsByTagName("td") str &= td.InnerText & " " Next output.show(str) Next