2,462
社区成员
发帖
与我相关
我的任务
分享
我在vba中通过“Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")”,先用objXMLHTTP获取网站json数据成功。然后通过Set objDOM = CreateObject("htmlfile") , Set objWindow = objDOM.parentWindow 和 Set objWindow = objDOM.parentWindow,再写入获取的json进行处理;我先strText = "<script>data=[" & strText & "]</script>",然后 objDOM.write strText。最后 For i = 0 To objWindow.eval("data.length") - 1 进行循环处理json内容,此处报错,拒绝的权限70(如下图),不知道怎么解决?我设置了excel启用宏权限、excel的ActiveX权限,还有“internet设置”的ActiveX,都不行。