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


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


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


      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