使用VBA，如何在不closures所有工作簿的情况下closuresExcel工作簿？

使用Access VBA，我想打开一个XL文件，做东西，然后closures它，而不closures其他打开的XL文件。

选项1：如果最后一行是“ ObjXL.Application.Quit ”，则closures所有打开的Excel文件，而不仅仅是当前文件。

选项2：如果最后一行是“ ObjXL.Close ”，那么工作簿将closures，但XL的特定实例保持打开状态（即没有工作簿的Excel）。

那么，如何closuresExcel工作簿而不closures其他打开的工作簿呢？

 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