- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何获取网页的数据 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=83515)
-- 发布时间：2016/4/11 15:04:00
-- 如何获取网页的数据
这是企业信用系统的界面，如何获取网页中的数据，如通信地址等。
此主题相关图片如下：未命名.bmp
-- 发布时间：2016/4/11 15:07:00
--
参考
Dim web As new windows.forms.webbrowser
web.Navigate("https://bbqueen.taobao.com/search.htm?spm=a1z10.1-c.w5002-6367770394.1.h68GhT&search=y")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
\'output.show(web.document.body.innerhtml)
For Each dl As object In web.Document.GetElementsByTagName("dl")
If dl.GetAttribute("ClassName") Like "item*"
output.show(dl.outerhtml)
End If
Next
-- 发布时间：2016/4/11 15:13:00
--
具体代码
Dim web As new windows.forms.webbrowser
web.Navigate("http://gsxt.gdgs.gov.cn/aiccips/GSpublicity/GSpublicityList.html?service=entInfo_vxLoK6d31BzSpCO2LxJuHYJWhx18g9+7oPZv2zQbbWWE8HNhUeJDoSaBVhp1yo50-7kW54gFL28iQmsO8Qn3cTA==")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
\'output.show(web.document.body.innerhtml)
For Each tr As object In web.Document.GetElementsByTagName("tr")
If tr.innertext.contains("经营场所") Then
msgbox(tr.GetElementsByTagName("td")(0).InnerText)
End If
Next
-- 发布时间：2016/4/11 15:41:00
--
这个网址不能取数。
-- 发布时间：2016/4/11 15:48:00
--
不明白你什么意思，我无法打开，获取参考3楼代码。
-- 发布时间：2016/4/11 15:59:00
--
不明白你什么意思，我无法打开，获取参考3楼代码。
4楼的网址打开的是这个截图（浙江的）。3楼的代码可以打开广东的，但不能打开浙江的。我的意思是如何获取浙江省的网址数据。
此主题相关图片如下：未命名.bmp
-- 发布时间：2016/4/11 16:01:00
--
我打不开浙江的。那你参考代码写啊，你要看懂代码啊
If tr.innertext.contains("经营场所") Then
msgbox(tr.GetElementsByTagName("td")(0).InnerText)
End If
-- 发布时间：2016/4/11 16:10:00
--
For Each tr As object In web.Document.GetElementsByTagName("tr")
从这个代码开始不执行了。
-- 发布时间：2016/4/11 16:11:00
--
执行以下
output.show(web.document.body.innerhtml)
-- 发布时间：2016/4/11 16:24:00
--
截图是这样的，不知后面如何写代码。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:未命名.rar |