如何使新建的Excel工作薄只含一个工作表

Question

新建Excel工作薄时，默认有三个工作表（sheet1,sheet2,sheet3)，
我现在只要一个工作表就行了，
该怎么处理？

Answer 1

在sheet1、sheet2、sheet3上右键-->删除

Answer 2

在excel工具－选项－常规中有一个可以设置新建工作薄的工作表数！

Answer 3

Set xlsApp = CreateObject("excel.application")
xlsApp.Workbooks.Add
xlsApp.Visible = True
xlsApp.SheetsInNewWorkbook = 1

Answer 4

Private Sub Command1_Click()
Set app1 = CreateObject("excel.application")
app1.Workbooks.Add
app1.Visible = True
app1.Sheets("Sheet2").Select
app1.ActiveWindow.SelectedSheets.Delete
app1.Sheets("Sheet3").Select
app1.ActiveWindow.SelectedSheets.DeleteEnd Sub