在excel菜单栏里,点击工具/宏/visual basic编辑器/
会进入另外一个窗口,在它左边就会显示工程项目列表,在这个列表里会显示Sheet1(表名1) Sheet2(表名2).....等
看一下最后一个SheetX(表)中的X是多少,这个工作薄就有多少个表了,
如果没有显示工程列表,可以在在编辑器窗口里面的菜单栏里点击/视图/工程资源管理器 就会显示了
----------------------------------
你看清楚了,不是括号里面的X 而是Sheet后面的数字,从1开始的到你的表的总个数X,它是按顺序显示的,不会改变的,你再看看.
-------------------------------------------------
你在表格上添加一个按钮,双击进入编程窗口,在按钮的click事件里面写如下代码
Private Sub CommandButton1_Click()
MsgBox Sheets.Count
End Sub
然后退出编程窗口,在excel界面里,点击控件最左边的"退出设计模式"按钮,(可以通过视图/工具栏/选中控件工具箱 复选对勾打开控件工具条)
退出设计模式后,点击按钮就可以会在弹出的消息框上显示Sheet个数
问题解决了吧
--------------------------
下面是参考CSDN上面的高人的答案
方法一:
点"工具"->"宏"->"VB编辑器"->"插入"->"模块",输入如下内容:
Sub sheetcount()
Dim num As Integer
num = ThisWorkbook.Sheets.Count
Sheets(1).Select
Cells(1, 1) = num
End Sub
运行该宏,在第一个(排在最左边的)工作表的A1单元格中的数字就是sheet的个数。
方法二:
按Ctrl+F3(或者点"插入"->"名称"->"定义"),打开"定义名称"对话框
定义一个X
"引用位置"输入:=get.workbook(4)
点"确定"。
然后你在任意单元格输入=X //修改一下他这里的错误将=X改为=COLUMNS(X)
出来的结果就是sheet的个数。
Private Sub CommandButton1_Click()
Sheets("sheet1").PrintOut Copies:=1, Collate:=True
End Sub