使用VBA更新SharePoint列表时Recordset打开失败的技术求助

从你提供的信息和代码来看，rst.Open行触发错误的最直接原因很可能是连接字符串中的站点路径不正确，我们一步步来修正和排查：

1. 修正连接字符串的核心问题 #

你的目标列表位于https://share.amazon.com/sites/IPV子站点下，但原连接字符串的DATABASE参数只写到了根站点https://share.amazon.com/sites，这会导致驱动无法定位到正确的列表位置。

修正后的连接字符串应该是：

Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=https://share.amazon.com/sites/IPV;List={9E4AEE54-AF41-430B-8780-8BD778A1A226};

2. 调整游标与锁类型 #

原代码使用的adOpenDynamic游标和adLockBatchOptimistic锁类型更适合批量操作场景，对于单条记录添加，换成adOpenKeyset和adLockOptimistic会更稳定，避免不必要的兼容性问题。

3. 修正后的完整代码 #

Option Explicit
Sub add_new_item()
    Dim cnt As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim mySQL As String
    
    Set cnt = New ADODB.Connection
    Set rst = New ADODB.Recordset
    mySQL = "SELECT * FROM [Test];"
    
    With cnt
        ' 修正后的站点路径
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=https://share.amazon.com/sites/IPV;List={9E4AEE54-AF41-430B-8780-8BD778A1A226};"
        .Open
    End With
    
    ' 调整游标和锁类型适配单条添加
    rst.Open mySQL, cnt, adOpenKeyset, adLockOptimistic
    
    rst.AddNew
    rst!Task_ID = Sheets("Sheet2").Range("C3").Value
    rst.Update
    
    ' 资源清理简化写法
    If rst.State = adStateOpen Then rst.Close
    Set rst = Nothing
    If cnt.State = adStateOpen Then cnt.Close
    Set cnt = Nothing
End Sub

4. 额外排查点（如果修正后仍报错） #

• 确认列表内部名称：SharePoint的SQL查询需要使用列表的内部名称，而非显示名称。你可以通过列表设置 → 「列表名称、描述和导航」查看内部名称，确保SQL语句中的[Test]和实际内部名称一致。
• 检查ADODB引用：打开VBA编辑器 → 工具 → 引用，确认已勾选「Microsoft ActiveX Data Objects 6.1 Library」（或更高兼容版本），未引用会导致ADODB对象无法识别。
• 验证权限与驱动：
  • 确保当前Windows账号对该SharePoint列表有「添加项目」权限，可先手动在网页端添加测试。
  • 确认安装了对应位数的Microsoft Access Database Engine 2010 Redistributable（对应ACE.OLEDB.12.0驱动），避免Office位数和驱动位数不匹配的问题。

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