json - 使用新的 API v1.1 将推文搜索到 excel 中

Question

关闭。这个问题需要更多 focused .它目前不接受答案。












想改进这个问题？更新问题，使其仅关注一个问题 editing this post .


1年前关闭。







Improve this question




我过去如何将推文搜索到 excel 中只是从使用 rss 的 xml url 导入数据。但是，twitter 正在取消对 rss 的支持，因此我对如何将 twitter 提要输入到 excel 中感到困惑，当我点击刷新时，它能够更新。这里的问题是我几乎没有编程知识，因此我在使用这个新的身份验证代码时遇到了问题，我想知道如何使用 VBA 来检索 json 格式的数据(它们也不支持 xml)并转换为 excel。

Answer 1

下面是一个显示总体思路的“准系统”功能；它从特定用户的时间线(在本例中为 Stephen Colbert!)中提取最近的 5 条推文，并将推文创建日期和推文文本输出到电子表格的行中。

Function get_timeline(strHeader as String) As Boolean
'strHeader is a properly-constructed header as required by Twitter

Dim objRest As WinHttp.WinHttpRequest
Set objRest = New WinHttp.WinHttpRequest

objRest.Open "GET", "https://api.twitter.com/1.1/statuses/user_timeline.json?count=5&exclude_replies=true&screen_name=StephenAtHome", False
objRest.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objRest.setRequestHeader "Authorization", strHeader
objRest.send

objRest.waitForResponse

If objRest.Status = "200" Then

'We use the JSON parser from http://www.ediy.co.nz/vbjson-json-parser-library-in-vb6-xidc55680.html

    Dim objResp As Object
    Set objResp = JSON.parse(objRest.responseText)

    Dim intZ As Integer

    For intZ = 1 To intCount

        Sheets("Sheet1").Range("A" & intZ).Value = objResp.Item(intZ).Item("created_at")
        Sheets("Sheet1").Range("B" & intZ).Value = objResp.Item(intZ).Item("text")

    Next intZ

    get_timeline = True

Else

    get_timeline = False

End If

Set objResp = Nothing
Set objRest = Nothing

End Function

如果以上内容不足以让您继续前进，我最近发布了文章 here和 here它详细介绍了带有 VBA 的推文过程，并包括许多可用于处理 OAuth 身份验证、URL 编码等的功能/技术……