Question

怎样求已打开的excel 工作薄中工作表个数

如果一打开的工作薄有好多个工作表，要在第一个表的A1显示出这个工作薄中所有工作表的个数，怎样用函数列出来？
求高手帮忙！

Answer 1

用万能的VBA可以解决。代码如下：

Sub 计算工作表数量()

Dim SS As Integer

Dim mYs As Worksheet

SS = 0

For Each mYs In ThisWorkbook.Sheets

SS = SS + 1

Next

MsgBox "该工作簿有工作表数量：" + Str(SS)

End Sub

ThisWorkbook.Sheets是一个当前工作簿中工作表的集合，用For Each mYs In ThisWorkbook.Sheets 

next

这个搭配可以对每个工作表进行遍历。正是利用这个方法每访问一次对变量ss计数+1，当访问结束后ss的数值就是工作表的数量。

最后用

MsgBox "该工作簿有工作表数量：" + Str(SS) 将ss的结果显示出来。

运行该宏结果如图：

Answer 2

=INFO("numfile")
说明：这个函数可以计算出你打开的工作簿中有多少个工作表，注意，只打开一个工作簿，就是这个工作簿的工作表总数。如打开了几个工作簿，它会把所有工作簿中的表格数全统计出来的。

追问

那能只计算当前薄里的工作表个数吗？

追答

我在Excel的函数里只找到了这个应用函数，打开一个工作簿，就行。多工作簿就全数统计

Answer 3

=INFO("numfile")
只求打开单个工作簿的工作簿个数