Necesito importar la tabla esencial de mi base de datos 
con frecuencia, además ésto lo debe hacer una persona que 
desconoce Access, por lo que había habilitado una opción 
en mi menú personalizado para seleccionar el archivo donde 
esté la tabla a importar y quisiera importar mediante el 
código.

Resulta que el origen de la tabla está en formato Lotus 
con extensión .wks y mediante la opción de menú de Access: 
Archivo-Obtener datos externos... - Importar, puedo 
seleccionar el tipo "Lotus 1-2-3 (*.wk*)" e importar 
correctamente la tabla. Pero el problea es que mediante la 
opción de importar desde el código (que es lo q me 
interesa), el TransferDatabase, según la ayuda, los tipos 
posibles para importar son:

Tipos de bases de datos: 
Microsoft Access (predeterminada)
Jet 2.x
Jet 3.x
dBase III
dBbase IV
dBase 5.0
Paradox 3.x
Paradox 4.x
Paradox 5.x
Paradox 7.x
Bases de datos ODBC  

Por lo que aquí no tengo opción de elegir el tipo de 
Lotus, no entiendo porque aquí no y en la opción de menú 
de Access si. 

¿Alguien ha hecho algo parecido o ha importado otro tipo 
de archivo que no esté en esta lista?


RESPONDE ENRIQUE MARTINEZ
=========================


Sí, es posible....Pero para ello tienes que utilizar el controlador IISAM Lotus de Microsoft
Jet, el cual es compatible con las siguientes versiones de las hojas de
cálculo de Lotus 1-2-3: Lotus WKS, Lotus WK1, Lotus WK3 y Lotus WK4. Para
saber si tienes instalado el controlador, comprueba que tienes la siguiente
biblioteca en la carpeta «SYSTEM» del directorio de Windows: «msltus40.dll».

Suponiendo que tienes la base de datos Access abierta, el siguiente código
importará una hoja de cálculo Lotus 1-2-3, llamada «Hoja1», creando una
nueva tabla en nuestra base de datos. Una observación: cuando ejecutes el
código, quita los paréntesis de la cadena de conexión. Los he puesto para
que observes las comillas simples.

    Dim sTablaOrigen As String, sTablaDestino As String
    Dim sConnect As String, sSQL As String

    sTablaDestino = "[Tabla Importada desde Lotus]"
    sTablaOrigen = "[Hoja1:]"

    ' Construimos la cadena de conexión
    sConnect = "(')(')[Lotus wk4; HDR=Yes; DATABASE=C:\Libro1.wk4;]"

    sSQL = "SELECT * INTO " & sTablaDestino & _
        " FROM " & sTablaOrigen & " IN " & sConnect

    ' Importo la tabla a la base de datos «Activa»
    CurrentDb.Execute sSQL