使用 VBA 更新共享点列表

我有一个简单的脚本来使用不起作用的 VBA 更新共享点列表。

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;List={9E4AEE54-AF41-430B-8780-8BD778A1A226};"
        .Open
End With

rst.Open mySQL, cnt, adOpenDynamic, adLockBatchOptimistic

rst.AddNew
        rst!Task_ID = Sheets("Sheet2").Range("C3").Value
rst.Update

'To close the connection and clean the memory

If CBool(rst.State And adStateOpen) = True Then rst.Close
Set rst = Nothing
If CBool(cnt.State And adStateOpen) = True Then cnt.Close
Set cnt = Nothing

End Sub

当我尝试运行它时,我收到以下错误:

enter image description here

在调试时,它发生在这一行:

rst.Open mySQL, cnt, adOpenDynamic, adLockBatchOptimistic

我相信我可能写错了连接字符串?

这是列表的链接: https://share.amazon.com/sites/IPV/Lists/Test/AllItems.aspx 这是列表 ID: List={9E4AEE54-AF41-430B-8780-8BD778A1A226}

stack overflow Update sharepoint list with VBA
原文答案

答案:

作者头像

这个错误很奇怪,不确定它是否与连接有关。检查连接字符串后,我认为正确的 URL 应该是“https://share.amazon.com/sites/IPV”,而且 GUID 应该出现在列表设置页面上,而不是出现在列表显示视图上。