网抓数据，以前可以的.20元微信小红包，谢谢！我用的WPS

level 12

Sub dd()
Dim http
Set http = CreateObject("Microsoft.XMLHTTP")
http.Open "POST", "http://chart.cp.360.cn/zst/ssccq/?
lotId=255401&chartType=dww5&spanType=0&span=1500&r=0.8655962816095906#roll_132", False
http.send ""
If http.Status = 200 Then
Range("a1") = http.responseText
End If
End Sub

2018年11月24日 01点11分 1

level 12

夜辰无星

lotId=255401&chartType=dww5&spanType=0&span=1500&r=0.8655962816095906#roll_132这是什么

2018年11月24日 01点11分 2

花间一壶酒🍄

这是网址

2018年11月24日 03点11分

level 12

花间一壶酒🍄 楼主

2018年11月24日 03点11分 4

level 9

zmj9151

Sub dd()
Dim http
Set http = CreateObject("Microsoft.XMLHTTP")
URL = "https://chart.cp.360.cn/zst/ssccq/?lotId=255401&chartType=dww5&spanType=0&span=1500&r=0.8655962816095906"
http.Open "get", URL, False
http.send ""
If http.Status = 200 Then
Range("a1") = http.responseText
End If
End Sub

2018年11月24日 08点11分 6

level 12

花间一壶酒🍄 楼主