Macro en excel 2007 para concatenar la misma celda de varios libros de excel

Solicito su ayuda para solucionar lo descrito en el Tìtulo. Tengo la necesidad de concatenar el texto de la celda cx54 de una carpeta que puede contener un número indeterminado de archivos de excel. Entonces lo que requiero es que la macro me permita desde un archivo principal llamar cada uno de los libros que encuentre en una carpeta definida, y extraiga todos los textos que estén contenidos en la celda cx54 de cada uno de esos libros .

Recibí una respuesta muy interesante de Dante amor, la cual me funciona a cierto nivel pero no entiendo porque en algunos ordenadores con excel a 64 bit no funciona. Agradezco una rutina que me permita hacer lo propuesto por Dante amor, pero que no discrimine el office y me permita ejecutarla sin problemas. Adjunto la rutina remitida:

Application.ScreenUpdating = False
Application.DisplayAlerts = False
'
Set l1 = ThisWorkbook
Set h1 = l1.Sheets(1)
'
ruta = "C:\Documents and Settings\jquirozv\Mis documentos\sistema de información\SEGUIMIENTO PROYECTOS\consolidacion\"
arch = Dir(ruta & "*.xls*")
'
Do While arch <> ""
On Error Resume Next
Set l2 = Workbooks.Open(ruta & arch)
If Err.Number = 0 Then
cad = cad & " " & l2.Sheets("1").[DE2]
l2.Close True
End If
arch = Dir()
Loop
'
Application.ScreenUpdating = True
h1.[DE2] = cad

End If

Añade tu respuesta

Haz clic para o