使用VBA向SharePoint列表插入数据时遇Title字段不可更新错误

问题原因 #

你的连接字符串中设置了IMEX=2，这个参数在ACE OLEDB驱动中会将连接设置为只读优先模式，适合执行查询操作，但会限制字段的写入/更新权限（包括SharePoint默认的Title字段），这就是SELECT、DELETE能正常执行，但INSERT失败的核心原因。

解决方案 #

修改连接字符串，将IMEX=2改为IMEX=0（写入优先模式），或者直接移除IMEX参数（驱动默认即为写入模式）。同时保留RetrieveIds=Yes，这个参数确保驱动能识别SharePoint列表的内部ID字段，是写入操作的必要配置。

修正后的VBA代码 #

Sub ConnectToSharePointList()
    Dim conn As Object
    Dim strSQL As String
    Dim strConn As String
    
    ' 调整连接字符串的IMEX参数为写入模式
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=" & _
               "https://tenaname.sharepoint.com/sites/MySiteName/;LIST=" & _
               "{c25c3996-897a-482f-ae17-d57d4fe219b5};"
    
    Set conn = CreateObject("ADODB.Connection")
    conn.Open strConn
    
    ' 原INSERT语句无需修改
    strSQL = "INSERT INTO lst_requested_orders (Title,supplier,requested_date,quantity) VALUES ('Test','CHEP','2024-01-25',300)"
    
    conn.Execute strSQL
    
    conn.Close
    Set conn = Nothing ' 释放对象，避免内存泄漏
End Sub

额外注意事项 #

• 确保你的账号对目标SharePoint列表拥有编辑权限，权限不足也会触发类似的写入失败提示。
• 如果修改IMEX参数后仍有问题，可以尝试直接移除IMEX配置项，使用驱动默认的写入模式。
• 代码中使用的YYYY-MM-DD日期格式符合SharePoint的兼容要求，无需调整。

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