#4
|
|||
|
|||
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. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|