运行到7（黄色标记）时出错。（显示到7）
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
output.Show(1)
Dim tb = web.Document.GetElementsByTagName("table")
output.Show(2)
If tb.count = 0 Then Continue For
output.Show(3)
Dim trs = tb(0).GetElementsByTagName("tr") '根据标签得到数据集合
output.Show(4)
For i1 As Integer = 1 To trs.count-1
output.Show(5)
Dim r As Row = Tables("表C").AddNew
output.Show(6)
Dim tds = trs(i1).GetElementsByTagName("td")
output.Show(7)
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
output.Show(8)
web.Dispose
output.Show(9)
r.Save()
output.Show(10)
Next
output.Show(11)
Next
[此贴子已经被作者于2021/2/7 11:41:36编辑过]
加好友 
发短信
Post By：2021/2/7 10:45:00 [显示全部帖子]
此主题相关图片如下：捕获2.png
