Option Explicit Sub aa() Dim B As Integer '标志值 Dim arr '存放规则 Dim i As Integer Dim wk As Workbook '确定标准 arr = Array("file1.xls", "file2.xls", "file3.xls") For Each wk In Workbooks '循环判断,确定标志值B For i = 0 To UBound(arr) If wk.Name = arr(i) Then B = 1 Exit For End If Next i '根据B,判断是否关闭 If B = 0 Then wk.Close savechanges:=True '保留所有对此工作簿的更改. End If B = 0 Next wk End Sub
[此贴子已经被作者于2009-9-13 21:52:06编辑过] |