exportar de un excel a otro excel

hola, Diana !

Mostrar la cita

Estoy creando una aplicacion con menu personalizado y quisiera agregar... la opcion de exportar la hoja activa a otro excel.
Se crear el archivo excel pero no se como escribir la instruccion para que copie la informacion del rango A1:P10000
de la hoja activa de la aplicacion en el nuevo libro de excel con los mismos formatos que la hoja activa.

- hay alguna razon "de peso" para que deba ser (precisamente) el rango A1:P10000 ?
(o se trata solo de un "estimado" de hasta donde podria haber informacion en la hoja activa) -?-

- p.e. la siguiente instruccion "crea" un libro nuevo con una copia "fiel" de la hoja que le indiques: <objeto_hoja>.Copy
(incluye formatos, alto/ancho de fila/columna, formulas, vinculos, objetos, macros en su modulo de codigo, etc. etc. etc.)

- o... si solo quieres pasar valores, luego de hacer la copia, puedes convertir todo a valores "estaticos"
(existen dos o mas tecnicas, solo asegurate de que dicha hoja NO tiene codigo en su modulo de clase, ni macros vinculadas)

- tampoco estoy muy seguro de que metodos funcionen (mejor/peor) cuando se utilizan medios de automatizacion (createobject)

asi que, si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ el codigo expuesto __
Mostrar la cita

Que instruccion inserto en el siguiente codigo para que haga esto?
Sub Exportar()
Dim xlObj As Object
Set xlObj = CreateObject("Excel.Application")
With xlObj
.Visible = True
.Workbooks.Add
With .ActiveWorkbook.Worksheets(1)
.Activate
End With
End With
End Sub