Automatically open a "csv" file !!!

[tony82]

Hi,
I have wrote a procedure that export data to a "csv" file.
My question is how i can open that csv file automatically after the exporting process is done.
Thank you in advance

(i'm using OpenEdge 10.1C on windows XP)

 

[RealHeavyDude]

One option is to use Excel as OLE automation object:

DEFINE VARIABLE chExcel AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chWorkbook AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chWorkSheet AS COM-HANDLE NO-UNDO.

CREATE "Excel.Application" chExcel CONNECT NO-ERROR.
ASSIGN chExcel:WindowState = -4140 /* Minimized */
chExcel:VISIBLE = FALSE
chExcelisplayAlerts = FALSE
chWorkbook = chExcel:Workbooks:OPEN(cExportFilename,,,1)
chWorkSheet = chExcel:Sheets:ITEM(1).

HTH, RealHeavyDude.

 

[RealHeavyDude]

forgot the cleanup stuff:

ASSIGN chExcelisplayAlerts = TRUE
chExcel:VISIBLE = TRUE
chExcel:WindowState = -4143 /* Maximized */.

RELEASE OBJECT chWorkSheet NO-ERROR.
RELEASE OBJECT chWorkbook NO-ERROR.
RELEASE OBJECT chExcel NO-ERROR.

HTH, RealHeavyDude.

 

[tony82]

Thank you my friend.
I try it and it works