如何用VBA从SharePoint下载文件？

Sub DownloadFileFromSharePoint()
    Dim objXMLHTTP As Object
    Dim strURL As String
    Dim strLocalPath As String
    
    ' SharePoint文件的URL
    strURL = "https://sharepoint.com/sites/your-site/your-file.docx"
    
    ' 下载文件保存的本地路径
    strLocalPath = "C:\Downloads\your-file.docx"
    
    ' 创建XMLHTTP对象
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送HTTP请求
    objXMLHTTP.Open "GET", strURL, False
    objXMLHTTP.send
    
    ' 保存文件到本地
    If objXMLHTTP.Status = 200 Then
        Dim objStream As Object
        Set objStream = CreateObject("ADODB.Stream")
        objStream.Open
        objStream.Type = 1 ' 二进制数据
        objStream.Write objXMLHTTP.responseBody
        objStream.SaveToFile strLocalPath, 2 ' 保存文件
        objStream.Close
        MsgBox "文件下载成功！"
    Else
        MsgBox "文件下载失败！"
    End If
    
    ' 清理对象
    Set objXMLHTTP = Nothing
End Sub