Be seen. Boost your question’s priority for more expert views and faster solutions
set objOffice = GetObject(,"Excel.Application")
For Each WBook In objOffice.Workbooks
WBook.Saved = True
WBook.Close
Next
set objOffice = GetObject(,"Excel.Application")
For Each WBook In objOffice.Windows
WBook.Saved = True
WBook.Close
Next
Set objOffice = GetObject(,"Excel.Application")
objOffice.DisplayAlerts = False
For Each objWindow In objOffice.Windows
objWindow.Activate
Set WBook = objOffice.ActiveWorkbook
WBook.Save
WBook.Close
Next
objOffice.DisplayAlerts = True
objOffice.Quit
On Error Resume Next
While Err.Number = 0
Set objOffice = GetObject(,"Excel.Application")
objOffice.DisplayAlerts = False
For Each objWindow In objOffice.Windows
objWindow.Activate
Set WBook = objOffice.ActiveWorkbook
WBook.Saved = True
WBook.Close
Next
objOffice.DisplayAlerts = True
objOffice.Quit
Set objOffice = Nothing
WScript.Sleep 2000
Wend
MsgBox "Done"
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Open in new window