【求助】VBA网抓的问题

389004101 · 发表于 2021-2-10 22:27

http://www.cwl.gov.cn/cwl_admin/kjxx/findDrawNotice?name=ssq&issueCount=30这个链接Fiddler嗅探出来是有内容的[图1]，但是复制到浏览器地址拦访问却是一片空白，所以VBA也不能抓取，需要用什么特殊的方式访问吗？
另一个我成功抓取并用正则处理好了[图2]

Sub wzdltkj()
Dim myHTTP As Object, s As String
Set myHTTP = CreateObject("Microsoft.XmlHttp")
myHTTP.Open "GET", "https://webapi.sporttery.cn/gateway/lottery/getHistoryPageListV1.qry?gameNo=85&provinceId=0&pageSize=30&isVerify=1&pageNo=1&termLimits=30", False
myHTTP.send
s = myHTTP.responsetext
Dim regex As Object, mches As Object, mch As Object, i&, j&
Set regex = CreateObject("VBScript.Regexp")
regex.Global = True
regex.Pattern = "lotteryDrawNum"":""(\d+?)"",""lotteryDrawResult"":""(\d\d) (\d\d) (\d\d) (\d\d) (\d\d) (\d\d) (\d\d).*?""lotteryDrawTime"":""(\d+-\d+-\d+).*?""stakeAmount"":""([\d|,]+).*?""stakeAmount"":""([\d|,]+).*?""stakeAmount"":""([\d|,]+).*?""stakeAmount"":""([\d|,]+)"
Set mches = regex.Execute(s)
i = 2
For Each mch In mches
For j = 0 To 12
Sheet3.Cells(i, j + 1) = mch.submatches(j)
Next j
i = i + 1
Next mch
End Sub

复制代码

389004101 · 发表于 2021-2-10 22:33

我基础不太好，搞了一下午到现在实在没办法

，换了个网址抓取成功了。
但还是想知道为什么上面那个json网址为什么不行，求大佬解惑，感激不尽！

389004101 · 发表于 2021-2-11 09:15

大家过年好啊！

约定的童话 · 发表于 2021-2-11 09:33

那个网址已经解析出来了，只是混淆了一些其他字符，你用拆分代码提取出来就好了，用正则的话要改规则，比较麻烦，直接提取简单一点

389004101 · 发表于 2021-2-11 09:36

约定的童话发表于 2021-2-11 09:33
那个网址已经解析出来了，只是混淆了一些其他字符，你用拆分代码提取出来就好了，用正则的话要改规则，比较 ...

大佬能说得具体一点吗？是要把链接里面的字符删除一些？

389004101 · 发表于 2021-2-11 09:38

约定的童话发表于 2021-2-11 09:33
那个网址已经解析出来了，只是混淆了一些其他字符，你用拆分代码提取出来就好了，用正则的话要改规则，比较 ...

我这会儿一点链接，浏览器已经有内容了，我再试试！谢谢大佬

389004101 · 发表于 2021-2-11 09:47

刚刚发现了，直接粘贴链接到浏览器还是没内容，但是点链接跳转进去就有内容了。

VBA还是抓不到数据。不明白要怎么做了。。

约定的童话 · 发表于 2021-2-11 09:52

389004101 发表于 2021-2-11 09:47
刚刚发现了，直接粘贴链接到浏览器还是没内容，但是点链接跳转进去就有内容了。
VBA还 ...

文件发上来

389004101 · 发表于 2021-2-11 10:03

约定的童话发表于 2021-2-11 09:52
文件发上来

我怎么发不了附件，是不是太大了

389004101 · 发表于 2021-2-11 10:05

约定的童话发表于 2021-2-11 09:52
文件发上来

我把扩展名改了，现在可以了。麻烦您下载了改回.xlsm

		自动登录	找回密码
密码			免费注册