Search the Community

Amiguinhos, Eis uma forma rápida de importação de tabelas .DBF para arquivos .CSV e/ou .XLS de forma rápida: use tabela oExcel := TOleAuto():New( "Excel.Application" ) oWorkbook := oExcel:WorkBooks oWorkbook:Open( (DBF_TEMP) ) oExcel:DisplayAlerts := .f. oExcel:Visible := .t. oWorksheet := oExcel:Get( "ActiveSheet" ) oWorksheet:SaveAs( cPathDados + "DBF_TEMP.CSV", 6 ) oWorksheet:SaveAs( cPathDados + "DBF_TEMP.XLS", 56 ) Só não resolvi o processo preso na task manager.

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

ola bom dia pessoal alguem tem uma funcao que le xls para dbf ou txt do excel para dbf obrigado carlos fhw 1404 xharbour 123 dbf xdev bcc 5.82

Amiguinhos, Este site promete converter vários tipos de arquivos para vários tipos de saída. Cool Utils