如何使用VBA从Sharepoint下载最新的文件

Sub DownloadLatestFileFromSharePoint()
    Dim siteUrl As String
    Dim libraryName As String
    Dim folderPath As String
    Dim fileName As String
    Dim destinationPath As String
    
    ' SharePoint网站URL
    siteUrl = "https://your-sharepoint-site-url"
    
    ' SharePoint文档库名称
    libraryName = "Documents"
    
    ' SharePoint文件夹路径
    folderPath = "/Folder/Subfolder/"
    
    ' SharePoint文件名
    fileName = GetLatestFileName(siteUrl, libraryName, folderPath)
    
    ' 下载文件的保存路径
    destinationPath = "C:\Path\To\Save\File\" & fileName
    
    ' 下载文件
    DownloadFileFromSharePoint siteUrl, libraryName, folderPath, fileName, destinationPath
End Sub

Function GetLatestFileName(siteUrl As String, libraryName As String, folderPath As String) As String
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim latestFile As Object
    Dim latestDate As Date
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("\\\\" & siteUrl & "\\" & libraryName & "\\" & folderPath)
    
    latestDate = DateSerial(1900, 1, 1)
    
    For Each objFile In objFolder.Files
        If objFile.DateLastModified > latestDate Then
            latestDate = objFile.DateLastModified
            Set latestFile = objFile
        End If
    Next objFile
    
    GetLatestFileName = latestFile.Name
End Function

Sub DownloadFileFromSharePoint(siteUrl As String, libraryName As String, folderPath As String, fileName As String, destinationPath As String)
    Dim objHTTP As Object
    Dim objStream As Object
    
    Set objHTTP = CreateObject("MSXML2.XMLHTTP")
    objHTTP.Open "GET", "\\" & siteUrl & "\" & libraryName & "\" & folderPath & fileName, False
    objHTTP.Send
    
    If objHTTP.Status = 200 Then
        Set objStream = CreateObject("ADODB.Stream")
        objStream.Open
        objStream.Type = 1
        objStream.Write objHTTP.responseBody
        objStream.SaveToFile destinationPath, 2
        objStream.Close
    End If
    
    Set objHTTP = Nothing
    Set objStream = Nothing
End Sub