If you need open a text file delimi

[fsccdm]

If you need open a text file delimited by char with excel and create excel file:
****
REPOSITORY
class COM AS "*COM"
CLASS OLE AS "*OLE".
*********
WORKING-STORAGE SECTION.
****
01 CONTROLLI.
03 EXC_APPLICATION PIC X(50) VALUE "EXCEL.APPLICATION".
03 EXC_SERVER OBJECT REFERENCE COM.
03 EXC_DOCUMENT OBJECT REFERENCE COM.
03 EXC_BOOKS OBJECT REFERENCE COM.
03 EXC_SELECTION OBJECT REFERENCE COM.
03 EXC_FIND OBJECT REFERENCE COM.
03 EXC_PARAGRAPH OBJECT REFERENCE COM.
03 EXC_PARAGRAPHS OBJECT REFERENCE COM.
03 EXC_RANGE OBJECT REFERENCE COM.
03 EXC_FONT OBJECT REFERENCE COM.
03 EXC_FILE PIC X(1024).
03 B-STRING PIC X(1024).
03 X-NULL PIC X VALUE X"00".
03 X-CHAR PIC X VALUE X"22".
03 PARM_OPEN.
05 EXC_UPDATELINK PIC S9(9) COMP-5.
05 EXC_FORMAT PIC S9(9) COMP-5.
05 EXC_FALSE PIC S9(9) COMP-5.
05 EXC_TRUE PIC S9(9) COMP-5.
05 EXC_ORIGIN PIC S9(9) COMP-5.
05 EXC_DELIMITER PIC X VALUE "$". *> DELIMITER
*****
PROCEDURE DIVISION.
A.
SET EXC_BOOKS TO NULL
SET EXC_SERVER TO NULL
MOVE 0 TO EXC_UPDATELINK
MOVE 6 TO EXC_FORMAT *> CHAR DELIMITER
see OFFICE file VBAXL10.chm for other option
MOVE POW-FALSE TO EXC_FALSE
MOVE POW-TRUE TO EXC_TRUE
MOVE 1 TO EXC_ORIGIN

INVOKE COM "CREATE-OBJECT" USING EXC_APPLICATION
RETURNING EXC_SERVER

INVOKE EXC_SERVER "SET-VISIBLE" USING EXC_TRUE

INVOKE EXC_SERVER "GET-WORKBOOKS"
RETURNING EXC_BOOKS

MOVE SPACE TO EXC_FILE
MOVE "C:\FILETXT.TXT" TO EXC_FILE
**** PARAMTRO RICHIAMO EXCEL
INVOKE EXC_BOOKS "Open" USING
EXC_FILE
BY REFERENCE EXC_UPDATELINK
BY REFERENCE EXC_FALSE
BY REFERENCE EXC_FORMAT
BY REFERENCE X-NULL
BY REFERENCE X-NULL
BY REFERENCE EXC_FALSE
BY REFERENCE EXC_ORIGIN
BY REFERENCE EXC_DELIMITER

EXIT PROGRAM.
***********
fsccdm

 

[Tromba]

Ottimo lavoro!!

Gianni