1、第7章Worksheet对象和Workbook对象第一节第一节 Worksheet对象简介对象简介Workbook对象简介对象简介第一节第一节 Worksheet Worksheet对象简介对象简介本章简介 在学习了Excel VBA语言基础后，就可以进行简单的程序设计，然而要利用VBA操作Excel数据就必须了解Excel的各个对象。本章将详细介绍Excel的Worksheet对象和Workbook对象。7.1 Worksheet对象简介Excel对象模型 Excel对象示例7.1 Worksheet对象简介7.1.1 Worksheets集合 Worksheets集合对象表示某个工作簿中所
2、有的Worksheet对象，而Worksheet对象则是Worksheets对象的成员。（1）引用方法按对象模型引用：Application.Workbooks(1).Worksheets直接引用：Worksheets 得到当前活动工作簿的工作表对象集合 Thisworkbook.worksheets 与直接引用等价 7.1 Worksheet对象简介（2）Worksheets对象属性和方法 1.Count属性 只读属性，整数数据类型。它返回Worksheets集合对象中所包含Worksheet对象的数量【例7-1】在统计当前工作簿中工作表的数量 Sub CountSheets()Dim cn
3、t As Integer Cnt =Worksheets.Count MsgBox“当前工作簿中的工作表总数是：”&cnt End Sub 7.1 Worksheet对象简介2.Item属性 只读属性，数组数据类型。其中的各个元素为Worksheets对象中所包含的Worksheet对象，可以通过工作表名称或工作表索引号取得其中的Worksheet对象。【例7-2】显示工作簿中各工作表名称 Sub DisplaySheetName()Dim sheetname As String Dim cnt,i As Integer Cnt =Worksheets.Count For i=1 to cnt
4、 Sheetname=Worksheets.Item(i).name MsgBox“第”&i&“张工作表名为：”&sheetname NextEnd Sub 7.1 Worksheet对象简介3.Add方法 Add方法用于向指定的工作簿中添加工作表。Worksheets表达式.Add(Before,After,Count,Type)Before:指定的工作表，新建的工作表将置于此工作表之前；After:指定的工作表，新建的工作表将置于此工作表之后,该参数不能与Before同时使用；Count:要添加的工作表数。缺省值为1；Type:指定工作表类型。可以为xlWorksheet(工作表)、xlC
5、hart(图表工作表)、xlExcel4MacroSheet或xlExcel4IntMacroSheet。缺省值为xlWorksheet。【例7-3】在当前工作簿的sheet2工作表前新建一个工作表 Sub InsertBlankSheet()Worksheets.Add Before:=Worksheets(“sheet2”)End Sub 7.1 Worksheet对象简介7.1.2 Worksheet对象常用属性Worksheet对象代表工作簿中的一张工作表。（1）引用方法 通过工作表名或工作表索引号索引Worksheets对象 例如：Worksheets(“sheet1”)Worksh
6、eets(1)通过 Activesheet对象得到当前活动工作表对象（2）常用属性1.Name1.Name属性属性Name属性是一个可读写的字符型属性，表示工作表的名称。通过Name属性可以对工作表重命名。【例 7-4】将Sheet1工作表重命名为表1 Dim ws As Worksheet Set ws=Application.WorkBooks(1).Worksheets(1)ws.name=表1 7.1 Worksheet对象简介2.Index属性Name属性是一个只读的整数型属性，表示工作表的索引号。3.Cells属性 Cells属性返回一个Range对象，表示工作表中的所有单元格，包
7、括已经使用的单元格和未使用的单元格。Cells属性还可用于选取指定的单元格，为其传递相应的参数后可获取具体的单元格。4.Columns属性Columns属性用于返回一个Range对象，默认无参数时表示当前工作簿中的所有列。如果当前活动工作是图表工作表，则Columns属性失效。在不使用对象名直接引用此属性时，等效于使用Activesheet.Columns。7.1 Worksheet对象简介3.Previous属性 Previous属性可以得到索引号在指定工作表之前的工作表对象，如果指定的工作表是第一个工作表，则使用Previous属性会出错。4Next属性 Next属性用于取得索引在指定工作
8、表之后工作表对象，如果指定的工作表是最后一个工作表，则使用Next属性会出错。5.Range属性 Range属性用于返回一个Range对象，表示一个单元格或单元格区域。如果在引用此属性时没有使用对象名前辍，则相当于使用ActiveSheet.Range，返回活动工作表的一个区域，如果活动工作表是一张图表工作表，则此属性无效。7.1 Worksheet对象简介6.Rows属性 Rows属性是一个只读属性，用于返回一个Range对象，表示指定工作表中的所有行。在不使用对象名引用此属性时等效于使用ActiveSheet.Rows,即当前工作表的所有行。如果引用此属性的对象是应用于多个选定区域的Ran
9、ge对象时，只返回区域中第1个子区域内的行数。7.Visible属性 Visible属性控制工作表的可见性。通过将工作表的Visible属性设置为True或False来控制工作表的显示或隐藏。8.Comments属性 Comments属性返回一个Comments对象，该对象是一个集合，您可以便利该集合中的对象，Comment类提供的属性很少，用的最多的是Visible属性，用来显示或者隐藏注释；另一个就是Delete属性，用来删除注释，最后Text属性可以用来添加或者修改现有的注释。7.1 Worksheet对象简介7.1.3 Worksheet对象常用方法 Worksheet对象内具有丰富的
10、方法，主要用于操作其自身属性和工作表中所包含的对象。其对象方法的使用如下所示:表达式.方法名参数列表 其中的表达式是一个计算结果为Worksheet对象的表达式，其参数列表是可选的，有些方法具有参数，而有些方法没有参数，对于可选参数或无参数的方法可省略其参数。1.Activate方法 Activate方法用于激活工作表，使其成为当前活动的工作表，此方法的作用同于Workbook对象和Window对象的Activate方法，其作用效果等同于在工作簿上单击工作表的名称。7.1 Worksheet对象简介2.Copy方法与Move方法 Copy方法用于创建一张工作表的副本，且将该副本插入到指定位置。
11、其语法如下所示，表达式.Copy(Before,After)3.Paste方法 Paste方法用于将剪贴板中的内容粘贴到工作表上，Paste方法的语法格式如下：Paste(destination,link)4.Delete方法Delete方法用于从工作薄中删除指定的工作表。7.1 Worksheet对象简介5.FillAcrossSheets方法FillAcrossSheets方法用于拷贝某个Sheet中的Range对象到该工作簿中的其他工作表中。可以指定一个区间，然后指定拷贝的方式，是拷贝数据，样式，还是所有的都拷贝。6.Select方法 Select方法选择指定的对象，并且改变当前工作表,
12、与Activate方法不同，Select方法可以同时选择多个工作表。其语法为：工作表对象表达式.Select(Replace)7.1 Worksheet对象简介7.1.4 Worksheet对象常用事件Worksheet事件用于响应对工作表Worksheet对象所进行的操作。Worksheet对象事件函数可以在代码窗口中直接编写。图7-1中在工程资源管理器中,双击一个工作表,在右边代码区上面选择Worksheet,然后再选择相应的事件7.1 Worksheet对象简介 Worksheet对象具有丰富的事件响应函数，其常用的事件主要有Activate事件、BeforeDoubleClick事件、
13、BeforeRightClick事件、Caculate事件、Change事件、SelectionChange事件。其中Activate事件主要用于响应激活工作簿、工作表、图表工作表或嵌入式图表时触发此事件。7.2 Workbook对象简介第二节第二节 Workbook Workbook对象简介对象简介7.2 Workbook对象简介7.2.1 Workbooks7.2.1 Workbooks集合集合 Workbooks对象对应Excel应用程序打开的多个工作簿。Workbooks是一个集合对象，它包含了是若干Workbook对象的集合。Workbook对象对应Workbooks中的一个工作簿。
14、在VBA中对工作簿的新建、打开、保存、保护与撤消等操作都要通过Worksheet对象（1 1）引用方法）引用方法 按对象模型引用：Application.Workbooks 直接引用：Workbooks 引用结果：得到当前打开的工作簿对象集合 7.2 Workbook对象简介（2）主要属性 1.Count属性 Count属性是一个只读属性，整数数据类型。它返回Workbooks集合对象中所包含Workbook对象的数量，即当前打开的Excel工作簿数量。2.Item属性 Item属性也是一个只读属性，数组数据类型。其中的各个元素为Workbooks对象中所包含的Workbook对象，可以通过工
15、作表名称或工作表索引号取得其中的Worksheet对象。该属性通常用于对Worksheet对象的遍历。7.2 Workbook对象简介（3）主要方法 1.Add方法 Add方法按指定模板新建工作簿，新建的工作簿将成为活动工作簿。语法格式为 expression.Add(Template)expression：Workbooks 对象。Template：Variant 类型，可选。确定如何创建工作簿。若其值为现有 Microsoft Excel 文件名的字符串，那么创建新工作簿将以指定的文件作为模板；若其值为xlWBATChart、xlWBATExcel4IntlMacroSheet、xlWBA
16、TExcel4MacroSheet 或 xlWBATWorksheet中的某一常量，新工作簿将包含指定类型的单张工作表。若省略参数，Microsoft Excel 将创建包含一定数目的空白工作表的工作簿（该数目由 SheetsInNewWorkbook 属性设置）。7.2 Workbook对象简介【例7-19】新建一个空白的工作簿Sub CreateNewWorkbook1()MsgBox 将创建一个新工作簿.Workbooks.AddEnd Sub7.2 Workbook对象简介 2.Open方法 Open方法用于打开一个Excel工作簿，也可打开一个文本文件，但不建议使用该方法打开文本文件
17、。其语法格式如下：Workbooks对象.Open(FileName,ReadOnly,.)Open方法共有14个参数，常用是FileName与ReadOnly参数，分别表示将要打开的工作簿文件名和是否只读。【例7-20】以只读方式打开D盘下的“测试.xls”工作簿Sub openWorkbook2()Dim fname As String MsgBox 将D盘中的工作簿以只读方式打开 fname=D:测试.xls Workbooks.Open Filename:=fname,ReadOnly:=TrueEnd Sub7.2 Workbook对象简介 3.OpenText方法 OpenText
18、方法用于将文本文件导入Excel工作簿中，该方法载入一个文本文件，并将其作为包含单个工作表的新工作簿进行分列处理，然后在此工作簿中放入经过分列处理的文本文件数据。该方法共有18个参数，其中参数FileName为必需的参数，其余参数可选。该方法的语法格式如下：OpenText(Filename,DataType,Tab,)Filename:必须参数，指定要打开和分列的文本文件名称；7.2 Workbook对象简介【例7-21】打开D盘下的“成绩表.txt”文本文件并将制表符作为分隔符对此文件进行分列处理转换成为工作表Sub TextToWorkbook()Workbooks.OpenText F
19、ilename:=d:/成绩表.txt,_ DataType:=xlDelimited,Tab:=TrueEnd Sub7.2 Workbook对象简介 4.OpenXML、OpenDatabase方法 OpenXML、OpenDatabase方法分别用于打开xml数据文件和Access数据库文件，常用于导入外部数据。【例7-23】打开D盘下的“NorthWind.mdb”Access数据库文件Sub WorkbooksOpenDatabase()Workbooks.OpenDatabase FileName:=“d:northwind.mdb”End Sub7.2 Workbook对象简介7
20、.2.2 Workbook对象常用属性 Workbook对象的属性主要用于操作工作簿对象。(1)引用方法从Workbooks集合对象索引：按工作簿名称 Workbooks(“book1.xls”)按工作簿索引号 Workbooks(1)若无索引结果，返回Nothing直接引用：表示运行当前代码工作簿对象 Thisworkbook当前活动工作簿对象 Activeworkbook 若无活动工作簿，返回Nothing7.2 Workbook对象简介（2）常用属性 1.ActiveSheet属性 ActiveSheet属性用于返回一个Worksheet工作表对象，表示活动工作簿中或指定的窗口或工作簿中
21、的活动工作表。如果没有活动工作表，则返回Nothing。2.EnableAutoRecovery属性 EnableAutoRecovery属性是一个可读写的Boolean型属性，用于设置Excel自动恢复功能。7.2 Workbook对象简介 3.HasPassword属性 HasPassword属性是一个只读的Boolean型属性，用于检测指定的工作簿是否设有密码。如果含有密码则返回True，否则返回False。4.Password密码属性 Password属性用于设置工作簿的密码，若要去除密码只需将空字符串赋值给Password 即可。7.2 Workbook对象简介下列代码将工作簿“bo
22、ok.xlsx”的密码设置为“dufe”Dim wb As Workbook Set wb=Application.WorkBooks.Open(C:book.xlsx)wb.Password=dufe wb.Save wb.Close 5.Name、FullName、Path、ReadOnly属性 Name、FullName、Path属性分别返回工作簿的名称、完整路径名称、工作簿保存的文件目录、是否以只读方式打开。7.2 Workbook对象简介 6.Saved属性 Saved 属性为可读写Boolean类型属性，用于标记工作簿是否已存盘。7.2 Workbook对象简介（3）Workboo
23、k对象常用方法 1.Activate方法 Activate方法用于激活与工作簿相关的一个窗口。2.Close方法 Close方法用于关闭Workbook对象，并不会关闭整个Excel应用程序。3.Save方法 Save方法指用于保存指定的工作簿。7.2 Workbook对象简介4.Protect和UnProtect方法Protect和UnProtect方法可以设置工作簿的保护状态，Protect方法用于保护工作簿；Unprotect方法可以取消保护工作簿。其语法结构如下Workbook对象.Protect(Password,Structure,Windows)Password:指明保护工作簿密
24、码，要解除工作簿保护应输入此密码；Structure:设置为True则保护工作簿结构，此时不能对工作簿中的工作表进行插入、复制、删除等操作；Windows:设置为True则保护工作簿窗口，此时该工作簿右上角的最小化、最大化和关闭按钮消失。7.2 Workbook对象简介（4）Workbook对象常用事件1.BeforeClose事件 BeforeClose事件用于响应关闭窗口的操作。其事件处理过程语法如下：BeforeClose(Cancel)Cancel是一个可改写的布尔型参数，当事件发生时为False，如果在事件函数中将此参数设置为True，则停止关闭操作，工作簿保持打开状态。7.2 Wo
25、rkbook对象简介【例7-30】关闭工作簿窗口时提示存盘Private Sub Workbook_BeforeClose(Cancel As Boolean)If Me.saved Then Cancel=False Else MsgBox 请存盘后，再关闭工作簿 Cancel=True EndIf End Sub7.2 Workbook对象简介2.BeforeSave事件 BeforeSave用于响应用户保存工作簿事件，其语法如下所示：BeforeSave(SaveAsUI,Cancel)SaveAsUI：必选 Boolean 如果将显示“另存为”对话框，则为 True。Cancel：必选
26、 Boolean 当事件发生时为 False。如果该事件过程将此参数设置为 True，则该过程完成后将不保存工作簿。下列代码在保存工作簿时，显示保存提示对话框。7.2 Workbook对象简介Private Sub Workbook_BeforeSave(ByValSaveAsUI As Boolean,_Cancel as Boolean)a=MsgBox(是否保存工作簿?,vbYesNo)If a=vbNo Then Cancel=TrueEnd Sub7.2 Workbook对象简介3.WindowActive事件WindowActivate事件用于响应激活窗口的操作，其语法如下：Win
27、dowActivate(Wn)Wn必选参数，代表激活的窗口，Window对象，下列代码将激活的工作簿窗口宽度设为100。下列代码将激活的工作簿宽度设为100Private Sub Workbook_WindowActivate(ByVal Wn As Window)MsgBox 激活工作簿 Wn.width=100 End Sub7.2 Workbook对象简介4.WindowResize WindowResize事件用于响应任何更改工作簿窗口大小的操作，当调整窗口大小时，将首先触发此事件的函数代码。其语法与WindowActivate相同。7.2 Workbook对象简介小结：本章学习了Workbooks、Worksheets这两个集合对象，并学习了Workbook、Worksheet对象的常用属性、方法与事件。熟悉和掌握以上内容对于在VBA中操作工作簿与工作表非常重要。
