Как из макроса закрыть все процессы Excel?

Пользователь

Сообщений: 301 Регистрация: 28.04.2012

21.02.2020 13:12:59

Добрый день
Как из макроса закрыть все процессы Excel? Есть несколько отдельных процессов, в каждом процессе открыто по несколько файлов. Возможно есть скрытые процессы - их тоже закрыть все и полностью очистить память
Нашел такой код, по описанию к нему код должен был решить задачу, но при запуске зависает и ничего не закрывает. Возможно код не решает моих задач, описание было на английском, поэтому возможно что-то не так понял:

Код

Sub CloseAllExcel()
    Dim xlApp As Excel.Application
    
    Do
        On Error Resume Next
        Set xlApp = GetObject(, "Excel.Application")
        If Err <> 0 Then Exit Do '-- no more Excel instant
        On Error GoTo CloseAllExcel_Error
        xlApp.DisplayAlerts = False
        xlApp.Quit
    Loop
    Set xlApp = Nothing
    Exit Sub
    
CloseAllExcel_Error:
    MsgBox Err.Number & ": " & Err.Description
End Sub

Изменено: Ливиан - 21.02.2020 13:15:34 (отредактировал)

Андрей VG Пользователь Сообщений: 11927 Регистрация: 22.12.2012 Excel 2016, 365	#2 21.02.2020 13:28:07 Доброе время суток. Попробуйте такой вариант

МатросНаЗебре

Пользователь

Сообщений: 6473 Регистрация: 05.02.2014

21.02.2020 13:28:10

Код

Sub KillThemAll()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim f As String
    f = ThisWorkbook.Path & "\kill.bat"
    With fso.CreateTextFile(f, True)
        Dim i As Long
        For i = 1 To 10
            .Writeline "taskkill /f /im excel.exe"
        Next
        .Writeline "DEL """ & f & """"
        .Close
    End With
    Shell f, vbHide
End Sub

Изменено: МатросНаЗебре - 21.02.2020 14:39:02

Ливиан Пользователь Сообщений: 301 Регистрация: 28.04.2012	#4 21.02.2020 13:54:14 Спасибо всем большое за помощь. Все работает.