|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
onlycxb,困扰好久了,下面这个网页数据怎么抓啊,能不能给解读下,
http://hr8c.net/page/YLFXssc.shtml?id=15&num=100
楼上的代码测试了一遍也不行啊
Sub test()
Dim html
Dim objhq As Object
Set objhq = CreateObject("MSXML2.XMLHTTP")
Dim STxt As String, Url As String, i As Integer, j As Integer
Dim Pages As Integer, Pstr As String, arr, brr, rng As Range
Cells.Clear
With objhq
.Open "POST", "http://www.pinble.com/Template/WebService1.asmx/Present3DList", False
.SetRequestHeader "Content-Type", "application/json; charset=UTF-8"
.SetRequestHeader "Referer", "http://www.pinble.com/Lottery.htm"
.send "{pageindex:'1',lottory:'TC7XCData_jiangS',pl3:'',name:'江苏七星彩',isgp: '0'}"
STxt = .ResponseText
End With
STxt = UTF8toChineseCharacters129(STxt) 'J3编码
Pages = Split(Split(Split(STxt, "分页")(1), "页")(0), "/")(1) |
|