通過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。