Copiar una hoja dentro de un libro excel

Board index FiveWin para Harbour/xHarbour Copiar una hoja dentro de un libro excel

Posts: 234

Joined: Tue Oct 25, 2005 12:39 AM

Copiar una hoja dentro de un libro excel
Posted: Tue Sep 12, 2006 04:02 PM

Hola gente,
Pues eso, tengo un hoja con datos dentro de un libro de excel... pero no puedo hacer una copia de esa hoja dentro del mismo libro.

Este es el código del VB

Sheets("01").Select
Sheets("01").Copy Before:=Sheets(1)

Donde "01" es el nombre de la hoja a copiar"

Una ayuda por favor.

fleal

Posts: 234

Joined: Tue Oct 25, 2005 12:39 AM

A quien le sirva
Posted: Tue Sep 12, 2006 07:33 PM

Así se hace

    // copio la primera hoja
    oExcel:Sheets( "01" ):Select()
    oExcel:ActiveWorkbook:Sheets( "01" ):Invoke("Copy",oHoja)

    // como ya son dos, ahora muevo la nueva hoja al final de la primera
    oHoja2  := oExcel:Get( "ActiveSheet" )
    oHoja2:Name := "02"

    oExcel:ActiveWorkbook:Sheets( "01" ):Invoke("Move",oHoja2)

Todo es fácil cuando se tiene la solución

FiveTech Support Forums

Continue the discussion