json - 如何从 MacOS 上的 Excel 中的 HTTP 端点检索 JSON 并解析它？

Question

我见过How can I send an HTTP POST request to a server from Excel using VBA?

和the MacOS-friendly response描述如何使用 QueryTables 从 HTTP 端点检索数据。它演示了如何检索单个字符串并将其填充到单元格中。

一切都好。现在我想检索多个值。这是一个很大的 JSON 字符串，我想在填充一个或多个单元格之前在 Excel VBA 中对其进行后处理。

这怎么可能？

我可以想到一种方法 - 将 QueryTables 事物的结果放入隐藏单元格中，然后对隐藏单元格进行后处理以填充其他单元格。有一些用于 VBA 的 JSON 库我尚未评估。

但这看起来很老套。我真的不想依赖于将 JSON 作为值存储在单元格中。我只想将它存储到我的 VBA 代码中的变量中。就像我使用 CreateObject("MSXML2.ServerXMLHTTP") 一样。 (注意:CreateObject() 在 MacOS 上的 Excel 中不可用)。

我知道这里最好的答案可能是:如果您想在 Excel 中运行应用程序，请购买一台 Windows 计算机。

Answer 1

您可以在 VBA 中实际使用 Worksheets(0).QueryTable 方法。只要看看手册或者谷歌一下就可以了。因此，您不必将 json 字符串存储到单元格中。

或者我用过类似的东西

Public Function GetWebSource(ByRef URL As String) As String
    Dim xml As IXMLHTTPRequest
    On Error Resume Next
    Set xml = CreateObject("Microsoft.XMLHTTP")
    With xml
        .Open "GET", URL, False
        .send
        GetWebSource = .responseText
    End With
    Set xml = Nothing
End Function

下载 json 字符串。

四处寻找解析器。类似于 Parsing JSON in Excel VBA应该可以满足您的需求。