Excel - Juntar varios libros en uno

   
Vista:

Juntar varios libros en uno

Publicado por Yoly (1 intervención) el 04/05/2012 19:58:47
Hola a todos.

Me gustaria que alguien me comentara como hacer, que las hojas de varios libros los pudiera juntar en uno solo. Ya que cada libro tiene un nombre y las hojas de cada uno de estos tienen los mismos nombres en las hojas.

No se si lo que estoy proponiendo se puede hacer.

Un saludo Yoly.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Juntar varios libros en uno

Publicado por H (1 intervención) el 18/09/2012 02:15:08
Sub Une()
Dim nombre, libro, nombre_final, libro_final As String
'Objeto Excel
Set XL = CreateObject("Excel.Application")
XL.Visible = True
para = 0
i = 0
'Creamos el libro resultante
nombre_final = Cells(3, 3) & "." & Cells(2, 3)
libro_final = Cells(1, 3) & "\" & nombre_final

While (para = 0)
nombre = Cells(5 + i, 1)
libro = Cells(3, 1) & "\" & nombre

If nombre <> "" Then
XL.Workbooks.Open libro
If i = 0 Then XL.ActiveWorkbook.SaveAs libro_final, -4143
If i <> 0 Then
XL.Workbooks.Open libro
XL.Workbooks(nombre).Sheets(1).Copy , XL.Workbooks(nombre_final).Sheets(i)
XL.Workbooks(nombre).Close
End If
i = i + 1
End If
If nombre = "" Then
para = 1
XL.Workbooks(nombre_final).Close True
End If
Wend

XL.Quit
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar