还是不对,下面这段代码如何调整?绿色框中的数据如何导入?
Dim web As New System.Windows.Forms.WebBrowser()
web.scripterrorssuppressed = True
web.Navigate("http://www.hzctc.cn/AfficheShow/Home?AfficheID=7d220975-619a-41e9-9142-aadf97d346fe&IsInner=0&ModuleID=22")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim elems As object = web.Document.GetElementsByTagName("table")(0).GetElementsByTagName("tr")
Dim ndr As Row
For Each elem As object In elems
Dim tds = elem.GetElementsByTagName("td")
ndr = Tables("招标公告").AddNew()
'If tds.Count > 0 AndAlso tds.Count < 3
'msgbox(tds(0).innerText & ":" & tds(1).innerText)
ndr("名称") = tds(0).innerText
ndr("内容") = tds(1).innerText
'End If
'If tds.Count > 3 AndAlso tds.Count < 5
''msgbox(tds(0).innerText & ":" & tds(1).innerText & ",," & tds(2).innerText & ":" & tds(3).innerText)
'ndr("名称") = tds(0).innerText
'ndr("内容") = tds(1).innerText
'ndr("名称") = tds(2).innerText
'ndr("内容") = tds(3).innerText
'End If
Next
此主题相关图片如下:3333.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-2/201922115225550309.png)
[此贴子已经被作者于2019/2/21 15:23:42编辑过]