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

Excel【VBA】

2021.03.24

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" &amp; SheetNum &amp; "_Test.xlsx"


End Sub

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

%d人のブロガーが「いいね」をつけました。

タイトルとURLをコピーしました

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

いいね:

コメント

共有:

いいね:

コメント