通过excel刷新访问数据库中的sharepoint链接表vba
问题描述：
我试图使用excel vba刷新access db中的sharepoint链接表。 心中已经创造了在Excel VBA中通过excel刷新访问数据库中的sharepoint链接表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。
答
我认为ADODB不支持CurrentDb方法，但DAO。
一个选项会将代码写入Access，然后从Excel中调用它。看到这里：http://stackoverflow.com/questions/9472652/calling-access-sub-from-excel –