Excel VBA 求一个文件夹内所有工作簿中工作表的个数？

Excel VBA 求一个文件夹内所有工作簿中工作表的个数？

新建一个xlsm文件，复制如下代码到这个文件中，F5执行代码
就可弹出工作表数量（注意工作簿默认是xlsx格式）
Sub 鱼木混猪()
Application.ScreenUpdating = False
f = Dir(ThisWorkbook.Path & "\*.xlsx")
Do While f <> ""
Workbooks.Open ThisWorkbook.Path & "\" & f
数量 = 数量 + ActiveWorkbook.Sheets.Count
ActiveWorkbook.Close
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox 数量
End Sub追问这个xlsm文件是在这个文件夹内新建吗？如果是的话我用了，不对呀追答是啊，有什么错误提示吗？还有你的工作簿是不是都是xlsx格式的？追问如果是xls的工作簿需要怎么办呀？追答把f = Dir(ThisWorkbook.Path & "\*.xlsx")这行
改成
f = Dir(ThisWorkbook.Path & "\*.xls")