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

时间:2022-11-18 09:37:43

  方法一:

  (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文件的工作表数量。