作者：绿色风
分类：
时间：2022-08-18
浏览：119
楼主
水星钓鱼 |
网址链接
- http:和//wszw.hzs.mofcom.gov.cn/fecp/fem/corp/fem_cert_stat_view_list.jsp?
提取表格1-5页的数据，无需编码，较为简单，代码如下：
代码如下：
- Sub xyf()
- Dim oXmlHttp As Object, ohtml As Object, obj1, obj2, obj3
- Dim sVS As String, sEV As String, sstr As String
- Dim iPage As Integer, TPage As Integer
- Set oXmlHttp = CreateObject("msxml2.xmlhttp")
- With oXmlHttp
- For n = 1 To 5
- .Open "POST", "http://wszw.hzs.mofcom.gov.cn/fecp/fem/corp/fem_cert_stat_view_list.jsp?Grid1toPageNo=" & n & "&Grid1CurrentPage=1&PageFlag=1", False
- .send
- Set ohtml = CreateObject("htmlfile")
- ohtml.body.innerhtml = .responsetext
- Set obj1 = ohtml.getElementsbytagname("table")(3)
- Set obj2 = obj1.Rows
- For i = 0 To obj2.Length - 1
- Set obj3 = obj2(i).Cells
- For j = 0 To obj3.Length - 1
- Cells(k + 1, j + 1) = obj3(j).innertext
- Next
- k = k + 1
- Next
- Next
- End With
- End Sub
原帖：VBA 提取网页数据
(出处: Excel 技巧网)
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一