有没有一种方法可以在excel中使用VBA从Sharepoint检索文件元数据，而不必打开每个文件？

Sub RetrieveMetadataFromSharepoint()
    Dim siteUrl As String
    Dim libraryName As String
    Dim folderPath As String
    Dim fileName As String
    Dim metadata As String
    
    ' 设置Sharepoint网站的URL
    siteUrl = "https://your-sharepoint-site-url"
    
    ' 设置Sharepoint文档库的名称
    libraryName = "Documents"
    
    ' 设置文件所在的文件夹路径
    folderPath = "/Folder/Subfolder/"
    
    ' 设置要检索元数据的文件名
    fileName = "example.docx"
    
    ' 创建Sharepoint对象
    Dim spSite As New SharePoint.Site
    Dim spWeb As SharePoint.Web
    Dim spList As SharePoint.List
    Dim spFile As SharePoint.File
    
    ' 打开Sharepoint网站
    spSite.Open siteUrl
    
    ' 获取Sharepoint网站的根Web
    Set spWeb = spSite.OpenWeb("/")
    
    ' 获取Sharepoint文档库
    Set spList = spWeb.Lists(libraryName)
    
    ' 获取文件对象
    Set spFile = spList.RootFolder.Files(folderPath & fileName)
    
    ' 检索文件元数据
    metadata = spFile.Properties("Title") ' 根据需要检索的元数据字段修改此处
    
    ' 在Excel中显示元数据
    Range("A1").Value = metadata ' 将元数据显示在A1单元格中
    
    ' 关闭Sharepoint对象
    spSite.Close
End Sub