CODEDS Ensino e Consultoria

Integração Protheus com Excel via ADVPL

 
Exportar dados e relatórios para Excel é uma das tarefas mais frequentes para que atua na criação de relatórios gerenciais ou em customizações que desejam que os dados sejam exportados para utilização em planilha eletrônica. Posso dizer, na minha opinião que a a diversidade das necessidades de exportação de dados é tão grande quando as duvidas para sua geração.
 
Na ferramenta padrão há já por padrão a possibilidade de exportação dos dados para Planilha Eletrônica.
Já em customizações um dos recurso mais utilizados é a criação de uma tabela temporária em arquivo do tipo .DBF e a gravação em disco da mesma com a extensão .XLS . 
 
Como alternativa para este modelo, foi disponibilizada pela Totvs a função FWMsExcel que facilita e muito este processo, garantindo compatibilidade, funcionalidade e uma variedade de recursos que merecem ser explorados.
 
Segue a seguir mais detalhes desta função: 
 


Descrição 
Fornece metodos para criação de arquivo XML compatível com as versões do MS Excel 2003, superiores e alternativos. Fornece metodos para a criação de planilhas em formato de tabela e fornece também métodos para a configuração de cores e fonte.
 
Exemplo 
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
 
 
 

Deixe uma resposta

Fechar Menu