WPS Office

知识库

> 教程

【VBA教材】66.Application应用案例详解　（五）

贡献者：罗刚君日期：2010-02-22 阅读：2021

相关标签：pub2007　VBA

Application应用案例详解　（五）

　　本节继续讲述两个Application对象的应用案例.
　　1. 新建一个带有7个工作表的工作簿
　　案例要求:新建一个工作簿，让其默认带有7个工作表。
　　知识要点: SheetsInNewWorkbook、DefaultWorksheetName
　　实现步骤:
　　1)单击菜单【插入】\【模块】；
　　2) 在模块代码窗口输入以下代码：
Sub 新建一个带有7个工作表的工作簿()
'设置默认新工作簿的默认工作表数量为7
Application.SheetsInNewWorkbook = 7
'新建一个工作簿
Workbooks.Add
End Sub

　　该过程首先将新工作簿中默认工作表数由3改为7，然后新建一个工作簿。
　　3）返回工作表，利用快捷键【Alt+F8】打开“宏”对话框，选择并执行“新建一个带有7个工作表的工作簿”，程序会新建一个带有7个工作表的工作簿。
　　

　　图66.1　新工作簿默认带有七个工作簿表
　　4）如果需要工作表默认的七个工作表显示为“车间1”、“车间2”…“车间7”，那么需要再追加一句代码：
________________________________________

Sub 新建一个带有7个工作表的工作簿()
'设置默认新工作簿的默认工作表数量为7
Application.SheetsInNewWorkbook = 7
'指定默认工作表名
Application.DefaultWorksheetName = "车间"
'新建一个工作簿　　
Workbooks.Add
End Sub
_____________________________________

　　图66.2　新工作簿的工作表默认为“车间”加序号

　　语法补充：
　　（1）Application.SheetsInNewWorkbook 属性可以返回或设置ET自动插入到新工作簿中的工作表数目。其范围在1到255之间。
　　（2）如果需要以后新建工作簿时仍然是默认值3，那么需要在过程的最后加一句代码，将该值设置为3。
　　（3）SheetsInNewWorkbook必须配合其前置对象Application同时使用。
　　（4）DefaultWorksheetName属性可以返回或设置ET工作表的默认名称。这是ET特有的属性，可以修改默认表名，而Excel不具备这个属性。

2.指定默认的文件名称
　　案例要求:让新建文件默认名称为“生产表1”\“生产表2”…
　　知识要点:DefaultWorkbookName
　　实现步骤:
　　1）单击菜单【插入】\【模块】；
　　2）在模块代码窗口输入以下代码：
_________________________________________

Sub 设置默认工作簿名()
Application.DefaultWorkbookName = "生产表"
End Sub
_________________________________________

　　3）返回工作表，利用快捷键【Alt+F8】打开“宏”对话框，选择并执行“指设置默认工作簿名”，然后重新启动ET，并新建多个工作秒，可以发现工作簿的默认名称已成为“生产表1”、“生产表2”、“生产表3”。
　　