Excel VBA /运行时错误458

时间:2018-02-22 20:12:17

标签: json excel vba

在excel VBA中,我得到:

  

运行时错误458:变量使用不支持的自动化类型   Visual Basic

我在下面的代码的最后一行收到此错误。

我使用JsonConverter模块来解析这个简单的JSon字符串: {" OK":真,"导致":[]}

我已将已解析的JSon字符串添加到Watch窗口,请参阅附件中的图像,了解它返回的变量类型。任何线索? image

With objRequest
      .Open "GET", strGetData, False
      .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
      .send (strPostData)
       GetSessionId = .responseText
       'MsgBox GetSessionId
       Workbooks("Telegram test.xlsm").Sheets("sheet1").Cells(7, "G") = GetSessionId
       Set ParsedTelegramIn = JsonConverter.ParseJson(GetSessionId)
       MsgBox ParsedTelegramIn("ok")

0 个答案:

没有答案