Excel VBA多页-获取页数

我在excel vba 2010中创建了一个多页表单。 如何获取此多页中的页数

谢谢， 勒索

试试这个：

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

参考资料：

---

只是澄清一下：你想得到表单中的页数吗？表单中多页部分的页数。如果TypeName（mulPage）=“multipage”，不应该是

吗？我按照你的答案和参考资料，但这对我不起作用。“somename”是指多页的名称，很抱歉，您必须使用@Doug指出的内容。它必须是类型名
MultiPage
我把它和控件的
name
混为一谈。当我用typename（mulpage）=“MultiPage”尝试它时，运行在页面上的内部循环会宣布“运行时错误'13'：类型不匹配”您是否使用了2007、2010版本回答中指出的正确页面属性<代码>作为MSFORMS的DIM PGE。第页

？