使用Excel Macro操作OneDrive Sharepoint文件Check-out遇报错问题咨询

错误原因 #

你代码的参数传递存在不匹配问题：Workbooks.CanCheckOut判断时用的是完整SharePoint文件路径FileAddress，但执行Workbooks.CheckOut时传入的是仅文件名ExcelFilename，系统无法定位到SharePoint上的对应文档，因此触发报错。

修正后代码 #

Sub ExcelUpdater()    
    FileSharepointLocation = Range("FileLocation").Value
    ExcelFilename = "Destination File.xlsb"
    ' 拼接完整SharePoint路径
    FileAddress = FileSharepointLocation & "/" & ExcelFilename
    ' 替换为你的文件预设打开密码
    Const FILE_PASSWORD As String = "你的预设密码"
    
    If Workbooks.CanCheckOut(FileAddress) = True Then
        ' 传入完整路径执行检出
        Workbooks.CheckOut FileAddress
        ' 带密码打开文件
        Dim targetWb As Workbook
        Set targetWb = Workbooks.Open(Filename:=FileAddress, Password:=FILE_PASSWORD)
        
        ' 此处插入你提取离线数据、更新文件的业务逻辑
        
        ' 保存修改并检入回SharePoint
        targetWb.Save
        If targetWb.CanCheckIn Then
            ' 可自定义第二个参数为检入备注
            targetWb.CheckIn SaveChanges:=True, Comments:="数据自动更新完成"
        End If
    Else
        MsgBox "当前无法检出该文档，请确认路径、权限是否正常。"
    End If    
End Sub

补充注意事项 #

• 路径拼接建议用&运算符，避免+运算符误将字符串识别为数字触发异常
• 执行宏前请确认你已经登录对应SharePoint账号，且对目标文件有编辑、检出权限
• 如果文件同时设置了修改权限密码，可在Workbooks.Open参数中补充WriteResPassword参数传入对应密码
• 如果需要保留文件本地副本，可将CheckIn方法的第三个参数MakePublic设为False

内容的提问来源于stack exchange，提问作者Anitha