Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сохранение, закрыть Excel. Выключить ПК - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение, закрыть Excel. Выключить ПК (Макросы/Sub)
Сохранение, закрыть Excel. Выключить ПК
IIe4kuH Дата: Пятница, 08.07.2022, 19:17 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Приветствую ! Знающие люди выручайте. У меня есть работающий макрос. После того, как он закончит свою работу, нужно чтобы сохранился + закрылся Excel и принудительно выключился компьютер.
У кого есть наработки, поделитесь. И код нужно вставлять в конце уже существующего макроса, или создать новый в этом же файле ?
 
Ответить
СообщениеПриветствую ! Знающие люди выручайте. У меня есть работающий макрос. После того, как он закончит свою работу, нужно чтобы сохранился + закрылся Excel и принудительно выключился компьютер.
У кого есть наработки, поделитесь. И код нужно вставлять в конце уже существующего макроса, или создать новый в этом же файле ?

Автор - IIe4kuH
Дата добавления - 08.07.2022 в 19:17
ВладимирС Дата: Понедельник, 11.07.2022, 12:45 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

[vba]
Код
ActiveWorkbook.Save 'сохранить
ActiveWorkbook.Close' закрыть рабочую книгу
[/vba]
Как выключить не знаю, но можно попробовать:
[vba]
Код
Shell ("Shutdown -s")
[/vba]


Сообщение отредактировал ВладимирС - Понедельник, 11.07.2022, 14:54
 
Ответить
Сообщение[vba]
Код
ActiveWorkbook.Save 'сохранить
ActiveWorkbook.Close' закрыть рабочую книгу
[/vba]
Как выключить не знаю, но можно попробовать:
[vba]
Код
Shell ("Shutdown -s")
[/vba]

Автор - ВладимирС
Дата добавления - 11.07.2022 в 12:45
boa Дата: Понедельник, 11.07.2022, 18:28 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 543
Репутация: 166 ±
Замечаний: 0% ±

2013, 365
IIe4kuH,
[vba]
Код
Sub ShutdownComp()
'выключение/перезагрузка/смена пользователя
Dim CompName As String, objService As Object, objOS As Object
    CompName = "." 'точка - текущий компьютер; сюда можно подставить любое сетевое имя компьютера
    Set objService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\" & CompName & "\root\CIMV2")
    For Each objOS In objService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
        Exit For
    Next
    'objOS.Reboot 'перезагрузка
    objOS.Shutdown 'выключение
    'objOS.Win32Shutdown 0 'Log Off
End Sub
[/vba]


 
Ответить
СообщениеIIe4kuH,
[vba]
Код
Sub ShutdownComp()
'выключение/перезагрузка/смена пользователя
Dim CompName As String, objService As Object, objOS As Object
    CompName = "." 'точка - текущий компьютер; сюда можно подставить любое сетевое имя компьютера
    Set objService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\" & CompName & "\root\CIMV2")
    For Each objOS In objService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
        Exit For
    Next
    'objOS.Reboot 'перезагрузка
    objOS.Shutdown 'выключение
    'objOS.Win32Shutdown 0 'Log Off
End Sub
[/vba]

Автор - boa
Дата добавления - 11.07.2022 в 18:28
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение, закрыть Excel. Выключить ПК (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!