利用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

分享给朋友:
您可能感兴趣的文章:
随机阅读: