如何用VBA从SharePoint下载文件？

VBA（Visual Basic for Applications）是一种用于自动化任务和编写宏的编程语言，常用于Microsoft Office套件中的应用程序，如Excel、Word和PowerPoint。下面是使用VBA从SharePoint下载文件的步骤：

引用Microsoft XML、vbscript.regexp和Microsoft Scripting Runtime库。在VBA编辑器中，点击"工具" -> "引用"，勾选上述库并点击"确定"。
创建一个新的VBA模块。在VBA编辑器中，点击"插入" -> "模块"。
编写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

请注意，上述代码中的strURL变量需要替换为实际的SharePoint文件的URL，strLocalPath变量需要替换为文件下载后保存的本地路径。