投稿日 | : 2003/02/05(Wed) 08:37 |
投稿者 | : sus1971 |
Eメール | : |
URL | : |
タイトル | : Excelシートを連続して作成したい |
以下のようなソースコードで、Excelシートを連続して作成したいのですが、
第2シートでエラーとなってしまいます。
(エラー内容は、ソースコード中にコメントで表示)
この回避方法がわかりません。どなたか、ご教示下さい。
<ソースコード>
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