投稿日	： 2003/02/05(Wed) 08:37
投稿者	： sus1971
Ｅメール	：
ＵＲＬ	：
タイトル	： Excelシートを連続して作成したい

以下のようなソースコードで、Excelシートを連続して作成したいのですが、
第２シートでエラーとなってしまいます。
（エラー内容は、ソースコード中にコメントで表示）
この回避方法がわかりません。どなたか、ご教示下さい。

＜ソースコード＞
Private Sub Command1_Click()
    BookName = "c:\temp\x.xls"
'----------------------------------------Sheet a 作成
    Set exl = CreateObject("Excel.Sheet")
    exl.Sheets(1).Name = "a"
    exl.Application.Visible = True
    exl.Windows.Arrange ArrangeStyle:=1
    For i = 1 To 9
        For j = 1 To 9
            exl.Worksheets(1).Cells(i, j).Value = i * j
        Next j
    Next i
'----------------------------------------Sheet b 作成
    exl.Sheets(2).Name = "b"  '<-----実行時エラー'9':
'                                    インデックスが有効範囲にありません。
    exl.Application.Visible = True
    exl.Windows.Arrange ArrangeStyle:=1
    For i = 1 To 9
        For j = 1 To 9
            exl.Worksheets(2).Cells(i, j).Value = i + j
        Next j
    Next i
'----------------------------------------
    exl.SaveAs BookName
    Unload Me
End Sub

★ - Excelシートを連続して作成したい - sus1971 02/05-08:37No.2591
• Re: Excelシートを連続して作成したい - killer 02/05-10:19 No.2593
  • Re^2: Excelシートを連続して作成したい - sus1971 02/05-11:01 No.2596
    • Re^3: Excelシートを連続して作成したい - Killer 02/05-11:57 No.2601
      • Re^4: Excelシートを連続して作成したい - sus1971 02/05-13:22 No.2606