Error importando .xls desde Access

[AnKaRoTH]

Hola, tengo 1636 archivos .xls cuyos nombres van de 0.xls a 1635.xls y quería importarlos todos de golpe desde Access, para lo que hice:

For i = 0 To 1635

DoCmd.TransferSpreadsheet acImport, 8, "tabla", "C:\ruta\" + i + ".xls", False

Next

Pero nada más empezar ya me da un error que dice: El motor de base de datos Microsoft Jet no pudo encontrar el objeto "0$". Asegúrese de que el archivo existe, y que ha escrito el nombre y la ruta de acceso al objeto correctamente.

También he probado a pasar la variable i a cadena por si acaso, pero tampoco funciona... alguien sabe cuál puede ser el problema?? Gracias!

[Teri]

Puede que el error sea el nombre de la tabla destino????

Prueba a ponerlo así

For i = 0 To 1635

DoCmd.TransferSpreadsheet acImport, 8, "tabla_" & i, "C:\ruta\" & i & ".xls", False

Next


Saludos

[AnKaRoTH]

Creo que ya he encontrado el error... los archivos .xls están guardados como Excel 4.0, si abro uno y lo guardo como una versión más reciente entonces sí que funciona... pero claro, no voy a pasarme por los 1635 archivos para guardarlos como... qué podría hacer? No puedo importarlos de alguna manera si son Excel 4.0?? Gracias.

[Teri]

Sí, si puedes, debes cambiar el tipo de fichero donde has puesto un 8, cambialo por un 6, que es para excel 4.0

[AnKaRoTH]

He probado con el 6 y tampoco funciona ni desde Access ni con Visual Basic... no habrá que añadir alguna referencia o algo??

[Teri]

Pues deberías tener instalados los ISAM de excel, en la instalación de acces creo que vienen