hatiさん、こんばんは。

次の方法で Excel のシート数をカウントすることができます。

intSheetsCount = ActiveWorkbook.Sheets.Count

各シートの名称は次の方法で取得できます。

For intSheetNo = 1 To intSheetsCount
    strSheetName = ActiveWorkbook.Sheets(intSheetNo).Name
Next

はずしていたらゴメンなさい。

＞こんにちは。初めて質問させてもらいます。
＞
＞OLEを使用してExcelシートに計算結果などを複数のシートに出力させているのですが、存在しないシートにアクセ
スし
＞ようとするとsheets関数の呼び出しエラーが起こってしまい落ちてしまいます。これを回避されるために、出力前
にあ
＞らかじめシート数をカウントして足りない分シートを追加しようと思ったのですが、シート数のカウントの方法が
分か
＞らずここで行き詰まっています。どなたかご存知の方がいましたらご教授ください。