excel vba导入html表格,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字符串。