【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

文書情報

記事タイトル: 【EXCEL】【VBA】シート数を指定して新規ブックを作成する例（SheetsInNewWorkbook ）
作成日: 2021.03.24
更新日: 2026.08.30
Source URL: https://papanda925.com/?p=1556

ライセンス: 本記事のうち、当サイトが権利を有する本文・自作図表は、特記なき限り CC BY 4.0 で利用できます。生成AIを活用して作成・編集した内容を含みます。コードについて、別途ライセンス表示またはリンク先GitHubリポジトリのライセンスがある場合は、その条件を優先します。引用・第三者資料・画像・商標等は本ライセンスの対象外です。利用ポリシー