Excel VBA -查找SharePoint上文件的本地文件位置

Sub FindSharePointFileLocation()
    Dim objFSO As Object
    Dim objFile As Object
    Dim strSharePointURL As String
    Dim strFileName As String
    Dim strLocalFilePath As String
    
    ' 设置SharePoint的URL和文件名
    strSharePointURL = "https://example.sharepoint.com/sites/your-site/"
    strFileName = "example.docx"
    
    ' 创建文件系统对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    ' 构建本地文件路径
    strLocalFilePath = Environ("USERPROFILE") & "\SharePointFiles\" & strFileName
    
    ' 检查本地文件是否存在
    If objFSO.FileExists(strLocalFilePath) Then
        MsgBox "文件的本地位置是：" & strLocalFilePath
    Else
        MsgBox "文件不存在或无法访问。"
    End If
    
    ' 释放对象
    Set objFSO = Nothing
    Set objFile = Nothing
End Sub