用VBA创建新的工作簿

2016-01-14 15:19 阅读 25 次 评论关闭

如果要用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

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:用VBA创建新的工作簿 | 猎微网

评论已关闭!