如何解决使用 VBA 更新共享点列表
我有一个简单的脚本来使用 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}
解决方法
错误很奇怪,不确定是否与连接有关。检查连接字符串后,我认为正确的 URL 应该是“https://share.amazon.com/sites/IPV”,GUID 也应该出现在列表设置页面而不是列表显示视图上。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。