在 VBA 里面怎么读取 json 字符串

vba 进行 json 字符串解析，通常可以借助于 JavaScript 语言，通过 CreateObject 函数来建立 ScriptControl 的实例，再调用其功能，以下是一个简单代码：

Set sc = CreateObject("ScriptControl")

sc.Language = "javascript"

sc.addcode "function jsonParse(s){ return eval_r('('+s+')')}"'json代码

Set oJson = sc.codeobject.jsonParse(jsontext)

基本上和JS的代码差不多哦，使用XMLHTTP对象，下面是例子代码：

Option Explicit

 

Sub xxx()

  Dim http

  Set http = CreateObject("Microsoft.XMLHTTP")

  http.Open "POST", "http://网址/PHP文件名.PHP", False

  http.send ""

  If http.Status = 200 Then

    [a1] = http.responseText

    MsgBox "成功。"

  Else

    MsgBox "调用失败，错误代码：" & http.Status

  End If

End Sub

---