网站多页数据抓取

sxl1973

这是一个网站 单页复制数据很慢 共计几十页 请教大神给段采集数据的代码  谢谢

这是网站地址http://query.bjeea.cn/queryService/rest/plan/115

hcunicom

试试这个看看：
Sub xxx()
  Dim http
  Set http = CreateObject("Microsoft.XMLHTTP")
  http.Open "POST", "http://query.bjeea.cn/queryService/rest/plan/115", False
  http.send "pageFlag=true&token=1690931234529&pageSize=5000&pageNo=1"
  If http.Status = 200 Then
    [a1] = http.responseText
    MsgBox "第一页结果已经保存在[A1]单元格", vbInformation
  Else
    MsgBox "调用失败，错误代码：" & http.Status
    Exit Sub
  End If
End Sub

Yalishanda30

额。没搞定。。。。

xx20142014

很简单的，简单说下原理及实现：

1.通过网抓获取token值
2.post获取页面数据
3.正则匹配要的数据放入数组
4.数组放置指定单元格即可

Yalishanda30

xx20142014 发表于 2023-8-2 09:57
很简单的，简单说下原理及实现：

1.通过网抓获取token值

请问大佬为什么页码总是1？获取token也没用

xx20142014

Yalishanda30 发表于 2023-8-2 10:57
请问大佬为什么页码总是1？获取token也没用

postData = "pageFlag=true&token=1690908247946&pageSize=50&pageNo=1"
最后pageNo=对应的就是页码

Yalishanda30

xx20142014 发表于 2023-8-2 11:34
postData = "pageFlag=true&token=1690908247946&pageSize=50&pageNo=1"
最后pageNo=对应的就是页码

请问大佬用的哪个http组件？我这里页码改变了还是获取第一页的。。。。

sxl1973

xx20142014 发表于 2023-8-2 09:57
很简单的，简单说下原理及实现：

1.通过网抓获取token值

谢谢 辛苦了！看了您的帮助很是受用，再次感谢！

sxl1973

hcunicom 发表于 2023-8-2 08:25
试试这个看看：
Sub xxx()
  Dim http

谢谢！看了您的帮助我感到获益匪浅，再次感谢

sxl1973

xx20142014 发表于 2023-8-2 09:57
很简单的，简单说下原理及实现：

1.通过网抓获取token值

大师，能给个附件吗？谢谢，我还是整不了 谢谢