查询_观察者网_网友评论

标签：excel   json   vba   

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

查询_观察者网_网友评论

标签：excel   json   vba   

原文地址：http://blog.csdn.net/a814153a/article/details/41350773