Closes all the excel files and exits excel application

what is the code that closes all the "already open" excel files and exits the excel application in vb?

To be specific, I have the following code that opens the excel file at MySource

        Set objExcel = GetObject(MySource)
        objExcel.Application.Visible = False    'Excel is not shown
        objExcel.windows(1).Visible = True
......
        objExcel.Save
        objExcel.Close


In case MySource is already opened by the users. My code cannot be run. Since it is said that Excel cannot open the same file twice at the same time. I want to close all the "already opened" excel file and also close the Excel application so that my code can be run smoothly.


Any idea? Thanks

LVL 2
leekfAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
GrahamSkanConnect With a Mentor RetiredCommented:
Private Sub Command2_Click()
On Error GoTo Command2_ClickError
Do
Set objexcel = GetObject(, "Excel.Application") 'Will set error if no instances open

        objexcel.Application.Visible = True   'Excel is not shown
        objexcel.windows(1).Visible = True
        objexcel.AlertBeforeOverwriting = False
        objexcel.Save
        objexcel.quit
Loop While True
Command2_ClickError:

End Sub

0
 
Ryan ChongCommented:
Try like:

objExcel.Application.Quit

?
0
 
Carl TawnSystems and Integration DeveloperCommented:
Try this:

          Dim oWkBk As Object

          On Error GoTo Close_Error

          For Each oWkBk In objExcel.Application.Workbooks
              oWkBk.Save
              oWkBk.Close
          Next

          objExcel.Quit

Hope this helps.
0
Question has a verified solution.

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.

All Courses

From novice to tech pro — start learning today.