cendon Posted October 6, 2008 Report Share Posted October 6, 2008 Bom dia amigos, a algum tempo gero alguns relatorios em excel utilizando o que há de mais simples. Um arquivo texto renomeado para xls com chr(9) para separar os campos. porem já não estava atendendo mais meus clientes passei a testar com OLE até consegui gerar o arquivo. Era para ter 1 só celula ocupada, porem ele repete o mesmo conteudo em toda planilha. alguem saberia onde está o erro? o fonte é este. /* Generando um arquivo Excel Angelo José Ferreira Cendon */ #include "FiveWin.ch" FUNCTION Testaj() LOCAL cFilexls := ".\arqexcel.xls" LOCAL oExcel msgalert("iniciando geração") oExcel := TExcelScript():New() msgalert("Criando script para excel") oExcel:Create( cFilexls ) oExcel:Visualizar(.T.) msgalert("Arquivo test1.xls criado - Partindo para entrada de dados") oExcel:Font("Tahoma") // fonte de letra oExcel:Size(10) // tamanho do fonte oExcel:Align(1) // alinhamento a esquerda oExcel:Say( 4 , 2 , 'Teste de geração excel' , , , .T.) oExcel:Visualizar(.T.) oExcel:End() msgalert("K bo") RETURN ( .T. ) Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop Quote Link to comment Share on other sites More sharing options...
cendon Posted October 6, 2008 Author Report Share Posted October 6, 2008 Bom dia amigos, a algum tempo gero alguns relatorios em excel utilizando o que há de mais simples. Um arquivo texto renomeado para xls com chr(9) para separar os campos. porem já não estava atendendo mais meus clientes passei a testar com OLE até consegui gerar o arquivo. Era para ter 1 só celula ocupada, porem ele repete o mesmo conteudo em toda planilha. alguem saberia onde está o erro? o fonte é este. /* Generando um arquivo Excel Angelo José Ferreira Cendon */ #include "FiveWin.ch" FUNCTION Testaj() LOCAL cFilexls := ".\arqexcel.xls" LOCAL oExcel msgalert("iniciando geração") oExcel := TExcelScript():New() msgalert("Criando script para excel") oExcel:Create( cFilexls ) oExcel:Visualizar(.T.) msgalert("Arquivo test1.xls criado - Partindo para entrada de dados") oExcel:Font("Tahoma") // fonte de letra oExcel:Size(10) // tamanho do fonte oExcel:Align(1) // alinhamento a esquerda oExcel:Say( 4 , 2 , 'Teste de geração excel' , , , .T.) oExcel:Visualizar(.T.) oExcel:End() msgalert("K bo") RETURN ( .T. ) Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop Marcos Souza 1 Quote Link to comment Share on other sites More sharing options...
Wellington Vieira Posted October 6, 2008 Report Share Posted October 6, 2008 Olá Angelo,, teste usando a partir do preview de seus relatórios e gerando arquivos excels... http://www.fivewin.com.br/exibedicas.asp?id=930 '> http://www.fivewin.com.br/exibedicas.asp?id=930 wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br Quote Link to comment Share on other sites More sharing options...
Eric.Developer Posted October 6, 2008 Report Share Posted October 6, 2008 Uma idéia muito prática para utilização de OLE nativamente com xHarbour: http://xbasesuporte.freeforums.org/viewtopic.php?t=132 Também contém "OLE - Referência completa (propriedades/métodos)" Requer estar cadastrado nos termos da xBaseSuporte. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.