Seleccionar varias tablas excel texto y añadirlas a una tabla access

Hola
Puedes usar el método TransferSpreedSheet del obejeto DoCmd para hacer la transferencia. Mira en la ayuda para más información.
De igual modo, puedes usar la función DIR para recuperar los archivos que quieras importar. Un ejemplo

<pego>
Public Sub BuscaArchivos(sRuta As String, sTipo As String)
'sRuta p.e. "c:\Ejemplo\"
'sTipo p.e. ".gif"

Dim sArchivo As String

sRuta = sRuta & "*" & sTipo

sArchivo = Dir(sRuta)
Do While sArchivo <> ""
Debug.Print strCurrentFile
sArchivo = Dir
Loop
End Sub
</pego>

Puedes usar esta función, o algo parecido, para hacer una iteración sobre todos los archivos de un tipo dado en una ubicación dada, para importarlos.

Salu2
José Mª Fueyo
[MS MVP Access]