Question

VBA里面如何获取已经打开的EXCEL文件的个数

用途:如果只打开1个EXCEL文档,就将EXCEL文档、程序一起关闭，如果打开的EXCEL文档数大于1，就只关闭当前EXCEL文档。

Answer 1

所有打开的Excel文档均包含在Workbooks集合中，可用Workbooks(索引号).name的方式来访问其名字属性(当然也能访问path等属性)，也可定义一个workbook
对象，用for eche XXXworkbookObject in workbooks的方式，来循环访问各打开的工作薄，想关哪个工作薄，用Close方法关掉即可。

Answer 2

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