View Single Post
  #10 (permalink)  
Old 01-20-04, 11:14
sugarflux sugarflux is offline
Registered User
 
Join Date: Aug 2003
Posts: 106
Saving but not closing

You seem to be saving these workbooks but not actually closing them.

Try adding an

oApp.Activeworkbook.Close SaveChanges:=False

after you have finished using the workbook and before you use

Application.Quit

Also, to check what version of Excel is open after you closed down your application, try using this after all the code you pasted

Dim myOpenWorkbooks as String
Dim myWorkbooks, myWorkbook as Integer

myWorkbooks = oApp.Workbooks.Count
myWorkbook = 0
myOpenWorkbooks = ""

Do
myWorkbook = myWorkbook + 1
myOpenWorkbooks = myOpenWorkbooks & "; " & oApp.Workbooks(myWorkbook).Name
Loop Until myWorkbook = myWorkbooks

MsgBox myOpenWorkbook

This will display the names of any open workbooks.

Hope this helps!
sugarflux
Reply With Quote