#问题解答#Excel VBA#如何获取工作表页数

近期有网友问我：如何获取Excel工作簿中某工作表的所有页数？

其实很简单，使用PageSetup对象的Pages属性即可。例如，若要获取当前工作表的页数，使用下面的代码：

ActiveSheet.PageSetup.Pages.Count

Pages属性返回Pages集合，再利用集合的通用属性Count，获得工作表页数。

说明

先来详细解释一下。

PageSetup对象相当于“页面设置”对话框，属于Worksheet对象或Chart对象。

PageSetup对象的很多属性都与“页面设置”对话框中的设置相对应，例如，Orientation属性设置工作表页面的方向，下面的代码将工作表设置为横向：

ActiveSheet.PageSetup.Orientation =xlLandscape

运行代码后“页面设置”对话框如图所示：

扩展

下面的代码遍历工作簿中的所有工作表，最后在对话框中显示每个工作表的页数。

Sub testPages()

Dim wks As Worksheet

Dim str As String

For Each wks In Worksheets

str = str & '工作表' & wks.Name & '的页数为:' & wks.PageSetup.Pages.Count & vbCrLf

Next wks

MsgBox str

End Sub

在我的示例工作簿中的运行结果如下图所示：