用代碼打開鏈接表管理器

Private Sub Command0_Click()
    'Pop up the Link Table Manager
    On Error GoTo ErrorHandle
    Dim CBarMenu As CommandBar
    Dim CBarCtl As CommandBarPopup
    Set CBarMenu = Application.CommandBars("Menu Bar")
    Set CBarCtl = CBarMenu.Controls("Tools")
    Set CBarCtl = CBarCtl.Controls("Database Utilities")
    Me.TimerInterval = 500
    CBarCtl.Controls("Linked Table Manager").Execute
    Exit Sub
    ErrorHandle:
    Exit Sub
    End Sub
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''