Excel webbrowser控件上的JSON请求

我试图在网站加载后发送一些JSON请求

此网站需要在发送任何请求之前完全加载，因为它在完成之前执行一些操作

该站点将打开，但当我尝试执行JSON请求操作（sendAction子例程）时，它会要求下载一个文件

请随意谈论代码和/或任何其他可能更正确的方法

Private子用户表单_Activate（）
Me.WebBrowser1.Navigate“https://sig.cm-figfoz.pt/Html5Viewer/Index.html?configBase=https://sig.cm-pt/MuniSIG/REST/sites/Web_GeoEPLOC_CMFigFoz/viewers/Web_GeoEPLOC_HTML5/virtualdirectory/Resources/Config/Default”
端接头
私有子WebBrowser1_StatusTextChange（ByVal文本作为字符串）
如果Text=“concluiído”，则
作为HTMLDocument的Dim doc
设置文档=WebBrowser1.文档
作为HTMLElementCollection的Dim元素
对于doc.getElementsByClassName（“大shell头”）中的每个元素
element.removeNode（True）
下一个
对于doc.getElementsByCassName（“数据框按钮选项卡打开”）中的每个元素
元素。单击
呼叫发送操作
下一个
如果结束
端接头
私有子操作（）
将url设置为字符串
url=”https://sig.cm-figfoz.pt/arcgis/rest/services/Internet/MunisigWeb_DadosContexto/MapServer/12/"
Dim qURL（3）作为字符串
qURL（1）=“Rua”
qURL（2）=“贝拉”
qURL（3）=“塔瓦雷德”
将查询设置为字符串
query=“query？f”_
&“=json&”_
&“式中=（较低（NOMERUA）类较低（“%”和qURL（1）和“%”）以及较低（NOMERUA）类较低（“%”和qURL（2）和“%”）和Freguesia_IGP=”&qURL（3）和“%”）_
&“&returnGeometry=true”_
&“&spatialRel=ESRISPATIALRELINETERSECTS&EXFIELDS=*&outSR=3763”
Me.WebBrowser1.Navigate“https://sig.cm-figfoz.pt/arcgis/rest/services/Internet/MunisigWeb_DadosContexto/MapServer/12/“&查询
端接头