VBA新建一个excel文件，并且这个excel里面含有5个sheet，如何操作？

VBA新建一个excel文件，并且这个excel里面含有5个sheet，如何操作？

Option Explicit

Sub test1()
    Dim wb As Workbook
    Set wb = Workbooks.Add
    With wb.Worksheets
        .Add After:=wb.Worksheets(.Count), Count:=5 - .Count
    End With
    
    '以下是可选代码
    '将新建的工作簿激活为当前窗口
    wb.Activate
    '将工作簿保存到D盘根目录，名字为newWorkbook.xlsx, 格式为.xlsx格式（excel2007及以上版本默认格式）
    wb.SaveAs "D:
ewWorkbook.xlsx", 56
    
End Sub

Sub test2()
    '如果是从外部程序创建，如在word中执行操作，则需要先创建个excel对象。
    Dim appExcel As Excel.Application
    Dim wb As Workbook
    Set appExcel = CreateObject("Excel.Application")
    Set wb = appExcel.Workbooks.Add
    With wb.Worksheets
        .Add After:=wb.Worksheets(.Count), Count:=5 - .Count
    End With
End Sub

在Excel选项中，“常用”→“新建工作簿时”→包含的工作表数→改为5。
以后新建工作簿时，会默认打开5个工作表sheet。