FiveTech Software tech support forums

Posted: **Wed Jun 23, 2021 5:41 pm**

Hola busco hacer eso de arriba.
Al excel que va a mostrar los resultados desde xbrowse, se le puede poner encabezados, subtitulos o fecha de exp. que no estuvieron definidas cuando arme el xbrowse?

Posted: **Thu Jun 24, 2021 2:43 pm**

oSheet := oBrw:ToExcel()

Now, use the oSheet object and write in that Sheet, whatever you want to add extra.

Posted: **Thu Jun 24, 2021 9:21 pm**

Thanks Mr. Rao

Posted: **Tue Dec 07, 2021 10:13 pm**

Exporto a excel con xbrowse sin problema
El problema es cuando quiero agregarle mas cosas a esa hoja me aparecen errores como por ejemplo:

Code: Select all Expand view: function main() DEFINE DIALOG oDlg SIZE 800,500 PIXEL @ 0,0 XBROWSE oBrw OF oDlg ; DATASOURCE "DATA" ; COLUMNS "material", "descrip", "mes01","mes02","mes03","mes04", "mes05","mes06","mes07","mes08","mes09", "mes10", "mes11", "mes12"; HEADERS "Material", "Descripcion","Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre" oBrw:CreateFromCode() oDlg:oClient := oBrw ACTIVATE DIALOG oDlg CENTERED ; ON INIT (DlgMenu1(oDlg,oBrw)) data->(dbCloseArea()) return nil Function DlgMenu1(oDlg,oBrw) local oMenu, oBar MENU oMenu 2007 MENUITEM "&Excel" ACTION ( CargaEx(oBrw) ) MENUITEM "&Salir" ACTION oDlg:End() ENDMENU oDlg:SetMenu(oMenu) return nil static function cargaex(obrw) oExcel:=oBrw:toexcel() oExcel:Rows(1):Insert() nLin:=1 return nil

Consigo este error

Code: Select all Expand view: static function cargaex(obrw) oExcel:=oBrw:toexcel() //oExcel:Rows(1):Insert() nLin:=1 oExcel:Columns("F:L"):delete(-4159) return Nil

Aqui otro error

He intentado de otra forma pero igual consigo error al exportar a excel

Code: Select all Expand view: oExcel:= TOleAuto():New( "Excel.Application" ) oExcel:WorkBooks:Add() oExcel:Visible := .T. oSheet:=oExcel:ActiveSheet() nFilM :=2 oRs:movefirst() Do While !oRs:Eof() cDesMat:= oRs:Fields("descrip"):Value() oSheet:Cells( nFilM, 1 ):Value := cDesMat nFilm++ Do While !oRs:Eof() .and. cDesMat=oRs:Fields("descrip"):Value() nMes:=oRs:Fields("mes"):Value() Do While !oRs:Eof() .and. cDesMat=oRs:Fields("descrip"):Value() .and. nMes=oRs:Fields("mes"):Value() cMovi:=oRs:Fields("movim"):Value() nSumPesI:=0 Do While !oRs:Eof() .and. cDesMat=oRs:Fields("descrip"):Value() .and. nMes=oRs:Fields("mes"):Value() ; .and. cMovi=oRs:Fields("movim"):Value() nSumPesI+=oRs:Fields("pnet"):Value() oRs:movenext() EndDo do case case cMovi='A' oSheet:Cells( nFilM, 2 ):NumberFormat := "##.##0,00" oSheet:Cells( nFilM, 2 ):Value := nSumPesI case cMovi='I' oSheet:Cells( (nFilM+1), (nMes+1) ):NumberFormat := "##.##0,00" oSheet:Cells( (nFilM+1), (nMes+1) ):Value := nSumPesI case cMovi='S' oSheet:Cells( (nFilM+2), (nMes+1) ):NumberFormat := "##.##0,00" oSheet:Cells( (nFilM+2), (nMes+1) ):Value := -1*nSumPesI endcase EndDo EndDo nFilM+=4 EndDo

Lo raro es que hay veces que si exporta a excel sin errores pero vuelvo intentar a exportar lo mismo y sale los errores de arriba. Uds. pueden trabajar con excel desde fw sin problema?

Utilizo fw 17.12, harbour 3.2.0dev (r1703231115) y Borland bcc7

Posted: **Wed Dec 08, 2021 6:44 pm**

Mr. Rao
He notado que si solo dejo la línea obrw:toexcel() lo puedo hacer varias veces y no hay problema pero si le agrego una línea por ejemplo: oExcel:Rows(1):Insert() la primera vez que exportó no sale error pero si hago una segunda vez con la hoja abierta de la primera exportación me salen los errores. Porqué pasa eso?
Espero me indique que esta mal, gracias

FiveTech Software tech support forums

exportar a excel lineas adic. que no aparecen en el xbrowse

exportar a excel lineas adic. que no aparecen en el xbrowse

Re: exportar a excel lineas adic. que no aparecen en el xbrowse

Re: exportar a excel lineas adic. que no aparecen en el xbrowse

Re: exportar a excel lineas adic. que no aparecen en el xbrowse

Re: exportar a excel lineas adic. que no aparecen en el xbrowse