Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to work around VFP Excel Page Fault?
Message
From
27/07/1999 08:41:47
 
 
To
27/07/1999 08:26:34
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00246455
Message ID:
00246520
Views:
12
>>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) && Try to open temp xls read-write
>enddo
>=fclose(myHandle) && Excel released it
>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
EMail: EdR@edrauh.com
"See, the sun is going down..."
"No, the horizon is moving up!"
- Firesign Theater


NT and Win2K FAQ .. cWashington WSH/ADSI/WMI site
MS WSH site ........... WSH FAQ Site
Wrox Press .............. Win32 Scripting Journal
eSolutions Services, LLC

The Surgeon General has determined that prolonged exposure to the Windows Script Host may be addictive to laboratory mice and codemonkeys
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform