将Excel直接下载到驱动器(C:\) (不需要另存为选项) VBA Excel

Sub DownloadExcelFile()
    Dim url As String
    Dim http As Object
    Dim myURL As String
    Dim fileName As String
    
    ' 设置下载链接
    url = "https://example.com/example.xlsx"
    
    ' 创建HTTP对象
    Set http = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送HTTP请求
    http.Open "GET", url, False
    http.send
    
    ' 获取文件名
    fileName = Right(url, Len(url) - InStrRev(url, "/"))
    
    ' 保存文件到C:\驱动器
    myURL = "C:\" & fileName
    Set myURL = CreateObject("ADODB.Stream")
    myURL.Type = 1
    myURL.Open
    myURL.Write http.responseBody
    myURL.SaveToFile myURL, 2 ' 2 表示覆盖已存在的文件
    myURL.Close
    
    ' 释放对象
    Set http = Nothing
    
    MsgBox "Excel文件已成功下载到C:\驱动器。"
End Sub