フォルダ内のファイルのページ数を取得したい

Question

実現したいこと

ファルダを選択してそのフォルダ内にあるファイルのファイル名/ファイルパス/更新日/ブックのページ数を取得したい

発生している問題・エラーメッセージ

オブジェクトはこのプロパティまたは、メソッドをサポートしていません

該当のソースコード

Sub pagecount()
    Dim selectFolder As Variant
    Dim i As Long
    Dim sfile As Variant
    Dim objsheet As Worksheet
    
    Application.ScreenUpdating = False
    
    Row = 2
    col = 2
    i = 1

    With Application.FileDialog(msoFileDialogFolderPicker)
       If .Show = True Then
       selectFolder = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
       Set fso = CreateObject("Scripting.FileSystemObject")
       Set sfile = fso.GetFolder(selectFolder)
       Set objsheet = sfile.PageSetup.pages.Count              
       
　　　　For Each file In sfile.files
           Cells(Row + i, col) = file.path
           Cells(Row + i, col + 1) = file.Name
           Cells(Row + i, col + 2) = file.DateLastModified
　　　　　　Cells(Row + i, col + 3) =
           i = i + 1
        Next
     　End If
   End With
End Sub

分からないこと

ファイル名/ファイルパス/更新日を取得することはできたのですがページ数だけが実装でないです
Set sfile = fso.GetFolder(selectFolder)で取得したブックのページ数を取得すにはどうしたらいいのか。VBAに関してまだ学習不足だと痛感しているのですがご教授いただければ幸いです。

補足情報（FW/ツールのバージョンなど）

Excel2010

Answer 1

質問を閉じさせていただきます。

Answer 2

やはり
https://stabucky.com/wp/archives/6446
のようですね

https://www.itlab51.com/?p=5346
「完全にバックグラウンドでオブジェクトが作られる」
を合わせればよいかと。

Answer 3

https://www.moug.net/tech/exvba/0070018.html

ファイルを開かずに取得できるかはよくわかりませんが、
開けばできるなら開いた方がいいかと、
セルの値も開かずに取得できますが、
大量の場合は素直に開いた方が速かったです。

Answer 4

こちらが当てはまるでしょうか。
https://kosapi.com/post-3287/
シート毎にPageSetup.Pages.Countでカウントしているみたいですね。

Comments

[tomoaki.as]

redames1000様
ご回答して頂いてありがとうございます。参照ページを参考にしたのですが今開いているブックのページ数になってしまいます。ディレクト内のブックを参照するにはどうすればよいのでしょうか？

[radames1000]

この方法ではファイルを開かないとわからないですね。開かずというと現時点ではわからないのでわかりそうでしたら回答します。