arquivo excel
Posted: Mon Oct 06, 2008 2:00 pm
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 _.
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
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 _.
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