FiveTech Software tech support forums

Muy 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 ...

... objExcel = TOleAuto():New("Excel.Application") objExcel:Visible := .T. objExcel:Workbooks:Add() objExcel:Sheets("Hoja1") oHoja:=objExcel:ActiveSheet() oHoja:Shapes:AddPicture("C:\Prueba\logo.jpg",.t.,.t.,10,5,88,80) objExcel:Cells(1, 5):Font:bold ...

Hola Antonio, Te envío este ejemplo por si te sirve de guía: cFile := "C:\hojas\hoja1.doc"oWord := TWord():New()oWord:OpenDoc( cFile )cTxt := "Nombre del Cliente"oWord:Replace("[nombrecliente]",cTxt)cTxt ...

... open) that the program have to modify/use. Thanks Intenta asi... oHoja := oExcel:ActiveSheet() // SINO ESPECIFICAS QUE HOJA, TOMARA POR DEFECTO LA HOJA1 oExAngu:Sheets("COLUMNAS"):Select() // SELECCIONO Y ME CAMBIO A LA HOJA(pestaña) COLUMNAS Q VOY A LEER oHoja := oExAngu:ActiveSheet() ...

... pero en la del cliente no. Alguna idea? Dejo trozo de código. Saludos y gracias. Ruben Dario Fernández Me da error en oExcel:oHoja("Hoja1") y oHoja:Cells:Font:Name := "Arial" Esto funciona bien en Excel 32 bits. oExcel := ExcelObj()If oExcel == nil   MsgInfo("Excel ...

amigo, necesito tener un browse y poner formulas aca esta la imagen.



Saludos

... oHoja := oExcel:ActiveSheet() oHoja := oExcel:ActiveSheet() // SINO ESPECIFICAS QUE HOJA, TOMARA POR DEFECTO AL HOJA1 y para el formato de celda lo hago asi:    oHoja:PageSetup:Orientation := 2 // 1=xlPortrai(vertical), 2=xlLandscape(horizontal)  ...

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.

... a todos... Tengo otra 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 ...

... al fin consegui como hacerlo y lo comparto, aunque lo original fue bajo visual basic, saludos... :shock: esto fue lo que consegui para VB Hoja1.Shapes.AddPicture "ruta:\Img.jpg", msoFalse, msoCTrue, Hoja1.Range("A1").Left, Hoja1.Range("A1").Top, Hoja1.Range("A1").Width, ...

... ::oWorkBook := ::oXlsFile:XLSFile:Workbook ::nDateFormat:=::oWorkbook:FormatStrings:AddFormat(::cDateFormat) ::oWorkbook:Sheets(1):Name := "Hoja1" for n:=2 to nSheets ::SheetAdd() next ::SheetSelect(1) ::SheetInit() return Self *------------------------------------------------ METHOD ...

... con la que vamos 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 ...

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() ...

... oHoja oExcel := TOleAuto():New( "Excel.Application" ) oExcel :WorkBooks:Open( "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() ...