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.

Good morning friends,

some time to generate some reports in Excel using
what's more simple. A text file renamed to xls with chr (9) to separate the fields.

but was no longer given more my clients

passed the test with OLE

could generate up to the file. It was to have 1 single cell occupied, but he repeats the same content across spreadsheet.
Anybody know where is the error?

this is the source.


/*
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