【EXCEL】【VBA】シート数を指定して新規ブックを作成する例（SheetsInNewWorkbook ）

Excelで新規ブックを作成する際、いわゆる１ブック１シートを明示的に実現させる方法

SheetsInNewWorkbookを一時的に１に設定すれば、新規ブックのシート数が１になる。

Sub シート数を指定してexcelファイルを作成()

    Dim wb As Workbook
    Dim SheetNum As Long
    SheetNum = 1
    
    Excel.Application.SheetsInNewWorkbook = SheetNum
    Set wb = Excel.Application.Workbooks.Add
    wb.SaveAs "SheetNum" & SheetNum & "_Test.xlsx"


End Sub