Closed Excel but Vba project remained

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a sub that opens several workbooks (with macros embedded).
at the end of the sub I have

workbooks("book1.xls").close true ' to close all but 1 workbook

the workbooks are closed but if I open vba window, I can still see the vba
projects.

if I do debug.print workbooks(2).name I get out of range error --> which i
assume the object no longer exists ...

how can i truely close workbooks?

application.quit?

I want to close all but 1 workbook.
 
I am also facing the same problem. When I close the workbook by
File>>>close (not by VBA), workbook closes but the VBA project explorer
still shows the same. VBA also opens the project contained in closed
workbook if I double click on it in VBA. I hope to solve the proble
with the help of experts here.
Regards,
 
Hi,
keeping reference to a workbook's object causes this problem.
check unreleased object.

Representation:

'put the following code in a new module and run.

Public wb As Object

Sub Test()
Set wb = Workbooks.Add
wb.Close False
End Sub

If you use Outlook Express and you have a mail envelope in that workbook
and the envelope is hidden, show the envelope and close the workbook.
Outlook Express keeps reference to a hidden mail envelope in a workbook.
I think it is a bug.

see also
PRB: Password Prompt for VBA Project Appears After Excel Quits
http://support.microsoft.com/default.aspx?scid=kb;en-us;280454
 
I've seen a few posts that blame Google's Desktop Search utility. But I had the
problem before I used that search utility.

But in my case, it just seemed like an irritant. Those ghost projects never
caused me any problems.

I just ignore them.

But if you want, you can close excel and reopen.
 
As long as it doesnt hog the memory and cause performance issues in
subsequent runs, then I am pretty much ok with these ghost vba projects
hanging around.

I use excel xp at work but when i tested this at home (excel2003):


Sub test()

Dim wbk As Workbook


Workbooks.Open Filename:="book2.xls"
Workbooks("book2.xls").Close


End Sub


Sub test2()

Dim wbk As Workbook

Set wbk = Workbooks.Open(Filename:="book2.xls")
wbk.Close
Set wbk = Nothing

End Sub

no ghost project remained for book2 ...
 
Back
Top