使用 VBA，如何在不关闭所有工作簿的情况下关闭 Excel 工作簿？答案

【问题标题】：With VBA, how do I close an Excel workbook without closing all workbooks?使用 VBA，如何在不关闭所有工作簿的情况下关闭 Excel 工作簿？
【发布时间】：2010-11-27 04:54:52
【问题描述】：

使用 Access VBA，我想打开一个 XL 文件，做一些事情，然后关闭它而不关闭其他打开的 XL 文件。

选项 1：如果最后一行是“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

【问题讨论】：

标签： excel ms-access vba

【解决方案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

【讨论】：