新規ブックの作成

新たにブックを作成する場合は、WorkbooksオブジェクトのAddメソッドを使用する。
Addメソッドの書式は下記の通り :

Set Workbook変数 = Workbooksオブジェクト.Add([Template])

ここでTemplate引数に指定できる値は、下記の通り(実は他にもあるがほとんど使わない
はずなので割愛する) :

XlWBATemplate.xlWBATWorksheet

以下に、新規ブックを作成するコードを記す :

Sub SampleCreateNewWorkbook1()
     Dim bkNew As Workbook
     Set bkNew = Application.Workbooks.Add
End Sub

上のプロシージャを実行すると「Bookn」(nは正の整数)という名前で、新たにブックが追加
される。これに対して、Template引数を指定した下記のコードを実行すると、「Sheetn」
 (nは正の整数)という名前の新規ブックが追加される :

Sub SampleCreateNewWorkbook2()
     Dim bkNew As Workbook
     Set bkNew = _
     Application.Workbooks.Add(Template:=XlWBATemplate.xlWBATWorksheet)
End Sub