使用 VBA 更新共享点列表

Question

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

MyApp.exe

当我尝试运行它时，出现以下错误：

在调试时，它发生在这一行：

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

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

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

Answer 1

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