我要访问的链接表管理器从Excel改变

Question

您好我想我的宏：

变化从MANDescriptifAdr.mdb

我request_MANDescriptifAdr.mdb我的连接表管理的链接表SIGAdPoAAAAMMJJRXX_ORI

Private Sub CommandButton6_Click() 

    Dim folderPath As String 

    folderPath = Application.ActiveWorkbook.Path 

    Dim db As Object 


    Set db = CreateObject("ADODB.Connection") 
    OpenDatabase = folderPath & "Request_MANDescriptifAdr.mdb" 



    db.OpenDatabase = folderPath & "Request_MANDescriptifAdr.mdb" 
    db.TableDefs("SIGAdPoAAAAMMJJRXX_ORI").Connect = "MS Access;DATABASE=" & folderPath & "MANDescriptifAdr.mdb" 
    db.TableDefs("SIGAdPoAAAAMMJJRXX_ORI").RefreshLink 

End Sub 

Answer 1

我以为我已经在你的最后一个问题的注释部分回答了这一点，但没关系：

Private Sub CommandButton6_Click() 

    Dim folderPath As String 

    folderPath = Application.ActiveWorkbook.Path 

    Set Db = CreateObject("DAO.DBENGINE.120").OpenDatabase(folderPath & "Request_MANDescriptifAdr.mdb") 

    db.TableDefs("SIGAdPoAAAAMMJJRXX_ORI").Connect = "MS Access;DATABASE=" & folderPath & "MANDescriptifAdr.mdb" 

    db.TableDefs("SIGAdPoAAAAMMJJRXX_ORI").RefreshLink 
End Sub