使用Workbook.Close方法時，Workbook沒有關閉

Question

我試圖打開然后關閉工作簿，但是我的問題是使用Workbook.close方法后，工作簿保持打開狀態，只能由任務管理器終止。 我從下面的鏈接中找到了答案， VBA不會關閉以編程方式打開的工作簿，但對我的應用程序來說，它是行不通的。

Private Function writeInWB(myFile as String) As Variant
    Dim xl0 As New Excel.Application
    Dim xlwBBGTerm As New Excel.Workbook 
    Application.ScreenUpdating = False
    Set xlwBBGTerm = xl0.Workbooks.Open(myFile)
    GoTo ErrorHandling
ErrorHandling:
Application.ScreenUpdating = True
If xl0.Workbooks.Count > 0 Then
    xlwBBGTerm.Close SaveChanges:=False
    xl0.Quit
End If
End Function

Answer 1

如果沒有更多關於您要執行的操作的詳細信息，則很難具體說明，但是原則上，如果您關閉所有打開的工作簿然后退出應用程序，則應將其關閉。 嘗試這樣的東西：

Public Sub CloseAllWorkbooks()

    Dim wbk As Workbook
    For Each wbk In Application.Workbooks
        wbk.Close False
    Next

    Application.Quit

End Sub

應用程序可能無法關閉的另一個原因是，如果另一個進程仍然持有對應用程序內對象的COM引用。