Importar valores de varios archivos de excel con diferente nombre y formato

[lopesher]

Tengo varios archivos de excel con diferente nombre en cada una de las hojas.

En cada hoja aparecen estos valores en unas celdas que no son siempre las mismas TELA y CLAVE.

Necesito copiar los valores que están a la derecha de estas palabras para hacer una base de datos de todos los archivos que están en el mismo directorio.

Solicito su ayuda. Gracias

[Armando Montes]

Hola, si nos muestras lo que ya tienes avanzado nos facilitaras responder, gracias.

[lopesher]

Soy nuevo en programar y me gustaría algo de ayuda en como hacerlo.

[Armando Montes]

Puedes hacerlo manualmente?

[lopesher]

Son 180 archivos con varias hojas, hacerlo manual me va a llevar mucho tiempo, este va a ser un trabajo recurrente y me gustaría automatizarlo si es posible.

[Armando Montes]

Entiendo, mi pregunta es si puedes hacerlo manual, de ser asi puedes encender la grabadora de macros, procesar 2-3 archivos y apagar la grabadora.

Con eso generaras un codigo basico en el que podemos basarnos para el resto.

[lopesher]

Gracias por la ayuda, aquí esta el código de macros generado de acuerdo a lo que me sugeriste.

Sub Exportar_Archivos()

'

' Exportar_Archivos Macro

'

'

ChDir "C:\Users\Jorge\Desktop\cuenta_alta"

Workbooks.Open Filename:="C:\Users\Jorge\Desktop\cuenta_alta\ADAD COORD..xls" _

, UpdateLinks:=0

Range("B4:4").Select

Selection.Copy

Windows("Libro2").Activate

Range("C4").Select

ActiveSheet.Paste

Range("F4").Select

Windows("ADAD COORD..xls").Activate

Range("B5:5").Select

Application.CutCopyMode = False

Selection.Copy

Windows("Libro2").Activate

ActiveSheet.Paste

Range("C5").Select

Windows("ADAD COORD..xls").Activate

ActiveWindow.Close

Workbooks.Open Filename:="C:\Users\Jorge\Desktop\cuenta_alta\ADAD.xls", _

UpdateLinks:=0

Range("B4:4").Select

Selection.Copy

Windows("Libro2").Activate

ActiveSheet.Paste

Range("F5").Select

Windows("ADAD.xls").Activate

Range("B5:5").Select

Application.CutCopyMode = False

Selection.Copy

Windows("Libro2").Activate

ActiveSheet.Paste

Range("C6").Select

Windows("ADAD.xls").Activate

ActiveWindow.Close

Workbooks.Open Filename:= _

"C:\Users\Jorge\Desktop\cuenta_alta\AFRICA (COL. 2012).xls", UpdateLinks:=0

ActiveWindow.SmallScroll Down:=-57

Range("B4:4").Select

Selection.Copy

Windows("Libro2").Activate

ActiveSheet.Paste

Range("F6").Select

Windows("AFRICA (COL. 2012).xls").Activate

Range("B5:5").Select

Application.CutCopyMode = False

Selection.Copy

Windows("Libro2").Activate

ActiveSheet.Paste

End Sub

[Armando Montes]

Ok, facilitaras responder incluyendo un archivo(s) con el codigo generado.

Sube por favor el archivo destino y los archivos desde donde copiaste.

Los codigos publicados deben usar etiquetas.

Para aprovechar mejor el foro por favor lee:

Normas AyudaExcel | Ayuda Excel

[lopesher]

Adjunto los archivos que utilice y el que se genero.

ADAD COORD.xls

ADAD.xls

AFRICA (COL. 2012).xls

Libro2.xls