VBA 网抓无法获取源代码

Sub GetDataFromWeb()
Dim http As Object
Dim url As String
Dim postData As String
Dim response As String
url = "https://i.cmzj.net/arena/getRanksByIssue" ' 设置URL
postData = "issue=2024129" ' 设置POST请求的载荷
Set http = CreateObject("MSXML2.XMLHTTP") ' 创建XMLHttpRequest对象
http.Open "POST", url, False ' 打开连接
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" ' 设置请求头
http.Send postData ' 发送POST请求
response = http.responseText ' 获取返回的响应内容
Sheets(1).Range("A1").Value = response
Set http = Nothing ' 清理
End Sub

试试这个 数据 空白查询 添加以下代码
let
url = "https://i.cmzj.net/arena/getRanksByIssue",
headers = [
#"Content-Type" = "multipart/form-data; boundary=----WebKitFormBoundaryb1p5XWLNSDgVb2k0"
],
content = Text.ToBinary("------WebKitFormBoundaryb1p5XWLNSDgVb2k0
Content-Disposition: form-data; name=""issue""
2024129
------WebKitFormBoundaryb1p5XWLNSDgVb2k0--"),
response = Web.Contents(url, [Content = content, Headers = headers]),
web = Json.Document(response),
ranks = web[data][ranks],
splitRanks = List.Transform(ranks, each [
expertId = [expertId],
彩评师 = [name],
12红球 = Text.Split([value], "&"){0},
3蓝球 = Text.Split([value], "&"){1},
上期成绩 = [upResult],
上期得分 = [upScore],
本月得分 = [score],
奖金 = [bonus],
中蓝次数 = [count],
累计得分 = [allCount]
]),
ranksTable = Table.FromList(splitRanks, Splitter.SplitByNothing(), {"Rank Info"}),
expandedRanks = Table.ExpandRecordColumn(ranksTable, "Rank Info", {"expertId", "彩评师", "12红球", "3蓝球", "上期成绩", "上期得分", "本月得分", "奖金", "中蓝次数", "累计得分"})
in
expandedRanks

给你发了空白查询的power query代码 但是好像屏蔽了 你瞅瞅能看到不

爬虫还得是python