実行時エラー80004005無効な引数ADODB VBAを使用したSharePointリスト

Question

こんにちは私は以下のようなコードを持っています。実行すると以下の行にエラーが表示されます。エラーは "実行時エラー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 

Answer 1

私はこの問題を発見したと思います。

1. 1つのドライブにE​​xcelファイルを保存すると、接続文字列がエラーをスローするのを防ぐことができます。不思議なことに、それはローカルフォルダからは実行されませんが、OneDriveフォルダから実行されます。エクセル2013

から

実行して、それが助け場合は私に知らせてください。