※エラー処理は省略しています。使用の場合は御注意下さい。
スクリプトを使用して損害が発生しても、責任は一切負えませんので悪しからず。
Sub test() Dim newbk As Workbook Set newbk = createBook(5) End Sub
Option Explicit
' 新規ブック作成
'
' 概要:
' 指定されたシート数のワークシートのみで構成されたブックを作成する。
'
' INPUT : sheetCount 挿入するシート数
' OUTPUT : ---
' RETURN : 作成されたブック
'
' @author iiyan.net
' @date 2001/10/18
' @version 1.0
Function createBook(ByVal sheetCount As Integer) As Workbook
Dim defaultSheetCount As Integer
With Application
defaultSheetCount = .SheetsInNewWorkbook
.SheetsInNewWorkbook = sheetCount
Set createBook = Workbooks.Add
.SheetsInNewWorkbook = defaultSheetCount
End With
End Function