VBA 请求 JSON - 介绍

VBA 中的 JSON 请求是指利用 VBA 代码在网络中发送请求并获取 JSON 数据的过程。JSON 是一种轻量级的数据交换格式，广泛应用于 Web 应用程序之间的数据交换。

在本篇介绍中，我们将重点关注如何使用 VBA 代码来请求 JSON 数据。我们将详细介绍如何在 VBA 代码中编写 HTTP 请求，如何解析 JSON 数据以及如何在 Excel 中将 JSON 数据呈现出来。

VBA 中的 HTTP 请求

在 VBA 中发送 HTTP 请求需要使用 Microsoft XML, v6.0 库中的 XMLHTTP60 对象。XMLHTTP60 对象可以通过 CreateObject 方法进行创建。

Dim xhr As Object
Set xhr = CreateObject("MSXML2.XMLHTTP.6.0")

在创建对象之后，我们可以使用其提供的 Open、Send 和 Status 等方法和属性来发送 HTTP 请求和获取响应。以下是一个基本的 HTTP 请求示例：

Dim xhr As Object
Set xhr = CreateObject("MSXML2.XMLHTTP.6.0")

xhr.Open "GET", "https://jsonplaceholder.typicode.com/posts", False
xhr.Send 

If xhr.Status = 200 Then
    MsgBox "HTTP 请求成功"
Else
    MsgBox "HTTP 请求失败"
End If

上述代码使用 Open 方法打开了一个 GET 请求，并发送给指定的 URL。Send 方法将请求发送到服务器，并等待响应。最后，Status 属性用于检查响应码，以判断请求是否成功。

JSON 数据解析

当我们向服务器发送请求并获得响应后，接下来便是对 JSON 数据进行解析的过程。在 VBA 中，我们可以使用 VBA-JSON 库来解析 JSON 数据。

我们首先需要将 VBA-JSON 库中的 JsonConverter 类导入到我们的代码中：

'Required reference to "Microsoft Scripting Runtime"
'Required reference to "Microsoft VBScript Regular Expressions 5.5"
'Copy the full code of the JsonConverter class into a new module

Dim json As Object
Set json = New JsonConverter

导入后，我们可以使用 DeserializeJson 方法将 JSON 字符串转化为 VBA 中的 Dictionary 和 Collection 数据类型。

Dim json As Object
Set json = New JsonConverter

Dim jsonString As String
jsonString = "{""name"":""Alex"",""age"":30}"

Dim jsonObj As Object
Set jsonObj = json.DeserializeJson(jsonString)

MsgBox jsonObj("name")

上述代码演示了如何将一个 JSON 字符串转化为 Dictionary 对象，并从中获取 name 属性的值。

与从 JSON 字符串中获取数据相反，我们也可以使用 SerializeToJson 方法将 VBA 中的 Dictionary 和 Collection 对象转化为 JSON 字符串。

Dim json As Object
Set json = New JsonConverter

Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")

dict("name") = "Alex"
dict("age") = 30

Dim jsonString As String
jsonString = json.SerializeToJson(dict)

MsgBox jsonString

上述代码演示了如何将一个 Dictionary 对象转化为 JSON 字符串并在消息框中显示出来。

Excel 中的 JSON 数据呈现

对于 VBA 开发人员来说，在 Excel 中展示 JSON 数据是一项很常见的任务。我们可以在 Excel 中将 JSON 数据呈现出来，以便更方便地阅读和处理这些数据。

首先，我们可以使用 CommandButton 控件或者 Worksheet_Change 事件来触发 VBA 代码，并在代码中使用 HTTP 请求和 JSON 解析。

Private Sub CommandButton1_Click()
    ' HTTP 请求和 JSON 解析代码
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    ' HTTP 请求和 JSON 解析代码
End Sub

这里，我们以 CommandButton 控件为例，在用户点击按钮时触发 HTTP 请求和 JSON 解析操作。

接下来，我们可以使用 Range 对象来呈现 JSON 数据。以下是一个在 Excel 中呈现 JSON 数据的示例代码：

Private Sub CommandButton1_Click()
    Dim xhr As Object
    Set xhr = CreateObject("MSXML2.XMLHTTP.6.0")

    xhr.Open "GET", "https://jsonplaceholder.typicode.com/posts", False
    xhr.Send

    If xhr.Status = 200 Then
        Dim json As Object
        Set json = New JsonConverter

        Dim data As Collection
        Set data = json.DeserializeJson(xhr.responseText)

        Dim i As Integer
        For i = 1 To data.Count
            Dim post As Dictionary
            Set post = data(i)

            ' 在 Excel 中呈现 JSON 数据
            Sheet1.Cells(i, 1).Value = post("userId")
            Sheet1.Cells(i, 2).Value = post("id")
            Sheet1.Cells(i, 3).Value = post("title")
            Sheet1.Cells(i, 4).Value = post("body")
        Next
    End If
End Sub

上述代码中，我们使用 Cells 方法将 JSON 数据呈现在 Excel 中。每个 Dictionary 对象都表示为一行，并分别在第一列、第二列、第三列和第四列中显示 JSON 数据中的 userId、id、title 和 body 属性。

总结

在这篇介绍中，我们学习了如何在 VBA 中发送 HTTP 请求和解析 JSON 数据。我们还了解了如何在 Excel 中呈现 JSON 数据。

通过本篇介绍，希望读者能够掌握 VBA 中的 HTTP 请求和 JSON 数据解析，并在实际工作中灵活应用这些技能。