buenas otra vez, me estoy volviendo un poco loca, pork para hacelo mas facil de probar y asegurarme de que el error no esta en ningun otro sitio, me he hecho un programita de prueba con el siguiente codigo, el caso es que en la primera linea, lo escribe como yo quiero pero en las siguientes dos lo escribe mal, a alguien se le ocurre por que puede ser
*Crear excel
CREATE OBJECT application 'EXCEL.APPLICATION'.
SET PROPERTY OF application 'VISIBLE' = 1.
CALL METHOD OF application 'WORKBOOKS' = workbook.
CALL METHOD OF workbook 'Add' = workbook.
GET PROPERTY OF application 'ActiveSheet' = sheet.
SET PROPERTY OF sheet 'Name' = 'TISPL'.
*Escribir tres veces el texto
DO 3 TIMES.
cont = cont + 1.
CALL METHOD OF sheet 'Cells' = cells
EXPORTING
#1 = cont "Fila
#2 = 1. "Columna
CALL METHOD OF sheet 'RANGE' = rango
EXPORTING
#1 = 'A1'
#2 = 'A1'.
* Se formatea el ancho de columna
SET PROPERTY OF rango 'NumberFormat' = '@'. "Formato texto
SET PROPERTY OF rango 'COLUMNWIDTH' = 25.
SET PROPERTY OF cells 'Value' = '3156490004598700015'.
ENDDO.
*salvar y cerrar
CALL METHOD OF workbook 'SAVEAS'
EXPORTING
#1 = 'C:\Prueba Q01 TISPL\prueba.xls'.
CALL METHOD OF workbook 'close'.
CALL METHOD OF application 'QUIT'.
FREE OBJECT application.
FREE OBJECT workbook.
FREE OBJECT sheet.
FREE OBJECT cells.
FREE OBJECT column.
FREE OBJECT font.
FREE OBJECT color.
FREE OBJECT bold.