Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("https://vip.stock.finance.sina.com.cn/corp/go.php/vCI_CorpOtherInfo/stockid/000002/menu_num/2.phtml")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim tb As object = web.Document.GetElementsByTagName("table")(4)
Dim trs = tb.GetElementsByTagName("tr")
For i As Integer = 0 To trs.count-1
Dim tds As object = trs(i).GetElementsByTagName("td")
For j As Integer = 0 To tds.count-1
output.show(i & "行" & j & "列:" & tds(j).innerText)
Next
Next
如何将0列的第2行至最后行的数据读成一个用 “,” 号分隔的字符串,请各位老师指教,谢谢!
[此贴子已经被作者于2020/3/19 10:16:14编辑过]