Macro que abra más de 100 libros de Excel y copie la 4ª fila de una hoja llamada layout1 y la pegue en un libro nuevo
Espero me puedan ayudar con esta macro
- Tengo una carpeta con más de 100 archivos de Excel
- Cada archivo tiene dos hojas una se llama ALTA GENERAL de la cual no se extrae nada la otra hoja se llama layout1 de la cual si se extrae o se copia la 4ª fila y se pega en un libro nuevo relacionando las filas extraídas o copiadas.
Te envío los archivos de ejemplo
Espero haya sido lo más claro posible
2 respuestas
Respuesta de James Bond
1
Lo naranja es lo que ya tenias en tu archivo, lo que esta abajo de lo naranja son los archivos copiados de los libros ejemplo.
y esta es la macro es funcional con tu información, pruébalas y comentas
Sub copiar_archivos()
Application.DisplayAlerts = False
Set libro = ActiveWorkbook
nombre = ActiveSheet.Name
Set datos = libro.Sheets(nombre).Range("a1").CurrentRegion
filaS = datos.Rows.Count
x = Application.GetOpenFilename _
("Excel Files (*.xlsx), *.xlsx", 2, "Abrir archivos", , True)
If IsArray(x) Then
For i = 1 To UBound(x)
Workbooks.Open x(i)
Set a = ActiveWorkbook
a.Sheets(2).Select
Range("a4").Resize(1, 132).Copy
datos.Rows(filaS + 1).Resize(1, 132).PasteSpecial
Application.CutCopyMode = False
a.Close False
filaS = datos.CurrentRegion.Rows.Count
Next i
End If
End Sub
Respuesta de Programar Excel
1
Tal vez esto te ayude
http://www.programarexcel.com/2013/03/copia-datos-abre-otro-libro-pega-datos.html
Debes hacer un bucle puede ser For ... Next abriendo cada uno de los archivos y extrayendo el dato fíjate en los ejemplos anteriores como abrir libros y copiar datos.
Suscribe a https://youtube.com/programarexcel recibirás en tu mail las actualizaciones