Страницы: 1
RSS
Макросом закрыть документ без сохранения
 
Всем доброго дня. Подскажите, как в макросе прописать чтобы закрылся документ (и эксель) без сохранения?
Пробовал макрорекордером - не выходит. Проверял такие варианты:

Код
Sub Макрос2()
ActiveWindow.Close SaveChanges:=False
    ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
ActiveWorkbook.Close
End Sub
 
Закрывается рабочая книга, но эксель остается открытым. Подскажите, кам можно сделать?
 
Так Excel и закрывайте:
application.quit
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Проверяем, сохранена ли книга,
сохраняем, если надо,
далее
смотрим, есть ли еще открытые книги.
Если есть, то закрываем ThisWorkbook
иначе Приложение!
Код
If Not ThisWorkbook.Saved Then
     ThisWorkbook.Save
    End If
    If Application.Workbooks.Count = 1 Then
     Application.quit
    Else
     ThisWorkbook.Close
    End If
Иногда только промахнувшись, понимаешь как ты попал.
 
НЕ увидел, что сохранение не нужно
Код
Application.DisplayAlerts = False
    If Application.Workbooks.Count = 1 Then 
     Application.quit 
    Else 
     ThisWorkbook.Close SaveChange:=False
    End If
Иногда только промахнувшись, понимаешь как ты попал.
 
а если DisplayAlerts = False ,  SaveChange:=False - нужно? или можно без него?
... и наоборот...

это вопрос.
 
Согласен, не нужно!
В запарке не посмотрел.
Иногда только промахнувшись, понимаешь как ты попал.
 
Ага, всем спасибо. Работает...
 
опечатку исправил вместо SaveChange  - SaveChanges
Код
Sub Close()
Application.DisplayAlerts = False
    If Application.Workbooks.Count = 1 Then
     Application.Quit
    Else
     ThisWorkbook.Close SaveChanges:=False
    End If
End Sub
Страницы: 1
Наверх