VBA 发送 GET/POST 请求并解析 json 数据

1. 发送 GET 请求

'以GET方式上传数据
Function uploadData1(ByVal url As String)
    Dim http
    Set http = CreateObject("Microsoft.XMLHTTP")

    http.Open "GET", url, False
    http.send
    uploadData1 = http.Status
End Function

2. 发送 POST 请求

'以POST方式上传数据
Function uploadData2(ByVal url As String, ByVal data As String)
    Dim http
    Set http = CreateObject("Microsoft.XMLHTTP")
  
    http.Open "POST", url, False
    http.setRequestHeader "CONTENT-TYPE", "application/json"
    http.send (data)  'data为JSON字符串, 评论区有人说需要对data加小括号, 我自己的情况是加不加都可以, 这里姑且加上
    uploadData2 = http.Status
End Function

3. 发送 GET 请求并解析返回的 josn 数据

Function getData(ByVal url As String, sht As Worksheet, ByVal rowNum As Integer, ByVal colNum As Integer)
    Dim http As Object   
    Set