使用Excel VBA获取某一日期的汇率

Sub GetExchangeRate()
    Dim url As String
    Dim httpRequest As Object
    Dim responseText As String
    Dim rate As Double
    
    ' 构造API请求URL，替换其中的参数为具体的日期和货币代码
    url = "https://api.example.com/exchange_rate?date=2022-01-01&currency=USD"
    
    ' 创建HTTP请求对象
    Set httpRequest = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送HTTP请求
    httpRequest.Open "GET", url, False
    httpRequest.send
    
    ' 获取HTTP响应内容
    responseText = httpRequest.responseText
    
    ' 解析响应内容，获取汇率数据
    ' 这里假设响应内容为JSON格式，可以使用VBA的JSON解析库进行解析
    
    ' 将汇率数据写入Excel单元格
    Range("A1").Value = rate
    
    ' 释放资源
    Set httpRequest = Nothing
End Sub