下面代码提取不到数据：
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.hzctc.cn/OpenBidRecord/Index?id=36177CC9-5F91-473F-84E6-A2EFA35D6DD9&tenderID=969B1A8D-1A57-4A21-864F-A5E98F8288FB&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")
Dim Cols() As String = {"序号","投标企业","总监姓名","总报价","质量标准","中标工期","开标情况备注"}
'Dim elems As object = web.Document.GetElementsByTagName("table1")(1).GetElementsByTagName("tr")
elems = web.Document.GetElementById("Table1").GetElementsByTagName("tr") '方法可返回对拥有指定 ID 的第一个对象的引用
Dim m As Integer = 0
For Each elem As object In elems
Dim i As Integer = -1
m = m + 1
If m > 10 Then '因为网页的表格有标题,如果不判断,就会增加出一个空行
Tables("开标标录").AddNew
End If
Dim tdelems As object = elem.GetElementsByTagName("td") '可以根据你指定的参数,找出html源码中或xml内所有标签名称等于该参数的元素
For Each tdelem As object In tdelems
i = i + 1
Tables("开标标录").Current(Cols(i)) = tdelem.Innertext
Next
Next
Tables("开标标录").save
加好友 
发短信
Post By：2018/7/22 23:05:00 [只看该作者]
此主题相关图片如下：无标题.png
