代码运行错误,如何修改,请各位老师指教,谢谢!!
DataTables("表C").DataRows.Clear()
For i As Integer = 1 To 10
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("https://s.askci.com/stock/0-0-0/" & i & "/")
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 i1 As Integer = 1 To trs.count-1
Dim r As Row = Tables("表C").AddNew
Dim tds = trs(i1).GetElementsByTagName("td")
For j As Integer = 0 To tds.count-1
r("序号") = tds(0).innerText
r("股piao代码") = tds(1).innerText
r("股piao名称") = tds(2).innerText
r("公司全称") = tds(3).innerText
r("上市日期") = tds(4).innerText
r("招股书") = tds(5).innerText
r("公司财报") = tds(6).innerText
r("行业分类") = tds(7).innerText
r("主营业务") = tds(8).innerText
Next
web.Dispose
r.Save()
Next
Next
此主题相关图片如下:捕获2.png