一、怎么查excel中工作表有多少页
可以点“文件”“打印”,在打印内容中选“整个工作簿”，点“预览”，在下方的状态条中即可看到“第1页，共*页”的内容。
你的补充问题有人已经回答过了，以下内容来自百度知道：
方法一：
宏-编辑宏
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
结果就是sheet的个数。
__________________________
错误形式是什么,比如比实际个数少或者多?或者干脆出错?
方法一就是传说中的VBA,在EXCEL里编辑宏,语言形式跟VB编程类似.
二、快速确定若干excel文档的页数
亲，这个必须用VBA。代码如下。
要建立两个模块。
Sub GETDIR()
Dim pathA$
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = False Then Exit Sub
pathA = .SelectedItems(1) & ""
End With
Range("B1") = pathA
End Sub
Sub zongyeshu()
Dim f, ff As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ff = fso.getfolder(Range("B1"))
Dim m, n As Integer
For Each f In ff.Files
If f.Name <> ThisWorkbook.Name And Left(f.Name, 2) <> "~$" Then
Workbooks.Open Filename:=Range("B1") & f.Name
With ActiveWorkbook.ActiveSheet
.ResetAllPageBreaks
m = m + 1
n = n + (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
End With
ActiveWorkbook.Close False
End If
Next f
Set fso = Nothing
Range("B2") = "共有 " & m & " 个文件，一共需打印 " & n & " 页"
End Sub
