使用Workbook.Excel時Excel不會完全關閉

Question

在正在運行的宏中，我以關閉最后一個打開的Excel工作簿結束。 當我運行它時，除了一個沒有電子表格的窗口，所有的窗口都關閉，只有淺藍色的背景。 我是使用錯誤的命令還是無法關閉所有打開的窗口？

這是一則詢問我確切問題的帖子，但是該解決方案不適用於我。

這是我正在使用的最后兩個命令：

'
' Closes Populated JD Form
'
    Workbooks(name).Close SaveChanges:=False

'
' Closes Transfer Template
'
    Workbooks("Transfer Template.xlsm").Close SaveChanges:=False

提前致謝！！！

Answer 1

不要關閉顯示警報，因為它將消除任何真實的問題。

改用這個

ActiveWorkbook.Saved = True
Application.Quit

這將使Excel不再詢問保存更改，因為它認為現在已經保存了更改。 一個很好的例子是您的個人宏工作簿，我使用了很多，並且總是在其中創建或修改代碼。 如果我關閉警報，並且個人工作簿中有更改，我將全部丟失。

盡量不要批量修復可能的方案。 另一個例子是錯誤，具有錯誤捕獲例程並根據需要進行處理，而不是接下來的關於錯誤恢復的總括聲明。

Answer 2

為了確保問題不會一直懸而未決，請同時使用兩個建議

（貸方為@DeanOC和@ user1274820）

---

'Closes Populated JD Form
Workbooks(Name).Close SaveChanges:=False

'Closes Transfer Template
Workbooks("Transfer Template.xlsm").Close SaveChanges:=False

With Application
    .DisplayAlerts = False
    .Quit
End With

---

Answer 3

一旦我從引用中刪除了atpvbaen.xls ，application.quit就會像廣告中那樣工作。

我一直在扯頭發-直到意識到我將atpvbaen.xls設置為參考-這才是另一個excel線程。 我不需要此應用程序，因此我將其禁用。 在VB編輯器中， Tools => References un-check atpvbaen.xls. 如果我需要它，也許故意關閉它可能會起作用。