Excel统计工作簿sheet个数

按Alt+F11调出VBE后，在"视图"-“立即窗口”中输入：

debug.print ThisWorkbook.Sheets.Count

回车后就可看到工作表数量。