API的VBA解析字符串响应

时间:2018-09-08 13:43:12

标签: json excel vba excel-vba http

我从API得到的响应类型如下:

  

“ {”成功“:false,”错误“:”错误的apikey“}”

     

“ {”成功“:true,”错误“:”正确的apikey“}”

在VBA中,如何知道响应是真还是假?

我当前的代码在下面,并且在 hReq.ResponseText 中得到响应,但它并不总是固定的(可以将更多键添加到json)。尽管下面的部分是固定的,并且只有在返回true或false时我才必须得到。

  

“ {”成功“:否

代码:

Dim hReq As Object
Dim strUrl As String
strUrl = "https://myWebAPI/myMethod?apikey=123456"

Set hReq = CreateObject("MSXML2.XMLHTTP")
With hReq
    .Open "GET", strUrl, False
    .Send
End With

MsgBox hReq.ResponseText

我知道这是一个基本问题,但是对VBA来说是新手。

1 个答案:

答案 0 :(得分:0)

仅基于显示的内容,您就可以通过以下方式得到对/错

Split(Split(hReq.ResponseText, ":")(1), ",")(0)