Excel VBA MultiPage – 获取页数

我在excel vba 2010中创build了一个多页表单。怎样才能获得这个多页面的页数？

谢谢，勒索

Answer 1

尝试这个：

Dim mulpage as Control, pge as Page, counter as Integer For Each mulPage In Me.Controls If TypeName(mulPage) = "MultiPage" Then For Each pge In mulPage.Pages counter = counter + 1 Next pge End If Next 

我的代码是在2003年。所以对于你，你需要使用Dim pge As msforms.Page而不是Dim pge As Page Dim pge As msforms.Page Dim pge As Page for Dim pge As msforms.Page显式引用Form Page property 。

参考文献：

• http://support.microsoft.com/kb/155374

• http://www.ozgrid.com/Excel/free-training/ExcelVBA2/excelvba2lesson8.htm