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

[artu01]

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?

[nageswaragunupudi]

oSheet := oBrw:ToExcel()

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

[artu01]

Thanks Mr. Rao

[artu01]

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

[artu01]

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