エクセルＶＢＡで最終ページの確認は出来ますか？

質問

WIN98SEでエクセル2000を使用しています。

既に作成されたシートの最終ページ又は総枚数をＶＢＡで取得し、そのデータを活用したいと考えています。
ＶＢＡでの取得は出来るでしょうか？
宜しくお願いします。

回答No.3

Taketoshi · ベストアンサー

下のURLを参考してみてください。

参考URL：

http://www.ae.wakwak.com/cgi-bin/sbox/~efc21/wwwlng.cgi?print+200203/02030059.txt

お礼

参考ＵＲＬを確認してみました。

何とかなりそうです。どうもありがとうございました。

回答No.2

maruru01

こんにちは。maruru01です。

ワークシート数はNo.1の人のやり方で取得出来ます。
最終シート（シートタブの一番右のシート）は、

Worksheets(Worksheets.Count)

で取得出来ます。

補足

回答有難うございます。

質問の仕方が悪かったようで、すみませんが補足させていただきます。
ワークシートの数ではなくて、一つのシート(sheet1)がプリントアウトしたときに何ページ分有るのか、そのページ数を取得したいのです。

回答No.1

EKTAR

ワークシートの数を数えるということでしたら
countプロパティを使えばよろしいのではないでしょうか？

worksheets.countでシートの枚数が返ってきます。

補足

回答有難うございます。

質問の仕方が悪かったようで、すみませんが補足させていただきます。
ワークシートの数ではなくて、一つのシート(sheet1)がプリントアウトしたときに何ページ分有るのか、そのページ数を取得したいのです。