VBA 从 OneDrive 下载文件

VBA是一种用于自动化操作Microsoft Office应用程序的编程语言，它可以帮助我们实现一些自动化的任务。在本文中，我们将探讨如何使用VBA从OneDrive下载文件，并提供一个实际案例代码。

vba
Sub DownloadFileFromOneDrive()
    ' 定义OneDrive中文件的URL
    Dim fileURL As String
    fileURL = "https://onedrive.live.com/xxxxx/xxxxx/example.xlsx"
    
    ' 定义本地保存文件的路径
    Dim savePath As String
    savePath = "C:\Users\Username\Documents\example.xlsx"
    
    ' 创建HTTP对象
    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送HTTP请求
    http.Open "GET", fileURL, False
    http.send
    
    ' 保存文件到本地
    Dim stream As Object
    Set stream = CreateObject("ADODB.Stream")
    stream.Type = 1 ' 二进制流
    stream.Open
    stream.Write http.responseBody
    stream.SaveToFile savePath, 2 ' 覆盖已存在的文件
    stream.Close
    
    ' 释放对象
    Set http = Nothing
    Set stream = Nothing
    
    MsgBox "文件下载完成！"
End Sub