如何知道一个工作簿中有多少个工作表？

方法一

　　(1)打开“工具”菜单，选择“宏”“Visual Basic 编辑器”命令，如图所示：

　　(2)在打开的窗口中选择“插入”→“模块”命令，如图所示：

　　(3)输入如下内容，如图所示：

　　Sub sheetcount()

　　Dim num As Integer

　　num=ThisWorkbook.Sheets.Count

　　Sheets(1).Select

　　Cells(1,1)=num

　　End Sub

　　(4)运行该宏，在该工作簿的第一个工作表的A1单元格中的数字就是工作表的个数。

　　方法二

　　(1)按【Ctrl+F3】组合键，打开“定义名称”对话框，定义一个x，在“引用位置”处输入“=get.workbook(4)”，然后单击【确定】按钮，如图所示：

      (2)在任意单元格输入“=x”，出来的结果就是工作表的个数。

　　方法三

      在任意一个单元格内输入 =INFO("numfile") 单元格属性为 常规 可以看到打开所有EXCEL文件的工作表数量。

如何知道一个工作簿中有多少个工作表？

原文：http://www.cnblogs.com/zeroempty/p/4727353.html