Excel VBA/JSON抓取UPS追踪发货

Sub GetUPSTrackingInfo()
    Dim url As String
    Dim response As String
    Dim json As Object
    Dim trackingNumber As String
    
    trackingNumber = "YOUR_TRACKING_NUMBER"
    url = "https://www.ups.com/track/api/Track/GetStatus?loc=en_US&requester=UPSHome&tracknum=" & trackingNumber
    
    ' 发送HTTP请求
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", url, False
        .Send
        response = .ResponseText
    End With
    
    ' 解析JSON数据
    Set json = JsonConverter.ParseJson(response)
    
    ' 提取包裹信息
    Dim status As String
    status = json("trackResponse")("shipment")("status").Value
    
    ' 显示信息
    Range("A1").Value = "Tracking Number: " & trackingNumber
    Range("A2").Value = "Status: " + status
End Sub

Sub GetUPSTrackingInfo()
    Dim url As String
    Dim response As String
    Dim json As Object
    Dim trackingNumber As String
    
    trackingNumber = "YOUR_TRACKING_NUMBER"
    url = "https://www.ups.com/track/api/Track/GetStatus?loc=en_US&requester=UPSHome&tracknum=" & trackingNumber
    
    ' 发送HTTP请求
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", url, False
        .Send
        response = .ResponseText
    End With
    
    ' 检查响应状态码
    If .Status <> 200 Then
        MsgBox "Error: " & .Status & " - " & ..statusText
        Exit Sub
    End If
    
    ' 解析JSON数据
    On Error Resume Next
    Set json = JsonConverter.ParseJson(response)
    On Error GoTo 0
    
    ' 处理解析错误
    If json Is Nothing Then
        MsgBox "Error: Invalid JSON response."
        Exit Sub
    End If
    
    ' 提取包裹信息
    Dim status As String
    status = json("trackResponse")("shipment")("status").Value
    
    ' 显示信息
    Range("A1").Value = "Tracking Number: " & trackingNumber
    Range("A2").Value = "Status: " + status
End Sub