'закрыть все файлы и приложения Экселя
' V.Kim e2li@ yandex.ru
Public Function CloseAllXLapp()
Dim i As Long
Dim XLapp As Object
i = 0
FindNextExcel:

On Error Resume Next
Set XLapp = GetObject(, "Excel.Application")
'
If Err.Number <> 0 Then 'Если больше нет приложений Эксель - выходим
If i <> 0 Then MsgBox "Закрыто " & i & "экз. приложений Excel", vbInformation, "Закрыть все приложения Excel"
Exit Function
End If
i = i + 1
'XLapp.Visible = True
'без сохранения закрываем все файлы в приложении
XLapp.DisplayAlerts = False
XLapp.Workbooks.Close
XLapp.DisplayAlerts = True
'закрываем приложение
XLapp.Quit
Set XLapp = Nothing
GoTo FindNextExcel
End Function