エクセルVBでエクセルファイルやワードファイルのページ数を取得するには？

---

デスクトップ上に適当にフォルダを作り、そこにエクセルやワードのファイルをいれ、ボタンを押下するとファイル名やシート名やシート毎のページ数を纏めた表を出す物を作りたいんですが上手くいきません。誰かソースをおしえていけないでしょうか？

編集 削除

---

デスクトップはキーワード『特殊フォルダ』あたりでＷＥＢ検索すれば
サンプルが見つかります。
フォルダパスが特定されたら、過去ログ検索『一覧』とか『フォルダ』で
フォルダ内のファイルを羅列するサンプル見つけて…。
あとはエクセルやワードのヘルプを見ながら組み合わせていけば
それなりにできるんじゃないでしょうか。

編集 削除

---

>上手くいきません。
>誰かソースをおしえていけないでしょうか

作成依頼は、質問じゃないよね？
ここは、質問をする掲示板です。

編集 削除

---

Sub ファイルの有無のチェック()
    Dim myMsg As String
    
    myMsg = Dir("C:\Documents and Settings\hidaka1\デスクトップ\ページ数データ収集フォルダ\フローチャート.xls")
    MsgBox myMsg
    
End Sub

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。