Dim web As new System.Windows.Forms.WebBrowser web.ScriptErrorsSuppressed = True web.Navigate("http://stock.n8n8.cn/flows?zjlx=110") Do Until web.ReadyState = 4 Application.DoEvents Loop Dim div = web.Document.GetElementByid("flows_data") Dim str As String = div.InnerText msgbox(str)