如何在Excel VBA中创建HTTP GET

Sub CreateHttpGetRequest()
    Dim url As String
    Dim httpRequest As Object
    Dim httpResponse As Object
    Dim responseData As String
    
    ' 设置请求的URL
    url = "https://example.com/api/data"
    
    ' 创建XMLHTTP对象
    Set httpRequest = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送GET请求
    httpRequest.Open "GET", url, False
    httpRequest.send
    
    ' 获取响应数据
    responseData = httpRequest.responseText
    
    ' 处理响应数据
    ' ...
    
    ' 关闭请求对象
    Set httpRequest = Nothing
End Sub