为什么我的打印页数不计入我的 Excel VBA/UDF 工作量？

Question

我有以下代码，用于以公式形式计算工作表上打印的页数：

Function PageCount() As String
 
    Application.Volatile
 
    PageCount = ExecuteExcel4Macro("GET.DOCUMENT(50)")

 
End Function

PageCount()但是当我在 excel 公式中输入公式时，它总是返回一个#VALUE!整数，而我希望得到一个整数。我的代码有什么错误？

Answer 1

解决了

这是我编写的用于计算打印页数的代码，该代码可作用于函数

Function PageCount()

    Dim wks As Worksheet
    Dim iHorPgs As Integer
    
    

    Set wks = ActiveSheet
    iHorPgs = wks.HPageBreaks.Count + 1

    PageCount = iHorPgs
End Function

注意：此代码仅适用于仅具有垂直页面而非水平页面的工作表（如图片所示）。