此主题相关图片如下：11115.png
十分感谢甜版，上面的问题解决了，不好意思又有一个新问题：下面这段代码为什么只提取红框的数据，右边的数据怎么提取？？如“工程名称”，”代理机构“
Dim web As New System.Windows.Forms.WebBrowser()
web.scripterrorssuppressed = True
web.Navigate("http://www.hzctc.cn/OpenBidRecord/Index?id=111E6F37-5AB7-4F3F-B56D-E355701A68E9&tenderID=416E3F38-00E8-4CC4-8D72-8DE2EDA078AC&ModuleID=486")
Do Until web.ReadyState = 4 AndAlso web.Document.GetElementById("Table1") IsNot Nothing
Application.DoEvents
Loop
Dim elems As object = web.Document.GetElementsByTagName("div")
For Each elem As object In elems
If elem.getattribute("classname") = "row cl" Then
If elem.InnerText.contains("工程编号") Then
msgbox(elem.GetElementsByTagName("span")(0).innerText)
ElseIf elem.InnerText.contains("工程名称") Then
msgbox(elem.GetElementsByTagName("span")(0).innerText)
End If
If elem.InnerText.contains("建设单位") Then
msgbox(elem.GetElementsByTagName("span")(0).innerText)
ElseIf elem.InnerText.contains("代理机构") Then
msgbox(elem.GetElementsByTagName("span")(0).innerText)
End If
If elem.InnerText.contains("开标时间") Then
msgbox(elem.GetElementsByTagName("span")(0).innerText)
ElseIf elem.InnerText.contains("开标地点") Then
msgbox(elem.GetElementsByTagName("span")(0).innerText)
End If
End If
Next
此主题相关图片如下：mmmqq.png
[此贴子已经被作者于2018/10/17 11:20:44编辑过]
加好友 
发短信
Post By：2018/10/17 11:20:00 [只看该作者]
