各位大神们，关于新浪微博开放平台API的使用求教，我用Excel的VBA功能输入代码如下：

Posted 2023-03-14

Sub http()
Dim http
Dim urlDimcanshu
Set http = CreateObject("microsoft.xmlhttp")
url = "https://api.weibo.com/2/statuses/friends_timeline.json"
canshu = "source=XXX&count=25"
url = url & "?" & canshu

With http
.Open "get", url, False
.send
Data = .responsetext
End With
Set abc = CreateObject("scripting.filesystemobject")
Set ntxt = abc.opentextfile("d:\n.txt", 8, True)
ntxt.writeline Data '数据写入文本文档"d:\n.txt"
ntxt.Close
Set abc = Nothing

End Sub
但是返回的结果是下面这样的，而且我用的就是创建应用的账号
"error":"applications over the unaudited use restrictions!","error_code":21321,"request":"/2/statuses/public_timeline.json"
"error":"auth by Null spi!","error_code":21301,"request":"/2/statuses/friends_timeline.json"

有人知道这是怎么回事？应该怎么解决吗？拜谢拜谢

参考技术A 你没有获得授权吧追问

您好 在吗 请问怎么获得授权？

追答

百度下 新浪微博API