<div>
Try like:<br />
<br />
objExcel.Application.Quit<br />
<br />
?
</div>


<div>
Try this:<br />
<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim oWkBk As Object<br />
<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; On Error GoTo Close_Error<br />
<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Each oWkBk In objExcel.Application.Workb<wbr />ooks<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; oWkBk.Save<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; oWkBk.Close<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next<br />
<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objExcel.Quit<br />
<br />
Hope this helps.
</div>


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.

<div>
<div class="content wysiwyg-content">
what is the code that closes all the &quot;already open&quot; excel files and exits the excel application in vb?<br />
<br />
To be specific, I have the following code that opens the excel file at MySource<br />
<br />
&nbsp; &nbsp; &nbsp; &nbsp; Set objExcel = GetObject(MySource)<br />
&nbsp; &nbsp; &nbsp; &nbsp; objExcel.Application.Visib<wbr />le = False &nbsp; &nbsp;'Excel is not shown<br />
&nbsp; &nbsp; &nbsp; &nbsp; objExcel.windows(1).Visibl<wbr />e = True<br />
......<br />
&nbsp; &nbsp; &nbsp; &nbsp; objExcel.Save<br />
&nbsp; &nbsp; &nbsp; &nbsp; objExcel.Close<br />
<br />
<br />
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 &quot;already opened&quot; excel file and also close the Excel application so that my code can be run smoothly.<br />
<br />
<br />
Any idea? Thanks<br />
<br />

</div>
</div>


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



Closes all the excel files and exits excel application

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.