Chicchiさん、こんばんは。

Chicchiさんのおっしゃった方法で無事、問題を解決することができました。
ありがとうございました。

＞

＞hatiさん、こんばんは。
＞
＞次の方法で Excel のシート数をカウントすることができます。
＞
＞intSheetsCount = ActiveWorkbook.Sheets.Count
＞
＞各シートの名称は次の方法で取得できます。
＞
＞For intSheetNo = 1 To intSheetsCount
＞    strSheetName = ActiveWorkbook.Sheets(intSheetNo).Name
＞Next
＞
＞はずしていたらゴメンなさい。
＞

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