Esto lo he sacado de otro foro, y es para RM, pero puede ser que te sirva.
En Working
01 Excel-App.
03 Filler Pic X(16) Value "START C:\Archivos de programa\Office\Excel.exe".
En procedure
CALL "SYSTEM" USING Excel-App.
No sé esto último como será en Acucobol.
A su vez se puede generar un archivo con formato excel.
FD LISTADO LABEL RECORD STANDARD.
01 LINEA PIC X(132).
En la PROCEDURE al grabar el archivo debe tener primero:
OPEN OUTPUT LISTADO.
WRITE LINEA FROM "<FONT SIZE=10>"
WRITE LINEA FROM "<HTML>"
WRITE LINEA FROM "<BODY>"
WRITE LINEA FROM "<TABLE>"
WRITE LINEA FROM
"<TR><TH>columna1<TH>columna2<TH>columna3"
Cuando escribo las lineas de datos uso el <TR><TH> para inicio
de linea y <TD> como separador de columnas.
Ejemplo de como quedaria ya gravado:
<TR><TH>0001<TD>JOSE LUIS<TD>1,500.00
<TR><TH>0002<TD>PEDRO AL<TD>500.00
Al final antes de cerrar el archivo gravo la siguiente linea
y llamo a excel.exe:
WRITE LINEA FROM "</TABLE></BODY></HTML>"
CLOSE LISTADO.
CALL "SYSTEM.EXE" USING "START EXCEL.EXE LISTADO.XLS".
Suerte:
José
STOP RUN.
Con esto desde tu programa creas el archivo lo llamas y lo tratas
con excel(modificarlo, exportarlo, regravarlo, etc) y al cerrar excel
continua tu programa normalmente.
Para XP el call lo hago de la siguiente manera:
CALL "SYSTEM.EXE" USING "CMD START EXCEL.EXE LISTADO.XLS
