110,533
社区成员
发帖
与我相关
我的任务
分享
Sub test()
On Error Resume Next
With CreateObject("microsoft.xmlhttp")
.Open "GET", "http://p.3.cn/prices/mgets?skuIds=J_482589,J_334634,J_429084,J_713807,J_277578,J_562252,J_713813,J_749365,J_713802,J_219847,J_482591,J_766938,J_402376,J_148867,J_347294,J_277577,J_171255,J_184185,J_277576,J_406762,J_732164,J_837944,J_561600,J_176100,J_481747,J_713853,J_256391,J_481816,J_713849,J_481815,J_482590,J_597462,J_148871,J_135457,J_835922,J_407405&type=1", False
.Send
str1 = "a=" & .responseText
With CreateObject("MSScriptControl.ScriptControl")
.Language = "JScript"
.AddCode str1
n = .Eval("a.length")
For p = 0 To n - 1
Cells(p + 1, 1) = .Eval("a[" & p & "].p")
Cells(p + 1, 2) = .Eval("a[" & p & "].id")
Next p
End With
End With
End Sub
req.Host = "p.3.cn";