ADODB – Excel – VBA:AddNew Typeconflict查找列

我有个问题。 我有一个Sharepoint 2013团队网站和一个Excel 2010安装。 我正在使用Microsoft Active X数据对象2.8库; 数据对象6.1和数据对象logging集6.0 / 2.8也可用,但尚未使用/试用。

在我的分享点列表中,我有一个查询列来build立两个列表之间的连接。

不,我正在使用下面的代码,把一些button点击我的SharePoint列表上的一些button。

Option Explicit Sub AddNewEntry() 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 [interactive_turtle];" With cnt .ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=xxxxxxxxxxxxx;LIST={xxxxxxxxxxxx};" .Open End With rst.Open mySQL, cnt, adOpenDynamic, adLockOptimistic rst.AddNew rst.Fields("process") = [E6] rst.Fields("output") = [H6] rst.Fields("Input") = [B6] rst.Fields("rules") = [H10] rst.Fields("personal") = [H2] rst.Fields("material") = [B2] rst.Fields("xxxxxxxxx") = [B10] rst.Fields("audit") = [E10] rst.Update 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 

查找列是:rst.Fields(“audit”)= [E10]。

如果我运行这个代码,查找列有一个types冲突。 我怎样才能解决这个问题,并在查找列中放入一些条目?

~~~~~~如果你知道另一个连接器或另一种方法将数据从Excel中分享点的东西让我知道。 我没有固定使用ADODB! ~~~~~~

提前致谢。

最好的祝愿