主题：如何获取网页的数据

这是企业信用系统的界面，如何获取网页中的数据，如通信地址等。
此主题相关图片如下：未命名.bmp

参考

 

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
 

具体代码

 

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

 

http://gsxt.zjaic.gov.cn/appbasicinfo/doViewAppBasicInfo.do?corpid=14FDA926DAE115ADE880A6797A51E2668A5F054CCCFEA9DAF7A91A03259D0D66

这个网址不能取数。

 不明白你什么意思，我无法打开，获取参考3楼代码。

4楼的网址打开的是这个截图（浙江的）。3楼的代码可以打开广东的，但不能打开浙江的。我的意思是如何获取浙江省的网址数据。

此主题相关图片如下：未命名.bmp

我打不开浙江的。那你参考代码写啊，你要看懂代码啊

 

    If tr.innertext.contains("经营场所") Then
        msgbox(tr.GetElementsByTagName("td")(0).InnerText)
    End If

 

For Each tr As object In web.Document.GetElementsByTagName("tr")

从这个代码开始不执行了。

 执行以下

 

output.show(web.document.body.innerhtml)

截图是这样的，不知后面如何写代码。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:未命名.rar