VBA操作SharePoint列表报错：无法更新'registration'字段求协助

错误情况 #

使用VBA通过ACE OLEDB驱动向SharePoint列表插入数据时，报错：

Error: Cannot update 'registration'; field not updateable.

排查与解决方案 #

1. 确认SharePoint列表字段的可编辑性

• 登录SharePoint站点，进入目标列表的列表设置，找到registration字段：
  • 检查字段是否被设置为只读（比如系统内置字段或配置了权限控制的字段）
  • 确认当前操作的账号拥有该字段的编辑权限
  • 核对字段类型：如果是单行文本字段，检查最大长度是否大于等于你传入的字符串长度（代码中是255，需确保字段允许）

2. 修正连接字符串的IMEX参数

你的连接字符串中使用了IMEX=2，这个参数在ACE驱动中用于强制混合数据类型的字段为读写模式，但对SharePoint列表可能引发兼容性问题。尝试修改连接字符串：

.connectionstring = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;RetrieveIds=Yes;" & _
                    "DATABASE=" & url & _
                    ";LIST={" & table & "}"

去掉IMEX=2，或者改为IMEX=0（默认读写模式）后重新测试。

3. 核对字段的内部名称

SharePoint列表的字段显示名称和内部名称可能不一致（重命名字段后，内部名称通常保持原名称）。获取字段内部名称的方法：

• 进入列表设置，点击registration字段进入编辑页面
• 查看浏览器地址栏，找到类似Field=Registration的部分，等号后的内容就是内部名称（区分大小写）
• 将INSERT语句中的字段名替换为内部名称，比如如果内部名称是Registration，则修改CommandText：

.CommandText = "INSERT INTO [" & table & "] (Registration, pallets_capacity, tare_weight, owner_id) " & _
               "VALUES (?, ?, ?, ?)"

4. 简化测试代码定位问题

先使用最简化的插入语句排除参数或其他字段的干扰：

With cmd
    .ActiveConnection = conn
    .CommandText = "INSERT INTO [" & table & "] (registration) VALUES ('TEST123')"
    .CommandType = 1
    .Execute
End With

如果这个简化版仍报错，说明问题确实出在registration字段本身；如果成功，再逐步添加其他字段和参数化语句排查。

修改后的示例代码（假设字段内部名称正确、权限正常） #

Private Sub Test()
    Dim conn As Object
    Dim url As String
    Dim table As String
    Dim cmd As Object
    Dim vehicle As ClsVehicle
    
    On Error GoTo errHandler
    Set conn = CreateObject("ADODB.Connection")
    Set cmd = CreateObject("ADODB.Command")
    
    url = "https://tenant.sharepoint.com/sites/Test/"
    table = "934798bc-046e-4bb8-a608-913c86a5fdbd"
    With conn
        ' 去掉IMEX=2，使用默认读写模式
        .connectionstring = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;RetrieveIds=Yes;" & _
                            "DATABASE=" & url & _
                            ";LIST={" & table & "}"
        .Open
    End With
    
    Set vehicle = New ClsVehicle
    With vehicle
        .setRegistration = "JS50LKGP"
        .setPalletsCapacity = 0
        .setTareWeight = 980
        .setOwnerId = 1
    End With
    
    With cmd
        .ActiveConnection = conn
        ' 确保字段名是SharePoint内部名称
        .CommandText = "INSERT INTO [" & table & "] (Registration, pallets_capacity, tare_weight, owner_id) " & _
                       "VALUES (?, ?, ?, ?)"
        .CommandType = 1
        .Parameters.Append .CreateParameter(, 200, 1, 255, vehicle.getRegistration)
        .Parameters.Append .CreateParameter(, 3, 1, 0, vehicle.getPalletsCapacity)
        .Parameters.Append .CreateParameter(, 5, 1, 0, vehicle.getTareWeight)
        .Parameters.Append .CreateParameter(, 3, 1, 0, vehicle.getOwnerId)

        .Execute
    End With
errHandler:
    If Err.Number <> 0 Then
        Debug.Print "Error: " & Err.Description
    Else
        Debug.Print "数据插入成功"
    End If
    ' 关闭连接
    If Not conn Is Nothing And conn.State = 1 Then conn.Close
    Set conn = Nothing
    Set cmd = Nothing
End Sub

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