运行时错误80004005使用VBA的无效参数ADODB SharePoint列表

Question

你好我有下面的代码，当我运行它时，我在下面标记的行中有错误。错误是＆＃34;运行时错误80004005参数无效＆＃34;。我正在寻找解决问题的一些技巧，但没有一个能帮助我。谢谢你的建议。

Sub TestInsertToSharepoint()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sConn As String
Dim sSQL As String



sDEMAND_ROLE_GUID = "guid"
sSHAREPOINT_SITE = "sharepointsite"


sConn = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=1;RetrieveIds=Yes;" & _
"DATABASE=" & sSHAREPOINT_SITE & ";" & _
"LIST=" & sDEMAND_ROLE_GUID & ";"

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

With cn
.ConnectionString = sConn
.Open <--------- here I got error
End With

sSQL = "INSERT INTO tblAddingData (Title) VALUES ('FIRSTEDIT')"

rs.Open sSQL, cn



End Sub

Answer 1

我想我已经找到了问题。有两种方法可以解决这个问题：

1. 将Excel文件保存在One Drive中，连接字符串将停止抛出错误。奇怪的是，它不会从本地文件夹运行，而是从OneDrive文件夹运行。

2. 从Excel 2013运行。

如果有帮助，请告诉我。