ExcelのワークシートをVBAで削除する方法

質問

Excelのオブジェクトを作り、ワークブックを作りワークシートを１つだけ作り、ワークシートの名前を"abc"にするにはどうしたらよいでしょうか？

x=CreateObject("Excel.Application")
y=a.Workbooks.Add
z=y.Worksheets(1)
をやると、シートがExcel標準の3シートつくられます。ここまでは理解できるのですが、上記のsheet1の名前を変更。残りのsheet2,sheet3を削除するにはどうしたらよいでしょうか？

回答No.2

lark_0925 · ベストアンサー

Sub Macro1()
　　Dim svshtcnt As Long
　　With CreateObject("Excel.Application")
　　　　.Visible = True
　　　　svshtcnt = .SheetsInNewWorkbook
　　　　.SheetsInNewWorkbook = 1
　　　　with .Workbooks.Add
　　　　 .worksheets(1).name="abc"
　　　　end with
　　　　.SheetsInNewWorkbook = svshtcnt
　　End With
End Sub
シート名の変更を入れわすれました。

お礼

ありがとうございます！助かりました！

回答No.1

lark_0925

Sub Macro1()
　　Dim svshtcnt As Long
　　With CreateObject("Excel.Application")
　　　　.Visible = True
　　　　svshtcnt = .SheetsInNewWorkbook
　　　　.SheetsInNewWorkbook = 1
　　　　.Workbooks.Add
　　　　.SheetsInNewWorkbook = svshtcnt
　　End With
End Sub
新規作成時のシート数を1に設定して、新規ブックを作成し、再び
シート数を設定数に戻しています。