Excel VBA如何从web (非缓存)读取文本文件？

Sub ReadTextFileFromWeb()
    Dim url As String
    Dim httpRequest As Object
    Dim responseText As String
    
    ' 设置要读取的文本文件的URL
    url = "https://example.com/textfile.txt"
    
    ' 创建HTTP请求对象
    Set httpRequest = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送GET请求
    httpRequest.Open "GET", url, False
    httpRequest.send
    
    ' 获取响应内容
    responseText = httpRequest.responseText
    
    ' 将响应内容写入Excel单元格
    Range("A1").Value = responseText
    
    ' 释放资源
    Set httpRequest = Nothing
End Sub