Question

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

一个工作簿内有多个工作表，一个文件内有多个工作簿，怎样一键弹出这个文件夹内所有工作簿一共有多少个工作表 求大神的代码！！！万分感谢！！！

Answer 1

新建一个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")