No.1
Excel中针对工作薄，可以用WorkBooks对象可进行操作。
其方法有：Add、Close、Open等
关闭当前所有工作薄需要用到Close方法。
使用方法：
Workbooks.Close
No.2
那么如何关闭当前打开的所有工作薄呢？
就需要对当前打开的工作薄进行遍历。
如下代码：
Dim w as workbook
For Each w In Workbooks
w.Close
Next w
上图例子就是对当前打开的工作薄进行遍历，然后将名称显示到表格里。
工作薄名称用Name属性来应用。
完整代码如下图
No.3
关闭工作薄代码
Private Sub CloseWorkBooks()
Dim w As Workbook, OnOff As Integer
For Each w In Workbooks'遍历工作表
If w.Name = ActiveWorkbook.Name Then
OnOff = MsgBox("是否关闭？", vbYesNo, "提示")
If OnOff = 6 Then
w.Save
w.Close
Application.Quit
End If
Else
w.Save
w.Close
End If
Next w
End Sub
No.4
实际上这个例子只是将WorkBooks的Close方法应用了一下，然后再集合WorkBooks的Name属性来显示工作表名。
通过对工作表的认识，我们会在编程过程中应用到一些对工作薄识别的功能。
然后针对不同工作表进行操作。
Item
如果要返回特定的一个工作表，可应用另一个属性：Item
使用方法：
Dim wb as workbook
Set wb = Workbooks.Item("workName.xls")
Count
Item(index)也可以这样的表示，即index表示工作表索引号，具体索引号是多少，遍历Count属性。
Count是当前打开的工作薄总数。
workbooks.count
总之，workbooks对象应用常用就这几个，如果有更多需求，可以查询帮助文件，会得到更多信息。
