代码较长，只贴相关段能行吧。代码是个爬虫，前面是把网页抓来，然后解析。
其中这句出现报错： For Each Person In CallByName(objJSON.mydata, "rows", VbGet)
错误提示：运行时错误‘438’，对象不支持该属性或方法。见附图。
相关代码如下：
'解析JSON
With CreateObject("msscriptcontrol.scriptcontrol")
.Language = "JavaScript"
.AddCode "var mydata =" & getWebData
Set objJSON = .CodeObject
End With
For Each Person In CallByName(objJSON.mydata, "rows", VbGet)
Set Child = CallByName(Person, "cell", VbGet)
Worksheets("ETF日志").Cells(i, 1) = CallByName(Person, "id", VbGet) '代码
Next
@金山办公