- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 各位大神 以下网页数据 怎么抓取， 请赐教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93782)
-- 发布时间：2016/12/6 22:57:00
-- 各位大神 以下网页数据 怎么抓取， 请赐教
http://data.eastmoney.com/zjlx/300556.html
各位大神 以下网页数据 怎么抓取， 请赐教，谢谢~~
此主题相关图片如下：7lgwf04}wq{48z)t$0_m7eh.png
-- 发布时间：2016/12/6 23:01:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=32808
-- 发布时间：2016/12/7 8:36:00
--
大神，以上方法 抓不到这些数据，数据未在网页代码中显示出来
-- 发布时间：2016/12/7 8:41:00
--
数据在网页代码里的才有可能提取。
-- 发布时间：2016/12/7 9:03:00
--
http://data.eastmoney.com/zjlx/300556.html
网页上 看得到这些数据， 但网页代码中 没有， 怎么抓取？
-- 发布时间：2016/12/7 9:09:00
--
看2楼，到事件里去抓取代码，而不是在浏览器看代码
-- 发布时间：2016/12/7 9:11:00
--
网页分析步骤参考这个帖子http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92571
-- 发布时间：2016/12/7 10:14:00
--
测试了下，用webbrowser是获取不了数据的。应该是限制执行了js代码。
用下面的代码
Dim ie As Object = CreateObject("InternetExplorer.Application")
With ie
\'.Visible = True
.Navigate("http://data.eastmoney.com/zjlx/300556.html")
Application.DoEvents
Do While .Busy OrElse .Document.GetElementById("data_superlr").Gettype.name = "DBNull" OrElse .Document.GetElementById("data_superlr").innerText = ""
Application.DoEvents
Loop
output.show(.Document.GetElementById("data_superlr").innerText)
output.show(.Document.GetElementById("data_ddlr").innerText)
.quit
ie = Nothing
End With
-- 发布时间：2016/12/7 21:57:00
--
感谢这位仁兄， 太谢谢！！！！