Excel VBA读取网址API 类Json数据并写入单元格的方法

示例代码：

Sub Readjson()
Dim http
Dim aa as String
  Set http = CreateObject("Microsoft.XMLHTTP")
  http.Open "POST", "http://api.xxxx.com", False
  http.send ""
  If http.Status = 200 Then
    aa = http.responseText
    MsgBox "成功。"
   Else
    MsgBox "调用失败，错误代码：" & http.Status
    Range("A1").value = aa
End If
End sub

XMLHTTP是一个微软内置方法，可以直接获取API数据。

这里Http是一个定义的变量，是一个对象。

该对象的 .responseText方法，是直接返回Json字符串的

将字符串赋值给变量aa，再把aa写进A1单元格。需要进一步处理，则在AA之中用Js处理Json字符串。