arquivo excel

[cendon]

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