不要循环了，用笨方法。这个没有什么规律，只能这样，网页分析就是这样，别人的格式改一下，你就得改代码，不然就容易出错
Dim elems As object = web.Document.GetElementsByTagName("table")(0).GetElementsByTagName("tr")
Dim ndr As Row
Dim tds = elem(0).GetElementsByTagName("td")
ndr = Tables("招标公告").AddNew()
ndr("名称") = tds(0).innerText
ndr("内容") = tds(1).innerText
tds = elem(1).GetElementsByTagName("td")
ndr = Tables("招标公告").AddNew()
ndr("名称") = tds(0).innerText
ndr("内容") = tds(1).innerText
tds = elem(2).GetElementsByTagName("td")
ndr = Tables("招标公告").AddNew()
ndr("名称") = tds(0).innerText
ndr("内容") = tds(1).innerText
ndr = Tables("招标公告").AddNew()
ndr("名称") = tds(2).innerText
ndr("内容") = tds(3).innerText
加好友 
发短信
Post By：2019/2/21 16:08:00 [只看该作者]
