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")

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/rffjv7exjy7frve2ve.html