利用VBA创建新的工作簿

如果要用VBA创建新的工作簿，可以使用Add方法，如下面的代码。Excel自动将该工作簿命名为“BookN”，其中“N”是下一个可用的数字，同时新工作簿将成为活动工作簿。

Sub AddOne()
Workbooks.Add
End Sub

另外，创建新工作簿更好的方法是将其分配给一个对象变量。例如下例中，由Add方法返回的Workbook对象分配给了对象变量“NewBook”。然后，又设置了“NewBook ”的若干属性。

Sub AddNew()
Set NewBook = Workbooks.Add
With NewBook
.Title = "图书销售目录一览表"
.Subject = "图书销售"
End With
End Sub

“Title”和“Subject”分别为工作簿的“标题”和“主题”属性，可以在工作簿属性的“摘要”选项卡中查看。

下面的代码不仅创建了一个新工作簿的同时，还在工作簿中的第一个工作表前插入了一个名为“计算机类”的工作表，并将该工作表中的B2单元格赋值为“销售数量”。

Sub CreateNewWorkBook()
Dim WBook As Workbook, WSheet As Worksheet
Set WBook = Workbooks.Add
Set WSheet = WBook.Worksheets.Add
WSheet.Name = "计算机类"
WSheet.Range("B2").Value = "销售数量"
End Sub