Access - importar una tabla

Sub ImportarTablaDesdeUnidadA()

    On Error GoTo ErrorHandler

    Dim rutaTabla As String

    Dim nombreTabla As String

    Dim nombreTablaImportada As String

    ' Especifica la ruta completa de la tabla en la unidad A:

    rutaTabla = "A:\Ruta\Tabla.accdb"

    ' Especifica el nombre de la tabla que deseas importar

    nombreTabla = "NombreTabla"

    ' Especifica el nombre que deseas para la tabla importada en Access

    nombreTablaImportada = "TablaImportada"

    ' Importar la tabla desde la unidad A:

    DoCmd.TransferDatabase acImport, "Microsoft Access", rutaTabla, acTable, nombreTabla, nombreTablaImportada

    MsgBox "Tabla importada con éxito.", vbInformation, "Importación Completa"

ExitProcedure:

    Exit Sub

ErrorHandler:

    MsgBox "Error al importar la tabla: " & Err.Description, vbExclamation, "Error"

    Resume ExitProcedure

End Sub