[英]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.