Me gustaría exportar una Tabla para Excel con los colores de las respectivas celdas.
Poner los colores en los títulos de las columnas es fácil, pero no entiendo los detalles de cómo se envía una serie de datos.
Código tem por base o exemplo do saudoso "RAPINTO".
Títulos de columna:
Código COBOL:
PERFORM VARYING IDX2 FROM 1 BY 1 UNTIL IDX2 > IDX1
IF "Width" OF "TableColumns"(IDX2) OF Table2 > 5
MOVE "Text" OF "TableCells"(0 IDX2) OF Table2 TO VAL
MOVE WSLONG TO ARRAY-ROW MOVE IDX5 TO ARRAY-COL
INVOKE WORKSHEET "GET-CELLS" USING ARRAY-ROW ARRAY-COL
RETURNING CELL
INVOKE CELL "SET-VALUE" USING VAL
INVOKE CELL "GET-INTERIOR" RETURNING INTERIOR *> CORES TITULOS DAS COLUNAS
INVOKE INTERIOR "SET-COLOR" USING WCOLOR
ADD 1 TO IDX5
END-IF
END-PERFORM.
Detalle:
Código COBOL:
PERFORM VARYING IDX4 FROM 1 BY 1 UNTIL IDX4 > IDX2
IF "Width" OF "TableColumns"(IDX4) OF Table2 > 5
MOVE "Text" OF "TableCells"(IDX3 IDX4) OF Table2 TO LINHA
INVOKE ARRAYOBJ "SET-DATA" USING LINHA IDX3 IDX5
MOVE "BackColor" OF "TableCells"(IDX3 IDX4) OF Table2 TO WCOLOR2
INVOKE XXXXX "GET-INTERIOR" RETURNING INTERIOR *> ??????????????????
INVOKE INTERIOR "SET-COLOR" USING WCOLOR2
ADD 1 TO IDX5
END-IF
Alguien sabe como hacerlo?
Gracias