Закрытие приложения Excel с использованием VBA

Question

Я использовал следующее без успеха. Фактически рабочая книга закрывается, но окно excel остается открытым.

Application.ActiveWindow.Close SaveChanges:=False 
ActiveWorkbook.Close SaveChanges:=False 

Какая команда прекращает применение?

EDIT

Чтобы сказать немного больше: В рабочей книги Open случае я запустить макрос. Я хочу завершить приложение, когда этот макрос заканчивается. Я также пробовал это без успеха.

Private Sub Workbook_Open() 
    Macro_MyJob 
    Application.Quit 
End Sub 

Куда поместить эту команду Application.Quit?

Answer 1

Я думаю, ваша проблема в том, что он закрывает документ, который вызывает макрос, прежде чем отправлять команду для выхода из приложения.

Ваше решение в этом случае заключается в том, чтобы не отправлять команду для закрытия книги. Вместо этого вы можете установить «Сохраненное» состояние рабочей книги в true, что обойдет любые сообщения о закрытии несохраненной книги. Примечание: это не сохраняет книгу; он просто заставляет его выглядеть так, будто он спасен.

ThisWorkbook.Saved = True 

, а затем, сразу после

Application.Quit 

Answer 2

Application.Quit 

Должен сделать трюк.

Answer 3

Чтобы избежать быстрого сообщения Сохранить, вы должны вставить эти строки

Application.DisplayAlerts = False 
ThisWorkbook.Save 
Application.DisplayAlerts = True 

После сохранения вашей работы, вы должны использовать этот линия для выхода из приложения Excel

Application.Quit 

Не просто просто поместите эту строку в Private Sub Workbook_Open(), если вы не проведете правильную проверку состояния, иначе вы можете испортить свой файл excel.

Для обеспечения безопасности создайте модуль для его запуска. Ниже приведены коды, которые я поставил:

Sub testSave() 
Application.DisplayAlerts = False 
ThisWorkbook.Save 
Application.DisplayAlerts = True 
Application.Quit 
End Sub 

Надеюсь, что это поможет вам решить проблему.

Answer 4

Я попробовал определенную последовательность, которая, кажется, работает, как вы можете увидеть ниже:

ThisWorkbook.Saved = True 
Application.Quit 
Application.ActiveWindow.Close SaveChanges:=False 
ActiveWorkbook.Close SaveChanges:=False 

Answer 5

Sub button2_click() 
' 
' Button2_Click Macro 
' 
' Keyboard Shortcut: Ctrl+Shift+Q 
' 
    ActiveSheet.Shapes("Button 2").Select 
    Selection.Characters.Text = "Logout" 
    ActiveSheet.Shapes("Button 2").Select 
    Selection.OnAction = "Button2_Click" 
    ActiveWorkbook.Saved = True 
    ActiveWorkbook.Save 
    Application.Quit 
End Sub 

Answer 6

Sub TestSave() 
Application.Quit 
ThisWorkBook.Close SaveChanges = False 
End Sub 

Это похоже на работу для меня, хотя выглядит как я бросить курить приложение перед сохранением, но это экономит ...