VBA爬数据元素怎么用Split替换

love586

1. Sub zhua()
   
2.   
   
3.   '创建对象
   
4.   Dim xmlHttp As Object
   
5.   Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
   
6.   '发送请求
   
7.   xmlHttp.Open "GET", "https://d998cp.cc/result/HF_HNWFC", False
   
8.   xmlHttp.send
   
9.   
   
10.   '等待响应
    
11.   Do While xmlHttp.ReadyState <> 4
    
12.   DoEvents
    
13.   Loop
    
14.   '得到请求数据
    
15.   Dim Myhtml As String
    
16.   Myhtml = xmlHttp.responseText
    
17.   Dim jg As String
    
18.   jg = Split(Split(Myhtml, "<table class=""table___2m6aC"">")(1), "</td>")(0)
    
19.   Range("a2").Resize(UBound(jg), 6) = jg
    
20. End Sub

复制代码

   Split(Split(Myhtml, "<table class=""table___2m6aC"">")(1), "</td>")(0)这一句搞不懂字母截取数据，找到网页元素途径，填着不对，都是网页开头
大佬帮我搞下，怎么抓取数据

下面附件是样板
爬数据.rar (12.03 KB, 下载次数: 11)

2022-6-4 23:57 上传

点击文件名下载附件

eennoo

数据在
https://d998cp.cc/api/v1/result/service/mobile/results/histByDate?gameUniqueId=HF_HNWFC&date=2022-06-06&brand=998
date=日期

eennoo

你这网站很什么哦，我是翻墙才能登上去

love586

eennoo 发表于 2022-6-6 21:51
你这网站很什么哦，我是翻墙才能登上去

不用墙啊，国内的

love586

eennoo 发表于 2022-6-6 21:50
数据在
https://d998cp.cc/api/v1/result/service/mobile/results/histByDate?gameUniqueId=HF_HNWFC&date ...

https://manycai.tj/#/lottery?lotteryId=48
这个能直接抓20页吗？

eennoo

https://manycai.tj/rest/lottery/list?_=&lotteryId=37&current=1&pageSize=15
current=页数
你要自己会捉网呢，我就用360浏览器，按F12就可以捉网了，

love586

eennoo 发表于 2022-6-7 23:42
https://manycai.tj/rest/lottery/list?_=&lotteryId=37&current=1&pageSize=15
current=页数
你要自己会 ...

你这个式异常500
id加 页数 加单页15，动态会变