Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Releasing Excel
Message
From
12/05/2005 05:47:08
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
 
To
11/05/2005 20:10:40
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
Environment versions
OS:
Windows XP
Miscellaneous
Thread ID:
01012715
Message ID:
01013291
Views:
15
>>Darren,
>>I almost never do that. It might be the point. I generally do like this:
>>
>>with oExcel.ActiveWorkBook.ActiveSheet
>>.Something
>>
>>vs
>>oSheet = oExcel.ActiveWorkBook.ActiveSheet
>>oSheet.Something
>>
>>I can't say it's the incorrect way. Just not using like that and not having problems it comes to mind. Excel leaving open in processes suggests there is a hanging reference somewhere.
>>Cetin
>
>
>Hi Cetin
>
>I changed my code, to something like you have above, but the process is still hanging in Windows, here is a portion of the code
>
>** Open Excel Object
>oEx=CREATEOBJECT("Excel.Application")
>lcSH=ALLTRIM(ThisForm.txtSpreadsheetFile.Value)
>oEx.workbooks.open("&lcSH")
>
>** Confirm Legitimate Master Spreadsheet
>nA1=oEx.ActiveWorkBook.ActiveSheet.Range("A1").value
>IF nA1=1.1
>else
> lcM="Not a Valid Master Spreadsheet"
> lcH="Error"
> MESSAGEBOX(lcM,16,lcH)
> oEx.quit
> RELEASE oEX
>ENDIF
>
>I am ensuring A1<>1.1 and receiving the Not Valid message, but the process still hangs. Can you see anything I have wrong in this code?
>
>Regards
>Darren

Darren,
I don't see something wrong (except I don't like .open("&lcSH") - why not .open(m.lcSH)).
I tried it and it releases (tried under XP,VFP7,Excel2002 - but as I remember Excel2000 would release too).
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform