Gerando planilhas no Excel
Uma das formas de se gerar planilha para o Excel é usando a função FWMSEXCEL.
O seu uso é bem simples, veja exemplo abaixo:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
User Function TESTE() Local oExcel := FWMSEXCEL():New() oExcel:AddworkSheet("Teste - 1") oExcel:AddTable ("Teste - 1","Titulo de teste 1") oExcel:AddColumn("Teste - 1","Titulo de teste 1","Col1",1,1) oExcel:AddColumn("Teste - 1","Titulo de teste 1","Col2",2,2) oExcel:AddColumn("Teste - 1","Titulo de teste 1","Col3",3,3) oExcel:AddColumn("Teste - 1","Titulo de teste 1","Col4",1,1) oExcel:AddRow("Teste - 1","Titulo de teste 1",{11,12,13,14}) oExcel:AddRow("Teste - 1","Titulo de teste 1",{21,22,23,24}) oExcel:AddRow("Teste - 1","Titulo de teste 1",{31,32,33,34}) oExcel:AddRow("Teste - 1","Titulo de teste 1",{41,42,43,44}) oExcel:AddworkSheet("Teste - 2") oExcel:AddTable("Teste - 2","Titulo de teste 1") oExcel:AddColumn("Teste - 2","Titulo de teste 1","Col1",1) oExcel:AddColumn("Teste - 2","Titulo de teste 1","Col2",2) oExcel:AddColumn("Teste - 2","Titulo de teste 1","Col3",3) oExcel:AddColumn("Teste - 2","Titulo de teste 1","Col4",1) oExcel:AddRow("Teste - 2","Titulo de teste 1",{11,12,13,stod("20121212")}) oExcel:AddRow("Teste - 2","Titulo de teste 1",{21,22,23,stod("20121212")}) oExcel:AddRow("Teste - 2","Titulo de teste 1",{31,32,33,stod("20121212")}) oExcel:AddRow("Teste - 2","Titulo de teste 1",{41,42,43,stod("20121212")}) oExcel:AddRow("Teste - 2","Titulo de teste 1",{51,52,53,stod("20121212")}) oExcel:Activate() oExcel:GetXMLFile("TESTE.xml") Return |
Salve o arquivo como XML, execute-o que este será aberto pelo MS Excel.
2 comentários
Também temos como opção a API Excel (link: http://appsoft.com.br/?page_id=29) onde temos mais opções de configurações e é OpenSource sob licença Apache.
Faça o download dos fontes, vale a pena conferir.
Olá, vimos a API, muito boa por sinal. recomendamos.
Parabéns para a Equipe AppSoft