【VB.NET】Excelの印刷ページ数の取得

Question

お世話になっております。
掲題通りVB.NETでExcelを開き、印刷する総ページ数を取得する方法についてご質問させてください。

現在以下のようなコードでExcelを開くまでは出来ているのですが、そこから先どのようなやり方で「印刷する総ページ数」を取得すればいいのか分からず手詰まりの状態です。

Public Class ExcelFile
    Private mxlApp As Object        'Excelオブジェクト
    Private mxlBooks As Object      'WorkBooksオブジェクト
    Private mxlBook As Object       'WorkBookオブジェクト
    Private mxlSheet As Object      'WorkSheetオブジェクト
    Private mbOpen As Boolean       'ExcelファイルのOpen状態

    Function OpenExcel(ByVal strFilePath As String, ByVal strFileName As String) As Integer

        Try

            'Excelファイルパス生成
            mxlFilePath = IO.Path.Combine(strFilePath, strFileName)

            Dim strSheetName As String 'シート名
            strSheetName = "Sheet1"    'シート名をセット

            'Excelを起動しインスタンス取得
            mxlApp = CreateObject("Excel.application")
            'ExcelBooks
            mxlBooks = mxlApp.WorkBooks
            'Excelファイルのオープン
            mxlBook = mxlBooks.Open(FileName:=mxlFilePath, ReadOnly:=True)

取得の方法として、フッターにページ数が出力されているので、その分母を取得すれば解決すると思うのですが、ネットを検索してもそのようなやり方は自分が見たところ無かったので、そもそもそのやり方が出来るのでしょうか？
もし出来ない場合他にどのような取得方法があるのでしょうか？

以上宜しくお願いいたします。

Answer 1

WorksheetオブジェクトのPageSetUp.Pages.Countで各シートのページ数を取得できます。

Comments

[joyboy]

回答ありがとうございます。
そのオブジェクトでページ数を取得できました。
ありがとうございます！