如何获取在页面末尾有注释的excel工作表的页数

Excel对象模型使用api sheet->PageSetup->pages->Count为我们提供了一张工作表上的页数

但此计数不包括由于注释而添加的页数，这些注释打印在工作表的末尾，可以在工作表的页面设置中进行设置

有人能找到解决这个问题的办法吗

谢谢

---

Himanshu

分页符在Excel显示中是否正确显示

如果是，您可以尝试以下代码：

Sub HowManyPagesBreaks()
    Dim iHpBreaks As Integer, iVBreaks As Integer
    Dim iTotPages As Integer

    iHpBreaks = ActiveSheet.HPageBreaks.Count + 1
    iVBreaks = ActiveSheet.VPageBreaks.Count + 1

    iTotPages = iHpBreaks * iVBreaks

    MsgBox "This sheet will require " & iTotPages & _
    " page(s) to print", vbInformation, "OzGrid.com"
End Sub

---

找到

分页符在Excel显示中是否正确显示

如果是，您可以尝试以下代码：

Sub HowManyPagesBreaks()
    Dim iHpBreaks As Integer, iVBreaks As Integer
    Dim iTotPages As Integer

    iHpBreaks = ActiveSheet.HPageBreaks.Count + 1
    iVBreaks = ActiveSheet.VPageBreaks.Count + 1

    iTotPages = iHpBreaks * iVBreaks

    MsgBox "This sheet will require " & iTotPages & _
    " page(s) to print", vbInformation, "OzGrid.com"
End Sub

---

已找到

您使用的Excel版本是什么？在2003年，我没有看到PageSetup有Pages属性…@Jean:我使用的是Excel2007和Excel2010。两者都具有Pagesetup中的Pages属性。如果它在2003年不存在，那么您如何在那里找到num页面您使用的是什么版本的Excel？在2003年，我没有看到PageSetup有Pages属性…@Jean:我使用的是Excel2007和Excel2010。两者都具有Pagesetup中的Pages属性。如果它在2003年不存在，那么你如何在那里找到num pages没有分页符根据页面内容创建页面边界，不包括注释。所以这是行不通的…如果工作表没有注释，这个方法甚至不能给出正确的页数。。。因为Excel最终总是尽量减少空白页的数量。例如，可能存在这样一种情况：Hpbreaks的数量为2，vPbreaks的数量为2，即使总页数为5。这在Excel中是一个非常基本的概念。没有分页符，根据工作表内容创建页面边界，不包括注释。所以这是行不通的…如果工作表没有注释，这个方法甚至不能给出正确的页数。。。因为Excel最终总是尽量减少空白页的数量。例如，可能存在这样一种情况：Hpbreaks的数量为2，vPbreaks的数量为2，即使总页数为5。这是Excel中非常基本的概念。