[ホーム] ＞ [VBScript FAQ 一覧] ＞ [Excelのシート数をカウントするサンプルプログラム]

Excelのシート数をカウントするサンプルプログラム | VBScript / VBA FAQ

1つのブック（Excel book）に何個のシートが存在するかを確認するサンプルプログラムです。
シート数をカウントするには　Count プロパティ (Worksheets.Count)を使用します。
以下の例はシート数を表示した後、各シートのシート名を表示しています。

Sub CountNumOfSheets()

NumOfWorksheets = Worksheets.Count

MsgBox "シート数:" & NumOfWorksheets

For i = 1 To NumOfWorksheets
MsgBox "シート名：" & Worksheets(i).Name
Next i

End Sub

[ホーム] ＞ [VBScript FAQ 一覧]