<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Bericht</TITLE>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.2800.1226" name=GENERATOR></HEAD>
<BODY>
<DIV><SPAN class=398470321-29082003><FONT face=Arial color=#0000ff size=2>usualy
because of not closing objecsts (sometimes after an error).</FONT></SPAN></DIV>
<DIV><SPAN class=398470321-29082003><FONT face=Arial color=#0000ff size=2>you
most set worksheet/book objects to nothing to...</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV> </DIV>
<P style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px" align=left><FONT face=Arial
size=2></FONT> </P>
<P style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><FONT face=Verdana>Erwin
Craps</FONT></P>
<P style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><FONT face=Verdana>Zaakvoerder
</FONT></P>
<P style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><FONT face=Verdana size=1><A
href="http://www.ithelps.be/jonathan">www.ithelps.be/jonathan</A></FONT></P>
<P style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"> </P>
<TABLE id=AutoNumber1 style="BORDER-COLLAPSE: collapse" borderColor=#111111
width="100%" border=1>
<TBODY>
<TR>
<TD width="100%"><FONT face=Verdana size=1>
<P align=center>This E-mail is confidential, may be legally privileged,
and is for the intended recipient only. Access, disclosure, copying,
distribution, or reliance on any of it by anyone else is prohibited and
may be a criminal offence. Please delete if obtained in error and E-mail
confirmation to the sender.</FONT></P></TD></TR></TBODY></TABLE>
<DIV align=center>
<P style="MARGIN-TOP: 5px; MARGIN-BOTTOM: 3px"><B><FONT face=Verdana
color=#000080>IT Helps - I.T. Help Center </FONT></B><FONT face=Symbol
color=#000080 size=2> · </FONT><B><FONT face=Verdana
color=#000080> B</FONT></B><FONT face=Verdana color=#000080><B>ox Office
Belgium & Luxembourg</B></FONT></P>
<P style="MARGIN-TOP: 1px; MARGIN-BOTTOM: 1px"><FONT face=Verdana color=#808080
size=2><A href="http://www.ithelps.be/"
eudora="autourl">www.ithelps.be</A> </FONT><FONT face=Symbol color=#808080
size=2>· </FONT><FONT size=2><FONT face=Verdana color=#808080> <A
href="http://www.boxoffice.be/">www.boxoffice.be</A> </FONT><FONT
face=Symbol color=#808080>· </FONT></FONT><FONT face=Verdana color=#808080><FONT
size=2> </FONT><A href="http://www.stadleuven.be/"><FONT
size=2>www.stadleuven.be</FONT></A></FONT></P>
<P style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><FONT face=Verdana color=#808080
size=1>IT Helps bvba</FONT><FONT face=Symbol color=#808080 size=1> ·
</FONT><FONT size=1><FONT face=Verdana color=#808080>Mercatorpad 3 </FONT><FONT
face=Symbol color=#808080> ·</FONT></FONT><FONT face=Verdana color=#808080
size=1> 3000 Leuven</FONT></P>
<P style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><FONT face=Verdana color=#808080
size=1>IT Helps </FONT><FONT face=Symbol color=#808080
size=1>·</FONT><FONT face=Verdana color=#808080 size=1> Phone: +32 16 296
404 </FONT><FONT face=Symbol color=#808080 size=1>· </FONT><FONT
face=Verdana color=#808080 size=1> Fax: +32 16 296 405 E-mail: <A
href="mailto:Info@ithelps.be">Info@ithelps.be</A> </FONT></P>
<P style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><FONT face=Verdana color=#808080
size=1>Box Office </FONT><FONT face=Symbol color=#808080 size=1> ·
</FONT><FONT face=Verdana color=#808080 size=1> Fax: +32 16 296 406
</FONT><FONT face=Symbol color=#808080 size=1> · </FONT><FONT face=Verdana
color=#808080><FONT size=1> Box Office E-mail: </FONT><A
href="mailto:figures@boxoffice.be"><FONT
size=1>Staff@boxoffice.be</FONT></A></FONT></P></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV></DIV>
<DIV class=OutlookMessageHeader lang=nl dir=ltr align=left><FONT face=Tahoma
size=2>-----Oorspronkelijk bericht-----<BR><B>Van:</B> Hale, Jim
[mailto:jim.hale@fleetpride.com] <BR><B>Verzonden:</B> vrijdag 29 augustus
2003 18:39<BR><B>Aan:</B> 'Accessd (E-mail)<BR><B>Onderwerp:</B> [AccessD]
Excel zombie won't die<BR><BR></FONT></DIV>
<P><FONT face=Arial size=2> I have an instance of Excel that I can't seem
to kill except through the task manager or shutting down Access. I can make
the instance visible and try to shut it down using exit off the file menu but
it won't shut down that way either. The code executes without error. The code
is below. What am I missing? TIA</FONT></P>
<P><FONT face=Arial size=2>Jim Hale</FONT> </P>
<P><FONT face=Arial size=2>Public Function Load_History(intDept As Integer,
strDeptname As String, _</FONT> <BR><FONT face=Arial size=2>intCo As Integer,
strRegioncode As String, strRegionName As String, _</FONT> <BR><FONT
face=Arial size=2>strAreacode As String, strDept2 As String, strPlGroup As
String) As Boolean</FONT> </P>
<P><FONT face=Arial size=2>dim appExcel As Excel.Application</FONT> <BR><FONT
face=Arial size=2>Set appExcel = Excel.Application</FONT> </P>
<P><FONT face=Arial size=2>........... tons of astounding code,
yada,yada,yada</FONT> </P><BR>
<P><FONT face=Arial size=2>If strPW <> "none" Then 'set password</FONT>
<BR><FONT face=Arial size=2> For i = 1 To
.Sheets.Count</FONT> <BR><FONT face=Arial
size=2> .Worksheets(i).Protect
Password:=strPW</FONT> <BR><FONT face=Arial size=2> Next
i</FONT> <BR><FONT face=Arial
size=2> .Sheets("instruc").Unprotect
Password:=strPW</FONT> <BR><FONT face=Arial
size=2>
.Sheets("assumptions").Unprotect Password:=strPW</FONT> <BR><FONT face=Arial
size=2> End If</FONT> <BR><FONT face=Arial
size=2> .ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True</FONT> <BR><FONT face=Arial
size=2> .ActiveWorkbook.Protect Structure:=True,
Windows:=False, Password:=strPWworkbook</FONT> <BR><FONT face=Arial
size=2> .ActiveWorkbook.SaveAs FileName:=strFileSave</FONT>
<BR><FONT face=Arial size=2> .ActiveWorkbook.Close
SaveChanges:=True</FONT> <BR><FONT face=Arial size=2> End With</FONT>
<BR><FONT face=Arial size=2> </FONT> <BR><FONT face=Arial
size=2> Load_History = True</FONT> <BR><FONT face=Arial
size=2>The_End:</FONT> <BR><FONT face=Arial size=2>
</FONT><BR><FONT face=Arial size=2> <B>
appExcel.Quit</B></FONT> <BR><B><FONT face=Arial size=2> Set
appExcel = Nothing</FONT></B> <BR><FONT face=Arial size=2>dbs2.Close</FONT>
</P>
<P><FONT face=Arial size=2>Exit Function</FONT> </P>
<P><FONT face=Arial size=2>Err_CreatePlan:</FONT> <BR><FONT face=Arial
size=2>Load_History = False</FONT> <BR><FONT face=Arial
size=2> MsgBox Err.Description</FONT> <BR><FONT face=Arial
size=2> Resume The_End</FONT> <BR><FONT face=Arial
size=2>End Function</FONT> </P></BLOCKQUOTE></BODY></HTML>