Close specific excel files

[camg12]

I run a sub routine to open four different excel files. I need another sub routine to close the four specific excel files? Here is the code I am using to open and save.

Private Sub CmdOpenExcel()
'Opens the specified Spreadsheet
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Set xlApp = New Excel.Application
With xlApp
.Visible = True
Set xlWB = .Workbooks.Open("C:\Book1.xlsx", , False)
xlApp.ActiveWorkbook.Save
Set xlWB = .Workbooks.Open("C:\Book2.xlsx", , False)
xlApp.ActiveWorkbook.Save
Set xlWB = .Workbooks.Open("C:\Book3.xlsx", , False)
xlApp.ActiveWorkbook.Save
Set xlWB = .Workbooks.Open("C:\Book4.xlsx", , False)
xlApp.ActiveWorkbook.Save
End With
End Sub

 

[ghudson]

xlApp.Application.ActiveWorkbook.Close

Ensure your are closing everying related to the objects in your code...

    Set xlApp = Nothing
    Set xlSheet = Nothing

...etc