Excel - copiar hoja entera en nuevo archivo excel

   
Vista:

copiar hoja entera en nuevo archivo excel

Publicado por David (1 intervención) el 23/01/2012 17:38:26
Amigos:

Usando macros

Quiero copiar toda una hoja completa "A" en un archivo nuevo excel "B"

(- La hoja "A" de origen tiene un boton que invoca a una macro
- la macro esta grabada en el mismo archivo "A" de origen)

Logro hacer la copia de toda la hoja "A" en el archivo "B",

En el archivo "B" se copia el boton, pero al hacer click para poder ver
el contenido de la macro, veo que hace referencia al archivo origen "A"

La macro funciona bien en el archivo "B" si es que en el mismo directorio esta el archivo origen "A"

Lo que quiero es que se copie tambien el contenido de la macro de "A" en "B"

-------------------------------------------------------------------
Aqui les dejo la macro que hice, (que crea el archivo nuevo)

Tambien resulta que cuando abro desde el explorador el archivo nuevo credado , me da este mensaje

El archivo que intenta abrir tiene otro formato que el especificado por la extensión del archivo Compruebe que el archivo no esta dañado y procede de un origen de confianza ¿desea abrir el archivo ahora?

Pongo SI y el archivo se abre normal, le hago algunas correcciones y lo grabo
para la siguiente vez que lo habro ya no tengo ese mensaje

USO EXCEL 2007
----------------------

Set newbook = Workbooks.Add 'se crea nuevo libro
With newbook
.Title = nsede
.Subject = nsede
.SaveAs Filename:=nsede1
End With

' Abre archivo modelo (este archivo contiene la hoja origen "A"
If is_open("Libro_modelo" + ".xls") Then
' no hace nada
Else
Workbooks.Open Filename:=nruta + "Libro_modelo.xls"
End If

Windows("Libro_modelo.xls").Activate

Sheets("Hoja").Copy Before:=Workbooks(nsede + "-" + Left(nlugar, 17) + ".xls").Sheets(1)

Sheets(Array("Hoja1", "Hoja2", "Hoja3")).Select
Sheets("Hoja3").Activate
ActiveWindow.SelectedSheets.Delete

Workbooks("Libro_modelo" + ".xls").Save
Workbooks("Libro_modelo" + ".xls").Close
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