VBA宏将Excel Check-in到OneDrive SharePoint报错-2147467259求解

报错提示：Run-time error -2147467259 (80004005): This document can not be checked in，原调用代码为Workbooks("Test.xlsb").checkin SaveChanges:=True, Comments:="Testing"，可按以下顺序排查解决：

• 确认文件来源：文件必须是从OneDrive/SharePoint同步目录直接打开、或是通过SharePoint URL打开的同步文件，本地单独存储的副本不支持调用签入接口。同时先手动打开文件，点击「文件」-「信息」确认文件当前为当前账号的已签出状态，若文件未签出、或是被其他账号签出，都会触发报错。
• 增加前置校验逻辑：执行签入前先调用CanCheckIn属性判断是否符合签入条件，可避免运行时报错终止程序。
• 检查SharePoint库配置：确认当前登录Office的账号对目标文档库有编辑、签入权限；同时检查库设置，若开启了签入前必填元数据校验，需先给文件对应属性赋值，再执行签入操作，也可临时将库的必填字段改为非必填验证问题。
• 优化后的完整可运行代码如下：

Sub CheckInToSharePoint()
    Dim targetWb As Workbook
    ' 绑定目标工作簿，若未打开可先用Workbooks.Open打开同步路径下的文件
    Set targetWb = Workbooks("Test.xlsb")
    
    ' 校验签入权限和状态
    If targetWb.CanCheckIn = True Then
        ' 先保存本地更改避免同步冲突
        targetWb.Save
        ' 执行签入操作
        targetWb.CheckIn SaveChanges:=True, Comments:="Testing"
        MsgBox "文件已成功签入SharePoint"
    Else
        MsgBox "文件不满足签入条件，请检查签出状态、权限或库配置"
    End If
End Sub

• 若以上操作仍无效，可重置OneDrive本地缓存：右键任务栏OneDrive图标，选择「设置」-「账户」-「重置OneDrive」，同步完成后重新运行代码即可。

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