Excel VBA 求一个文件夹内所有工作簿中工作表的个数？
答案:1 悬赏:50 手机版
解决时间 2021-11-23 19:41
- 提问者网友：沉默的哀伤
- 2021-11-23 08:47
Excel VBA 求一个文件夹内所有工作簿中工作表的个数？
最佳答案
- 五星知识达人网友：纵马山川剑自提
- 2021-11-23 09:24
新建一个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")
就可弹出工作表数量（注意工作簿默认是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")
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯