通过excel刷新访问数据库中的sharepoint链接表vba

Question

我试图使用excel vba刷新access db中的sharepoint链接表。 心中已经创造了在Excel VBA中

On Error GoTo ExceptionHandle 
Dim cn As ADODB.Connection, rs As ADODB.Recordset 

' connect to the Access database 
Set cn = New ADODB.Connection 
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _ 
"Data Source=C:\sample.accdb;"  
' open a recordset 
Set rs = New ADODB.Recordset 

访问数据库的连接，但我如何使用方法CurrentDb.TableDefs（“表名”）。RefreshLink。我如何使用cn指定currentdb。

Answer 1

我认为ADODB不支持CurrentDb方法，但DAO。