使用VBA，如何在不關閉所有工作簿的情況下關閉Excel工作簿？

Question

使用Access VBA，我想打開一個XL文件，進行處理，然后關閉它，而不關閉其他打開的XL文件。

選項1：如果最后一行是“ ObjXL.Application.Quit ”， ObjXL.Application.Quit關閉所有打開的Excel文件，而不僅僅是當前文件。

選項2：如果最后一行是“ ObjXL.Close ”，則工作簿將關閉，但是該特定的XL實例保持打開狀態（即，沒有工作簿的Excel）。

因此，如何關閉Excel工作簿而不關閉其他任何打開的工作簿？

Sub x()
    Dim ObjXL As Excel.Workbook
    Set ObjXL = GetObject("C:\Reports\Adhoc Default.xls")
    ObjXL.Application.Visible = True
    ObjXL.Windows(1).Visible = True
    ObjXL.Worksheets(1).Activate
    DoStuff()
    ObjXL.Save
    Option1/2/3?
End Sub

Answer 1

嘿，我在別人之前回答了我自己的問題：

Sub xx()
    Dim XLapp As New Excel.Application
    Dim ObjXL As Excel.Workbook
    Set ObjXL = XLapp.Workbooks.Open("C:\reports\adhoc default.xls")
    ObjXL.Application.Visible = True
    ObjXL.Windows(1).Visible = True
    ObjXL.Worksheets(1).Activate
    ObjXL.Save
    ObjXL.Close
    XLapp.Quit
End Sub