data exported to excel file and excel file opened it self

Question

I uses following command to export data into an excel file.

USE FILENAME

COPY TO <FILENAME> TYPE XLS

It works well. It exports data to excel file and I cal open this excel file by double clicking on that. But what I need is that I want that excel file is opened automatically after generation.

Any code ?

Thanks

Deepak Kharpate

Answer 1

Try this

DECLARE INTEGER ShellExecute ;
        IN SHELL32.DLL ;
        INTEGER nWinHandle,;
        STRING cOperation,;
        STRING cFileName,;
        STRING cParameters,;
        STRING cDirectory,;
        INTEGER nShowWindow
FILENAME = "c:\Users\test\Documents\Book2.xls"
result = ShellExecute(0, 'Open', m.FILENAME , '', '', 1)
DO CASE
   CASE result =  0       
        msg = "The system is out of memory or resources."
   CASE result =  2         
        msg = "Bad Association (for example, invalid URL)"
   CASE result = 29         
        msg = "Failure to load application"
   CASE result = 30         
        msg = "Application is busy "
   CASE result = 31         
        msg = "No application association"
ENDCASE

---

Systems Analyst

Answer 2

It's not what you asked, but I'd suggest that you change TYPE XLS to TYPE XL5. TYPE XLS creates an Excel 2.0 format file. There were important changes after that in the way the Excel handles dates.

Tamar

Answer 3

lc_file = << your file >>

lo_Excel = CREATEOBJECT("Excel.Application")

lo_Workbook = lo_Excel.Application.Workbooks.Open(lc_file)

lo_Excel.Visible = .t.

Answer 4

Thanks A Lot

I uses your given code and I achieved what I Want.

Thanks Again

Deepak Kharpate