Excelブック内のシート数を知りたい

ただみね 2005-02-06 10:04:19 No: 13058

複数枚のシートから成るエクセルシートから特定のシート(順不同、シート名は固定)を選択し、セル内容を取り出そうとしています。この時、シート枚数分だけループさせて目的のシートを取り出すようにしたいのですが、シート枚数が何枚あるのか分からないため、とりあえず10回ほど回して見つかったらループから抜け出すようにしています。
見た目にも不恰好なので、予めシート枚数を知ることでループの回数を決めたいのですが可能でしょうか？

ただみね 2005-02-06 10:06:16 No: 13059

【補記】
すいません、環境書いてませんでした。
Delphiのバージョンは7、エクセルのバージョンは2003です。

. 2005-02-06 17:31:50 No: 13060

Workbooks.Item['Book1'];
Sheets.Item['Sheet1'];

for i:=1 to Sheets.Count do
Sheets.Item[i]

HOta 2005-02-07 00:53:42 No: 13061

Sheets["シート名"]
で目的のシートを特定できませんか？