繁体   English   中英

无法使用 vba 从网页解析 json 中的某个字段

[英]Can't parse a certain field which is within json from a webpage using vba

我正在尝试从此链接解析属性信息,该链接产生 json 响应。 我在这里使用过 json vba 转换器。 但是,当我运行下面的脚本时,我得到一个错误keyNotFoundError 我正在尝试解析features内的properties值。

Public Sub parseJson()
    Dim jsonObject As Object, oElem As Variant
    Dim resp$, Url$, R&

    Url = "https://torontolife.com/wp-content/themes/sjm-underscores/inc/neighbourhoods/2015/compiled.json"

    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", Url, False
        .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/88.0.4324.182 Safari/537.36"
        .send
        resp = .responseText
    End With
    
    Set jsonObject = JsonConverter.parseJson(resp)

    For Each oElem In jsonObject("features")
        Debug.Print oElem("properties")
    Next oElem
End Sub

顺便说一句,我正在使用这个库

还有一件事,它们是有效的 json,我在使用 python 解析相同的内容时没有遇到任何错误。

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM