获取HTTP GET响应并更新Excel中的现有电子表格数据

您好，我在一个网页上有一个Json响应，我正试图捕获该响应并用该数据更新现有的电子表格。我已使用以下VBScript引用。我得到了一个空白的excel，不知怎么的，电子表格没有收到json数据

网页上的JSON响应

[
    {
        "Sno ": "1",
        "Name": "Alex",
        "Age ": "27",
        "City": "Newyork"
    },
    {
        "Sno ": "2",
        "Name": "Smith",
        "Age ": "25",
        "City": "Los angeles"
    },
    {
        "Sno ": "3",
        "Name": "austin",
        "Age ": "26",
        "City": "Calfornia"
    }
]

正在使用的VBScript（从堆栈源链接引用）

子按钮4\u单击（）
“在与GCP同步数据之前清除工作表内容
作为字符串的Dim str
Dim myarray（）作为变量
'删除现有数据
工作表（“备份工作表”）。激活数据将下载到的工作表的名称。根据需要进行更改。
范围（“A1”）。选择
范围（选择，选择。结束（xlToRight））。选择
范围（选择，选择。结束（xlDown））。选择
选择.ClearContents
Url=”http://127.0.0.1:5555/refresh"
设置objHTTP=CreateObject（“MSXML2.ServerXMLHTTP”）
打开“GET”，Url，False，“john”，“hello”
objHTTP.setRequestHeader“用户代理”、“Mozilla/4.0（兼容；MSIE 6.0；Windows NT 5.0）”
objHTTP.setRequestHeader“内容类型”、“应用程序/json”
查询引述：
带工作表（“备份工作表”）.QueryTables.Add（连接：=“Url；”和str，目标：=工作表（“备份工作表”）.Range（“a1”））
.BackgroundQuery=True
.TablesOnlyFromHTML=False
.Refresh BackgroundQuery:=False
.SaveData=True
以
工作表（“备份工作表”）.Range（“a1”）.CurrentRegion.TextToColumns目标：=工作表（“备份工作表”）.Range（“a1”）、数据类型：=xlDelimited_
TextQualifier:=xlDoubleQuote，continuedDelimiter:=False，Tab:=False_
分号：=假，逗号：=真，空格：=假，其他：=真，其他字符：=“，”，字段信息：=数组（1，2）
表（“备份表”）。列（“A:B”）。列宽=12
范围（“A1”）。选择
端接头

预期的输出回迁后数据

有人能帮我找出错误的地方吗？/任何关于如何做到这一点的建议都会很有帮助。

---

谢谢。

您可能会从阅读中受益。您为

objHTTP

设置了所有这些参数，但从未将其与

objHTTP.send一起发送。所以我假设它什么也不做。我对Vb脚本非常陌生，所以不熟悉ask。你能告诉我关于授权中心的任何资源或如何使用吗？这是一个参考代码，我可能无法正确返回。是的，我想使用HTTP请求对象发送读取json数据，并将该数据更新到电子表格中。关于如何纠正此脚本的任何指导都会很有帮助，谢谢@Mech的指出，但它只是用于在本地计算机上测试，因为json响应是使用python编写的flask应用程序创建的。您可能会从阅读中受益。您为
objHTTP
设置了所有这些参数，但从未将其发送
objHTTP.Send
。所以我假设它什么也不做。我对Vb脚本非常陌生，所以不熟悉ask。你能告诉我关于授权中心的任何资源或如何使用吗？这是一个参考代码，我可能无法正确返回。是的，我想使用HTTP请求对象发送读取json数据，并将该数据更新到电子表格中。关于如何纠正此脚本的任何指导都会很有帮助，谢谢@Mech指出，但它只是用于在本地机器上进行测试，因为json响应是使用python编写的flask应用程序创建的。