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

您好，我有下面这样的代码，当我运行它时，我在下面标记的行中得到了错误。错误为“运行时错误80004005无效参数”。我在寻找一些解决问题的方法，但没有一个能帮我。谢谢你的建议

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

Sub TestInsertToSharepoint（）
Dim cn作为ADODB.Connection
将rs设置为ADODB.Recordset
作为字符串的Dim sConn
将sSQL设置为字符串
sDEMAND\u ROLE\u GUID=“GUID”
sSHAREPOINT_SITE=“sharepointsite”
sConn=“Provider=Microsoft.ACE.OLEDB.12.0；WSS；IMEX=1；RetrieveIds=Yes；”_
“数据库=”&sSHAREPOINT_站点&“；”&_
“LIST=“&sDEMAND_ROLE_GUID&”
Set cn=New ADODB.Connection
Set rs=New ADODB.Recordset
与cn
.ConnectionString=sConn
.Open我想我已经找到了问题所在。有两种方法可以解决这个问题：

将Excel文件保存在一个驱动器中，连接字符串将停止抛出错误。奇怪的是，它不是从本地文件夹运行，而是从OneDrive文件夹运行

从Excel 2013运行它

如果有帮助，请告诉我