ブックを追加する時にシート数を指定する【ExcelVBA】

ApplicationのSheetsInNewWorkbookプロパティでシートの枚数を取得・設定していく

アプリケーションの設定になる為、ブックを追加した後は元に戻す形をとった

最初に元の設定を取得し、最後に元の設定に戻す

ブックを挿入する前にアプリケーションの枚数設定を変更し、Workbooks.Addメソッドでブックを挿入

ｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ

実際に使用したサンプルコード

'元の設定を取得しておく
Dim 元の枚数 As Integer
元の枚数 = Application.SheetsInNewWorkbook

'アプリケーションの枚数設定を変更
Application.SheetsInNewWorkbook = 10

'ブックを挿入
Workbooks.Add

'元の設定に戻す
Application.SheetsInNewWorkbook = 元の枚数