Всем доброго! Имеется программа(Гранд Смета), которая выгружает файлы в формате xls, запуская для каждого документа свою копию приложения. Как можно реализовать закрытие с сохранением, всех копий приложения в единожды выбранный каталог/папку, без подтверждения каждый раз на отдельном файле?
Пробовал такой найденный на просторах вариант, убивает всё напрочь без сохранения:
Такой вариант сохраняет и закрывает только тот экземпляр из которого вызывается:
Пробовал такой найденный на просторах вариант, убивает всё напрочь без сохранения:
Код |
---|
Dim objWMIService, objProcess, colProcess Dim strComputer, strProcessKill, strFilePath strComputer = "." strProcessKill = "'excel.exe'" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colProcess = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = " & strProcessKill) For Each objProcess In colProcess objProcess.Terminate Next Wscript.Quit |
Такой вариант сохраняет и закрывает только тот экземпляр из которого вызывается:
Код |
---|
Sub SaveAndClose() With Application .EnableEvents = False .DisplayAlerts = False Dim iBook As Workbook ' For Each iBook In .Workbooks iBook.Save Next .Quit End With End Sub |