投稿日	： 2003/02/05(Wed) 10:19
投稿者	： killer
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: 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.Add.Name = "b"
    exl.Sheets("b").Select

    exl.Application.Visible = True
    exl.Windows.Arrange ArrangeStyle:=1
    For i = 1 To 9
        For j = 1 To 9
            exl.Worksheets("b").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