Dim tb = web.Document.GetElementsByTagName("table")
if tb.trs.count = 0 then continue for
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()
加好友 
发短信
Post By：2021/2/7 10:55:00 [显示全部帖子]
