FiveTech Software tech support forums

... buenas, estoy insertando hojas en un libro de excel pero se crean en la posicion de la hoja activa y me desplaza esta a la ultima posicion Hoja1, Hoja2, Hoja6, Hoja5, Hoja4, Hoja3 Existe alguna forma de que las hojas se añadan al final? como Sheets.Add After el codigo que utilizo es: oExcel := ...

... la aplicación y la tengo casi terminada, pero esto me preocupa. Muchas Gracias por vuestra ayuda, Pongo como me has comentado la definición de Hoja2 del .rc #define DIALOG_20   20HOJA2 DIALOG 19, 45, 759, 357STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_MAXIMIZEBOXCAPTION ...

José Luis,

Copia aquí la definición del diálogo "HOJA2" de tu fichero RC

... ) return End oHoja := oExcel:ActiveSheet oHoja:name := 'Totales' If oExcel:sheets:count() <= 1 oExcel:sheets:Add() EndIf oExcel:Sheets("Hoja2"):Select() oHoja := oExcel:ActiveSheet oHoja:name:='Nomina' If oExcel:sheets:count() <= 2 oExcel:sheets:Add() EndIf oExcel:Sheets("Hoja3"):Select() ...

... ) return End oHoja := oExcel:ActiveSheet oHoja:name := 'Totales' If oExcel:sheets:count() <= 1 oExcel:sheets:Add() EndIf oExcel:Sheets("Hoja2"):Select() oHoja := oExcel:ActiveSheet oHoja:name:='Nomina' If oExcel:sheets:count() <= 2 oExcel:sheets:Add() EndIf oExcel:Sheets("Hoja3"):Select() ...

... desde xBrowse, ya que exporta a Excel con: oExcel := TOleAuto():New( "Excel.Application" ) oExcel:WorkBooks:Add() oExcel:Sheets("Hoja2"):Select(); oHoja := oExcel:ActiveSheet() oHoja := oExcel:ActiveSheet() // SINO ESPECIFICAS QUE HOJA, TOMARA POR DEFECTO AL HOJA1 y para ...

... el nombre a la HOJA si lo deseas antes de usarla, saludos... :shock: PASO 1 - Seleccionas el nombre de la hoja que vas usar oExcel:Sheets("Hoja2"):Select() PASO 2 - Activas la hoja oHoja := oExcel:ActiveSheet() es como usar el SELECT en DBF, solo que luego debes activar la hoja que ...

Gracias por la respuesta José Luis,
Aún no logré entender como hacer lo que necesito.
Yo tengo las dos DBFs, y lo que quiero lograr es crear un solo Excel con las dos hojas. En la hoja1 los datos de la primer DBF y en la hoja2 los datos de la segunda.

... http://temporaexcel.blogspot.com/2011/10/codigo-vba-acciones-con-una-hoja-de.html Aca esta probado y todo.... oExcel:Sheets("Hoja2"):Select() oHoja := oExcel:ActiveSheet()

... consulta con TOleAuto() Tengo dos archivos DBFs, y los quiero grabar como excel en una misma planilla. La primer DBF en la Hoja1 y la segunda en Hoja2. En principio lo tengo armado en dos archivos XLS, pero lo ideal sería armar uno solo con dos hojas. Alguien lo hizo? Alguna ayuda será bienvenida!! ...

... a trabajar e inmediatamente hacerla activa. veamos un pequeño ejemplo: Imaginemos que un libro tiene cinco hojas llamadas "hoja1", "hoja2" "hoja3", "hoja4" y "hoja5" y la última vez que se salvo el usuario estaba trabajando con la "hoja3". ...

Si estas utilizando la TExcel, pues entonces prueba con:

oExcel:NameSheet( "HOJA1", "ENERO")
oExcel:NameSheet( "HOJA2", "FEBRERO")
oExcel:NameSheet( "HOJA3", "MARZO")

Espero te sirva.

Carlos.

Amigos, tengo un libro.xls con 3 jojas, HOJA1 HOJA2 HOJA3 Quisiera saber si puedo renombrar las hojas ENERO FEBRERO MARZO Uso texcel , alguna sugerencia ? gracias. oExcel := TExcelScript():New() oExcel:Open( cFile ) nHojas := oExcel:CountSheets() ...

... "prueba.xls" ) oHoja := oExcel:Get( "ActiveSheet" ) oExcel:Sheets( "Hoja1" ):Cells( 1, 1 ):Value := "PRUEBA HOJA 1" oExcel:Sheets( "Hoja2" ):Cells( 1, 1 ):Value := "PRUEBA HOJA 2" oExcel:Get( "ActiveWorkbook" ):Save() oExcel:Quit() oExcel:End() RETURN NIL