所有打开的Excel文档均包含在Workbooks集合中，可用Workbooks(索引号).name的方式来访问其名字属性(当然也能访问path等属性)，也可定义一个workbook
对象，用for eche XXXworkbookObject in workbooks的方式，来循环访问各打开的工作薄，想关哪个工作薄，用Close方法关掉即可。
Sub closesheet()
Dim sheetn As Integer
sheetn = Workbooks.Count
If sheetn = 1 Then
Application.Quit
ThisWorkbook.Close savechanges:=True
Else
ThisWorkbook.Close savechanges:=True
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024