Deseo copiar hojas de un libro cerrado a otro abierto, los nombres pueden estar variando.

Lo que pretendo es lo siguiente:

-En un libro abierto, crear una macro para que pregunte el lugar donde se localiza el libro. -Después lo abra

-Copie las hojas al libro abierto,

-Al igual los nombres de dicha hojas pueden estar cambiando.

- Cerrar el libro fuente (el de las hojas para copiado)

Gracias de antemano por las respuestas

2 Respuestas

Respuesta
1

Te mando mi solución. Ejecuta esta macro en un archivo nuevo y vacío y hará lo que pides:

Sub ejemplo()
'por luismondelo
mio = ActiveWorkbook.Name
fichero = Application.GetOpenFilename
If fichero = False Then Exit Sub
Workbooks.Open fichero
otro = ActiveWorkbook.Name
For Each hoja In ActiveWorkbook.Sheets
hoja.Copy before:=sheets(1)
Next
Workbooks(otro).Close False
End Sub

no olvides finalizar la consulta

muchas gracias, LUIS.

No había podido responder y cerrar la pregunta

por problemas en mi conexión y en mi cuenta.

pero nuevamente GRACIAS.

Respuesta
Me sirvió lo que hizo Luis, no obstante, hay que corregir la línea
Donde aparece 
hoja.Copy before:=sheets(1) 
a lo siguiente
hoja.Copy before:=Workbooks(mio).sheets(1)
Todo queda así:
Sub ejemplo()
'por luismondelo
mio = ActiveWorkbook.Name
fichero = Application.GetOpenFilename
If fichero = False Then Exit Sub
Workbooks.Open fichero
otro = ActiveWorkbook.Name
For Each hoja In ActiveWorkbook.Sheets
hoja.Copy before:=Workbooks(mio).sheets(1)
Next
Workbooks(otro).Close False
End Sub
Sub ejemplo() 'por luismondelo mio = ActiveWorkbook.Name fichero = Application.GetOpenFilename If fichero = False Then Exit Sub Workbooks.Open fichero otro = ActiveWorkbook.Name For Each hoja In ActiveWorkbook.Sheets hoja.Copy before:=sheets(1) Next Workbooks(otro).Close False End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas