第11讲 workbook & worksheet 对象

《第11讲 workbook & worksheet 对象》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、复习在工作表上添加两个按钮“随机数”和“统计”。单击“随机数”，在“A1:E4”区域中随机产生20个两位正整数；单击“统计”，将其中跟5有关（自身带5或5的倍数）的数加粗并设为红色VBA程序设计Workbook对象&Worksheet对象Excel的常用对象Excel应用程序(Application)工作薄(Workbook)工作表(Worksheet)区域(Range)Excel函数容器(WorksheetFunction)Workbooks对象Workbooks对象用于返回Excel应用程序中当前打开的所有Workbook对象的集合Workbooks对象的常用属性：It

2、em：集合中的项目（即工作簿），以数组形式存放Setwb=Workbooks.Item(1)在实际应用时，也可以不显式引用Item属性而返回某个工作簿对象，如上式可以写成：Setwb=Workbooks(1)Count：集合包含的工作簿个数MsgBoxApplication.Workbooks.CountWorkbooks对象Workbooks对象的常用方法：Add：新建工作簿Workbooks.AddClose：关闭所有的工作簿Workbooks.CloseOpen：打开一个工作簿文档Workbooks.Open"C:PathWorkbook.xls"Workbook

3、对象Workbook对象代表MicrosoftExcel工作簿Workbook对象是Workbooks集合的成员Workbooks集合包含Excel中所有当前打开的Workbook对象Workbook对象的常用属性Name工作簿的名称FullName工作簿的完整文件标识符，包含路径和名称Path工作簿的存放路径如果某个工作簿从未保存过，则其Path属性返回一个空字符串("")Workbook对象的常用属性Saved如果工作簿从上次保存至今未发生过更改，则该属性值为True，例：IfActiveWorkbook.Saved=FalseThenMsgBox"工作簿包含未保存的更

4、改"EndIf如果要关闭某个有更改的工作簿，但又不想保存它或者不想出现保存提示，则可将此属性设为TrueWorkbook对象的常用属性ActiveSheet代表工作簿中活动的工作表Worksheets代表工作簿中所有普通工作表的集合Charts代表工作簿中所有图表工作表的集合Sheets代表所有工作表的集合，包括Worksheet对象和Chart对象Workbook对象的常用方法Activate：激活一个工作簿Workbooks(1).ActivateClose：关闭一个指定的工作簿，并且（可选）指定是否保存修改Workbooks(1).CloseSaveChanges:=

5、FalseSave：保存工作簿，如果还未保存过工作簿，则应该调用SaveAs方法Workbooks(1).SaveAsFilename:=fNameWorksheets对象Worksheets对象用于返回指定工作簿中所有Worksheet对象的集合Worksheet对象也是Sheets集合的成员。Sheets集合包含工作簿中所有的工作表（图表工作表和工作表）Worksheets对象的常用属性Item：集合中的项目（即工作表），以数组形式存放Setws=ActiveWorkbook.Worksheets.Item(1)因为Item是集合的默认成员，所以上式等价于：Setws=

6、ActiveWorkbook.Worksheets(1)Count：集合包含的工作表个数MsgBoxActiveWorkbook.Worksheets.CountWorksheets对象的常用方法Add：新建工作表，并将新建的工作表置为活动工作表，语法：表达式.Add(Before,After,Count,Type)Before：指定某工作表，新建工作表将在此工作表之前After：指定某工作表，新建工作表将在此工作表之后Count：要添加的工作表数，默认值为1Type：新建工作表的类型，默认值为xlWorksheet说明：Before和After只能二选一，如果同时省略Be

7、fore和After，则新工作表插入到活动工作表之前实例1在eg1.xlsx的Sheet1中，单击“按钮1”时，在第一张工作表之后插入一个新工作表；单击“按钮2”时，在Sheet1的B1单元格中写入当前工作簿的工作表数Worksheet对象Worksheet对象代表一张工作表Worksheet对象是Worksheets集合的成员，Worksheets集合包含工作簿中所有的Worksheet对象Worksheet对象的常用属性Name工作表名称SubIsSuchSheet()DimmySheetAsWorksheet