Access - Importar tablas entre bases

Sub ImportarTablas()

    Dim db As Database

    Dim tblDef As TableDef

    Dim tableName As String

    Dim externalDBPath As String

    ' Establecer la ruta de la base de datos externa

    externalDBPath = "C:\Ruta\Hacia\La\Base\De\Datos\Externa.accdb"

    ' Abrir la base de datos externa

    Set db = OpenDatabase(externalDBPath)

    ' Nombre de la tabla a importar

    tableName = "NombreTabla"

    ' Verificar si la tabla ya existe en la base de datos actual

    If TableExists(tableName) Then

        ' Eliminar la tabla existente

        DoCmd.DeleteObject acTable, tableName

    End If

    ' Importar la tabla desde la base de datos externa

    Set tblDef = db.TableDefs(tableName)

    DoCmd.TransferDatabase acImport, "Microsoft Access", externalDBPath, acTable, tableName, tableName

    ' Cerrar la base de datos externa

    db.Close

    ' Liberar los objetos

    Set tblDef = Nothing

    Set db = Nothing

    MsgBox "La tabla ha sido importada exitosamente."

End Sub

Function TableExists(tableName As String) As Boolean

    Dim tblDef As TableDef

    On Error Resume Next

    Set tblDef = CurrentDb.TableDefs(tableName)

    On Error GoTo 0

    TableExists = Not (tblDef Is Nothing)

    Set tblDef = Nothing

End Function