excel vba如何获取所有打开的excel文件名

插入模块抄运行
Sub JS()
Dim i As Integer
i = Worksheets.Count
MsgBox "工作表数量是" & i
End Sub
主要是袭Worksheets.Count
最大好zd像是255个

针对ThisWorkbook对象的百BeforeClose事件添加如下代码

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim fileStr As String
    fileStr = "$111.xls$333.xls$“ ‘头尾都度用$分隔，循环判知断文件名
    For I = Workbooks.count To 1 Step -1
        If InStr(fileStr, Workbooks(I).Name) <> 0 Then
            Workbooks(I).Close False ‘False是不保存道关闭 true是保存并关闭
        End If
    Next
End Sub

关闭时就会遍历所有打版开的excel文件，执权行不保存操作，并关闭

iRows=activesheet.usedrange.rows.count
iColumns=activesheet.usedrange.Columns.count

'如果表格前面zd的几行或几列可能是空的，需要版获得最下面的行数和最右面的列数：权
with activesheet.usedrange
iEndRow=.rows.count+.row-1
iEndColumn=.Columns.count+.column-1
end with

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