Copiar una hoja de excel a otro documento excel a otra hoja - VB-MUNDO

Kaisser · #1 (**permalink**) 23-02-2006, 10:51:13

Hola a todos, soy novato por estos lares, mis saludos a todos.

Bueno, llevo ya un par de dias rompiendome la cabeza con este problema.

Tengo varios documentos de Excel, todos con varias hojas dentro. Quiero seleccionar ciertas hojas, a ser posible por indice y no por nombre y copiarlas a un documento excel. (así de fácil :smt003 )

Pues bien, ya me he currado un programita que examina una carpeta y saca los .xls, me abro un excel nuevo y abro un archivo excel de los que quiero copiar.

Problemas:

- Cuando intento copiar una hoja me copia todas, no sólo la que le indico.
Hago esto:

Código:

objLibroG.Worksheets("UUCC").Move After:=objLibro.Worksheets("Hoja1")

Bueno, a consecuencia de esto he intentado borrar las hojas que me sobran, pero nada, no borro nada. Cuando abro el documento en el que he querido borrar las hojas, veo que estan seleccionadas, nada más.
Este es el código:

Código:

        Sheets(Array("Materiales", "Materiales Recuperados", "Listado UUOO Sin Desglose", _
        "Listado UUOO Con Desglose", "Desglose UUOO")).Select
        'Sheets("Desglose UUOO").Activate
        ActiveWindow.SelectedSheets.Delete

*Lo que esta comentado es un intento anterior y que creo que no sirve de nada.

Bueno, a ver si me podeís ayudar e indicar que hago mal. Lo mejor sería que me dijeraís como copiar una hoja de un excel a otro.

Un saludo y muchas gracias.

Alella · #2 (**permalink**) 23-02-2006, 14:05:39

Hola, que tal.

Prueba lo siguiente:

Código:


    Sheets("Hoja1").Select
    Sheets("Hoja1").Copy
    Windows("prueba.xls").Activate
    Windows("Libro2").Activate
    Windows("prueba.xls").Activate

Hoja1 es la inicial y prueba es la copia de esa hoja en otra Excel.

Espero que te sirva.

Kaisser · #3 (**permalink**) 24-02-2006, 06:37:41

Pues no hace nada.

De hecho, veo un .copy pero.....¿dónde se hace el "paste" ?

A ver si me podeís ayudar por que estoy muy bloqueado con esto y no veo una solución :smt009

Es importante.

Un saludo y gracias.

Alella · #4 (**permalink**) 24-02-2006, 06:45:00

Hola, que tal.

Prueba con:

Código:


    Sheets("Hoja1").Select
    Sheets("Hoja1").Copy
    Windows("INICIAL.xls").Activate
    Windows("Libro2").Activate
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\Administrador\Mis documentos\LibroCopia.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

En la Excel INICIAL.XLS la Hoja1 queda copiada en otra Excel que se llama LibroCopia.xls.

Espero que te sirva.