查询_观察者网_不同用户的评论

标签：excel   vba   json   javascript   

Sub 查询_观察者网_不同用户的评论()
    On Error Resume Next
    Cells.Clear
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        For i = 1 To 10000
            .Open "GET", "http://duoshuo.com/api/users/listActivity.json?page=" & i & "&user_id=7611260", False    '改变 user_id=7611260，就可以获取不同用户的评论
            .send
            tt = "a=" & .responseText
            With CreateObject("msscriptcontrol.scriptcontrol")
                .Language = "JavaScript"
                .AddCode tt
                n = .Eval("a.response.length")
                p = Range("a65536").End(xlUp).Row
                For j = 0 To n - 1
                    Cells(j + 1 + p, 1) = .Eval("a.response[" & j & "].thread.title")
                    Cells(j + 1 + p, 2) = .Eval("a.response[" & j & "].thread.url")
                    Cells(j + 1 + p, 3) = .Eval("a.response[" & j & "].message")
                Next j
                m = .Eval("a.cursor.pages")
            End With
            If i = m Then Exit For
        Next i
    End With
End Sub

查询_观察者网_不同用户的评论

标签：excel   vba   json   javascript   

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