Copiar hoja de un fichero Excel a otro fichero Excel distinto desde Access con VBA

[Rodrigo Garcia]

Hola,

Estoy intentando consolidar varios Excel en uno solo desde una macro de Access en VBA. Lo que tengo que hacer es:

Abrir Excel 1
Copiar hoja1 de Excel 1 a ExcelConsolidado
Abrir Excel 2
Copiar hoja1 de Excel 2 a ExcelConsolidado

y así sucesivamente (tengo ahora 3 ficheros a consolidar, no sé si en el futuro se incrementará). Lo que intento hacer es declarar las variables de Excel y copiar la primera pestaña en el excel consolidado, pero me falla, me da un error 13 en tiempo de ejecución ("No coinciden los tipos"). ¿Alguien sabe a qué puede ser debido? ¿Puede ser que no esté abriendo bien los Excel?

Lo que hago es lo siguiente:

- Declaro una variable Excel aplication de esta forma:
Set objExcel = New Excel.Application

- Después creo el Excel sobre el que voy a consolidarlo todo:
Set nuevoExcel = objExcel.Workbooks.Add

- Abro el fichero que quiero copiar:
Set nFichero1 = objExcel.Workbooks.Open("C:\ruta\fichero.xlsx")

Y después hago la copia, que es lo que falla:

Workbooks(nFichero1).Worksheets(1).Copy After:=Workbooks(nuevoExcel).Worksheets(Sheets.Count)

Después de eso, cerraría los ficheros Excel de donde he copiado y grabaría el fichero Excel creado para cerrarlo también posteriormente, pero la macro se me atasca antes.

¿Alguna idea?
Gracias