>>My VFP6 Excel automation project:
>>oExcel=createobject('Excel.Application')
>>oExcel.Application.WorkBooks.Open('MYXLS.XLS')
>>oExcel.Application.Run('Auto_Start')
>>oExcel.Visible=.t.
>>Behaves well, and does the job! I can close the session without incident, by simply clicking Excel's main (X) close. BUT, when I click the "workbooks" (X) close, Window's returns an EXCEL.EXE caused a page fault at 157 ...
>>
>>Something similar too: oExcel.Application.WorkBooks(1).Closable=.f., (BTW this did not work) would be helpful. Is it possible to disable the "sheet's" (X) close, and force to click Main's (X) Close?
>>
>>Thank you,
>Yeah that caused me to lose a lot of time too. My workaround was like this :
lcExcelFile = "myxls.xls"
>oExcel = createobject("Excel.application")
>WITH oExcel
>*....
>ENDWITH
>myHandle = fopen(lcExcelFile,12)
>do while myHandle < 0
> myHandle = fopen(lcExcelFile,12)
>enddo
>=fclose(myHandle)
>Release oExcel
Cetin
I see only one problem here - if the file is deleted by Excel (or some other unanticipated or uncontrolled app) you might get hung. I'd change the DO WHILE to allow for this; maybe:
DO WHILE FILE(lcExcelFile) AND myHandle < 0
since FOPEN() of a non-existant file will return -1