首页 > 代码库 > 查询_观察者网_网友评论
查询_观察者网_网友评论
Sub 查询_观察者网_网友评论() On Error Resume Next Cells.Clear Set oDoc = CreateObject("htmlfile") With CreateObject("WinHttp.WinHttpRequest.5.1") .Open "GET", "http://duoshuo.com/api/users/listActivity.json?user_id=8048002", False .send tt = "a=" & .responseText With CreateObject("msscriptcontrol.scriptcontrol") .Language = "JavaScript" .AddCode tt m = .Eval("a.cursor.pages") End With For i = 1 To m .Open "GET", "http://duoshuo.com/api/users/listActivity.json?user_id=8048002&page=" & i, False .send tt = "a=" & .responseText With CreateObject("msscriptcontrol.scriptcontrol") .Language = "JavaScript" .AddCode tt n = .Eval("a.response.length") p = Range("b65536").End(xlUp).Row For j = 0 To n - 1 oDoc.Body.innerHTML = .Eval("a.response[" & j & "].message") Cells(j + 1 + p, 1) = oDoc.all(0).innerText Cells(j + 1 + p, 2) = .Eval("a.response[" & j & "].thread.title") Next j End With Next i End With End Sub
查询_观察者网_网友评论
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。