如何关闭多个excel工作簿即关闭群组有解决方案即加分！

[学校要我做一个多媒体教室方案要求下课后能自动关闭多媒体设备]我们学校去年就上了一套南京鹏畅科技公司的免管理多媒体教室系统，相当的不错，解决了我原来的好多管理问题：以前我校的老师上课都是到一楼的管理员拿一把讲台钥匙和无线话筒去上...+阅读

如何关闭多个excel工作簿即关闭群组有解决方案即加分！

这个只能用VBA来做。假定所有的EXCEL工作簿都是用一个EXCEL应用打开的，可以用遍历工作簿方式，判断文件名中包含特定文字（群组特征），符合条件就关闭该工作簿。

代码如下：

Sub 关闭同类文件（）

Const MYSTRING = ＂Book＂

Dim MYBOOK As Workbook

For Each MYBOOK In Workbooks

aa = Mid(MYBOOK.Name, 1, 4)

jg = InStr(MYSTRING, aa)

If jg = 1 Then

MYBOOK.Close

End If

End Sub

例如运行前有4个打开的文件。如图：

运行宏后结果将开始于“Book”的全部关闭。结果如图：

VBA怎样关闭工作簿和退出Excel

要用VBA来关闭工作簿，用Workbook.Close 方法即可，而要退出Excel，则用Application.Quit 方法：关闭活动工作簿，如果工作簿有更改，提示是否保存：Sub CloseWorkbook()ActiveWorkbook.CloseEnd Sub如果要避免出现提示，可添加“SaveChanges”参数，如直接保存并关闭工作簿：Sub ClostAndSaveWorkbook()ActiveWorkbook.Close Savechanges:=TrueEnd Sub将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。关闭所有打开的工作簿，并提示是否保存：Sub CloseAllWorkbooks()On Error Resume NextWorkbooks.CloseEnd Sub退出Excel，并提示对有更改的工作簿进行保存：Sub QuitExcel()Application.QuitEnd Sub保存活动工作簿并退出Excel:Sub SaveActiveWorkAndQuit()ActiveWorkbook.SaveApplication.QuitEnd Sub下面的代码在退出Excel时都不会提示是否保存工作簿。保存所有打开的工作簿并退出Excel:Sub SaveAllAndQuit()For Each wbk In Workbookswbk.SaveNextApplication.QuitEnd Sub退出Excel，所有的改动都不保存：Sub QutiAndNoAlerts()Application.DisplayAlerts = FalseApplication.QuitEnd Sub...