Estrutura básica para gerar uma listagem ou relatório em Excel

[rochinha]

Amiguinhos,

Estrutura básica para gerar uma listagem ou relatório em Excel:

Function XLSTotalVendas()
   LOCAL oExcel, oHoja
   LOCAL nRow := 1, nCol
	   M->TOT_0001 := 0
   M->TOT_0002 := 0
   M->TOT_0003 := 0
   M->TOT_0004 := 0
	   M->QUEBRAR  := .T.
   M->RESUMIR  := .T.
	   /* ABERTURA E INDICES */
   USE ITENS // Contem os campos DATAPED(D), CUSTO(N,15,2), VALOR(N,15,2), DESCONTO(N,15,2)
   INDEX ON dataped // Sera usado como ponto de quebra
	   CursorWait()
	   oExcel := TOleAuto():New( "Excel.Application" )
   oExcel:WorkBooks:Add()
	   oHoja := oExcel:Get( "ActiveSheet" )
   nRows := oHoja:UsedRange:Rows:Count()
   nCols := oHoja:UsedRange:Columns:Count()
	   oHoja:PageSetup:Orientation  := 2
   oHoja:PageSetup:PrintGridlines := .t.
	   // Margens
   oHoja:PageSetup:LeftMargin   := 0.25
   oHoja:PageSetup:RightMargin  := 0.25
   oHoja:PageSetup:TopMargin    := 0.25
   oHoja:PageSetup:BottomMargin := 0.25
   oHoja:PageSetup:HeaderMargin := 0.25
   oHoja:PageSetup:FooterMargin := 0.25
	   // Area de Impressao
   oHoja:PageSetup:PrintArea = "$A$1:$O$60"
	   // Define nome para planilha
   oHoja:name:='Tabela de Precos' 
	   // Toda planilha
   oHoja:Cells:Font:Name := "Arial"
   oHoja:Cells:Font:Size := 8
	   // Formatando o titulo
   oHoja:Cells( 1, 1 ):Value := "NOME DO RELATORIO"
   oHoja:Cells( 1, 1 ):Font:Size := 18
   oHoja:Cells( 1, 1 ):Font:Name := "Arial"
   oHoja:Range( "A1:G1" ):HorizontalAlignment := 7
   oHoja:Cells( 1, 1 ):Select()
	   nRow := 2
   nCol := 1
	   DBGOTOP()
   /* USAR COM QUEBRA */
   /* ********************************************** */
   IF M->QUEBRAR
      M->QUEBRA_1 := dtos(dataped) // fara a quebra por data
   ENDIF
   /* */
   DO WHILE .T. // EOF()
      if nRow = 2
         //oSheet:Range("A:A"):Set("ColumnWidth",32) // AJUSTA TAMAÑO UN RANGO A UN VALOR 
         // Colocando nomes nas colunas
         oHoja:Cells( nRow, nCol+0 ):Value := "Data"
         oHoja:Cells( nRow, nCol+1 ):Value := "Desconto"
         oHoja:Cells( nRow, nCol+2 ):Value := "Custo Total"
         oHoja:Cells( nRow, nCol+3 ):Value := "Valor Total"
         oHoja:Cells( nRow, nCol+4 ):Value := "Lucro Total"
         oHoja:Cells( nRow, nCol+5 ):Value := "Lucro (%)"
         // Formatando estilo
         oHoja:Cells( nRow, nCol+0 ):Font:Bold := .T. // :Font:Size / :Font:Color
         oHoja:Cells( nRow, nCol+1 ):Font:Bold := .T.
         oHoja:Cells( nRow, nCol+2 ):Font:Bold := .T.
         oHoja:Cells( nRow, nCol+3 ):Font:Bold := .T.
         oHoja:Cells( nRow, nCol+4 ):Font:Bold := .T.
         oHoja:Cells( nRow, nCol+5 ):Font:Bold := .T.
         // Formatando tamanho
         oHoja:Cells( nRow, nCol+0 ):ColumnWidth := 10
         oHoja:Cells( nRow, nCol+1 ):ColumnWidth :=  8
         oHoja:Cells( nRow, nCol+2 ):ColumnWidth := 14
         oHoja:Cells( nRow, nCol+3 ):ColumnWidth := 14
         oHoja:Cells( nRow, nCol+4 ):ColumnWidth := 14
         oHoja:Cells( nRow, nCol+5 ):ColumnWidth := 10
         // Formatando tamanho
         oHoja:Cells( nRow, nCol+0 ):Interior:ColorIndex := 6
         oHoja:Cells( nRow, nCol+1 ):Interior:ColorIndex := 6
         oHoja:Cells( nRow, nCol+2 ):Interior:ColorIndex := 6
         oHoja:Cells( nRow, nCol+3 ):Interior:ColorIndex := 6
         oHoja:Cells( nRow, nCol+4 ):Interior:ColorIndex := 6
         oHoja:Cells( nRow, nCol+5 ):Interior:ColorIndex := 6
         //
         nRow := 3
      endif
      
      /* USAR COM RESUMO */
      /* ********************************************** */
      IF M->RESUMIR
         M->QUEBRA_1=dtos(dataped)
         M->SUM_0001 := 0
         M->SUM_0002 := 0
         M->SUM_0003 := 0
         M->SUM_0004 := 0
         DO WHILE M->QUEBRA_1=dtos(dataped) // Faz enquanto nao QUEBRA
            M->SUM_0001 := M->SUM_0001 + desconto
            M->SUM_0002 := M->SUM_0002 + custo
            M->SUM_0003 := M->SUM_0003 + valor
            M->SUM_0004 := M->SUM_0004 + valor-custo
            SKIP
         ENDDO
         SKIP -1
      ELSE
         M->SUM_0001 := desconto
         M->SUM_0002 := custo
         M->SUM_0003 := valor
         M->SUM_0004 := valor-custo
      ENDIF
      /* */     
      
      // Formatando um campo
      oHoja:Cells( nRow, nCol+0 ):Value := dataped
      oHoja:Cells( nRow, nCol+1 ):NumberFormat := "###.###.##0,00"; oHoja:Cells( nRow, nCol+1 ):Value := M->SUM_0001
      oHoja:Cells( nRow, nCol+2 ):NumberFormat := "###.###.##0,00"; oHoja:Cells( nRow, nCol+2 ):Value := M->SUM_0002
      oHoja:Cells( nRow, nCol+3 ):NumberFormat := "###.###.##0,00"; oHoja:Cells( nRow, nCol+3 ):Value := M->SUM_0003
      oHoja:Cells( nRow, nCol+4 ):NumberFormat := "###.###.##0,00"; oHoja:Cells( nRow, nCol+4 ):Value := M->SUM_0004
      oHoja:Cells( nRow, nCol+5 ):NumberFormat := "###.###.##0,00"; oHoja:Cells( nRow, nCol+5 ):Value := div(M->SUM_0004,M->SUM_0003)*100
      // Somatoria dos subtotais
      oHoja:Cells( nRow, nCol+0 ):Font:Bold := .T.
      oHoja:Cells( nRow, nCol+2 ):Font:Bold := .T.
      oHoja:Cells( nRow, nCol+3 ):Font:Bold := .T.
      oHoja:Cells( nRow, nCol+4 ):Font:Bold := .T.
      //
      oHoja:Cells( nRow, nCol+2 ):Interior:ColorIndex := 6
      oHoja:Cells( nRow, nCol+3 ):Interior:ColorIndex := 6
      oHoja:Cells( nRow, nCol+4 ):Interior:ColorIndex := 6
      //
	      SKIP
      /* */
      nRow := nRow + 1
      if eof()
         exit
      endif
      //SKIP
   ENDDO
   //
   oHoja:Cells( nRow, nCol+2 ):Value        := "CUSTO TOTAL"
   oHoja:Cells( nRow, nCol+3 ):Value        := "VALOR TOTAL"
   oHoja:Cells( nRow, nCol+3 ):Value        := "LUCRO TOTAL"
   nRow := nRow + 1
   oHoja:Cells( nRow, nCol+2 ):Font:Bold    := .T.
   oHoja:Cells( nRow, nCol+2 ):Font:Italic  := .T.
   oHoja:Cells( nRow, nCol+2 ):Font:Size    := 10
   oHoja:Cells( nRow, nCol+2 ):NumberFormat := "###.###.##0,00"
   oHoja:Cells( nRow, nCol+2 ):Value        := "=soma("+chr(64+nCol+2)+"3:"+chr(64+nCol+2)+alltrim(str(nRow-1))+")"
   //
   oHoja:Cells( nRow, nCol+3 ):Font:Bold    := .T.
   oHoja:Cells( nRow, nCol+3 ):Font:Italic  := .T.
   oHoja:Cells( nRow, nCol+3 ):Font:Size    := 10
   oHoja:Cells( nRow, nCol+3 ):NumberFormat := "###.###.##0,00"
   oHoja:Cells( nRow, nCol+3 ):Value        := "=soma("+chr(64+nCol+3)+"3:"+chr(64+nCol+3)+alltrim(str(nRow-1))+")"
   //
   oHoja:Cells( nRow, nCol+4 ):Font:Bold    := .T.
   oHoja:Cells( nRow, nCol+4 ):Font:Italic  := .T.
   oHoja:Cells( nRow, nCol+4 ):Font:Size    := 10
   oHoja:Cells( nRow, nCol+4 ):NumberFormat := "###.###.##0,00"
   oHoja:Cells( nRow, nCol+4 ):Value        := "=soma("+chr(64+nCol+4)+"3:"+chr(64+nCol+4)+alltrim(str(nRow-1))+")"
   //
   oExcel:Visible := .T.
	   /* CASO QUEIRA IMPRIMIR */
   //oHoja:PrintOut() // Funciona OK
	   /* CASO QUEIRA SALVAR */
   //oExcel:WorkBooks:SaveAs(cFilePath(GetModuleFileName(GetInstance()))+"\planilha.xls")
	   oHoja:End()
   oExcel:End()
   CursorArrow()
   RETURN