第4课 Workbook(工作薄)对象

1、第4课 Workbook（工作薄）对象1知识点认识工作薄对象引用工作薄对象打开、关闭工作薄保存工作薄2一、工作薄对象一个Excel文件就是一个工作簿对象打开VBE看到的“ThisWorkbook”就是指本工作簿对整个工作簿进行操作的代码在“ThisWorkbook”中编写3二、工作簿的引用方法VBA中，在不同的工作簿之间转换需要指定引用的工作簿，通常有下面几种方法使用工作簿的名称使用工作簿的索引号使用ThisWorkbook使用ActiveWorkbook41、使用工作簿的名称工作簿名称是指Excel文件的文件名，可以使用Workbooks集合引用方式来引用工作簿MsgBox 路径为： & W

2、orkbooks(VBA示例.xls).Path应用Workbook对象的Path属性返回指定工作簿的完整路径52、使用工作簿的索引号工作簿索引号是指工作簿打开的顺序，Excel根据工作簿打开的顺序以1开始进行编号。下面的代码显示应用程序打开的第一个工作簿的名称MsgBox 第一个打开的工作簿名字为： & Workbooks(1).Name下面的代码显示应用程序打开的第一个工作簿的完整路径和名称MsgBox 包括完整路径的工作簿名称为： & Workbooks(1).FullName63、使用ThisWorkbookThisWorkbook代表当前宏代码运行的工作簿MsgBox thiswor

3、kbook.FullName该代码显示当前使用的工作簿的完整路径和名称7使用ActiveWorkbook使用ActiveWorkbook代表活动窗口（最上面的窗口）的工作簿MsgBox 当前活动工作簿名字为： & ActiveWorkbook.NameActiveWorkbook属性返回一个Workbook对象，该对象代表活动窗口（最上面的窗口）的工作簿。如果没有打开任何窗口或者活动窗口为信息窗口或剪贴板窗口，则返回 Nothing8二、打开指定的工作簿VBA中使用Open方法打开一个工作簿Workbooks.Open, ReadOnly, Password参数是必需的，要打开的工作簿的路径及

4、文件名。参数ReadOnly是可选的，如果为True，以只读模式打开工作簿。参数Password是可选的，指定打开一个受保护工作簿的密码。Workbooks.Open “C:.工作薄的名字.xls“上面代码打开桌面上的一个工作簿9例：Sub xx()Workbooks.Open C:Documents and SettingsAdministrator桌面2012第二学期教学手册.xlsEnd Sub10三、保存工作簿的方法、使用Workbook对象的Save方法保存工作簿的更改，如下面的代码所示ThisWorkbook.Save11、使用SaveAs方法另存文件 ThisWorkbook.S

5、aveAs & “文件名.xls“参数表示要保存文件的文件名的字符串。可包含完整路径，如果不指定路径，将文件保存到当前文件夹中使用SaveAs方法将工作簿另存为新文件后，将关闭原工作簿文件12、如果用户希望工作簿在保存为另一文件名后，能继续编辑原工作簿，那么可以使用SaveCopyAs方法，例如：Sub savacopyas()ThisWorkbook.SaveCopyAs ThisWorkbook.Path & 123.xls“End sub13例：Sub 另存()ThisWorkbook.SaveAs e:abc.xlsEnd Sub或者Sub 另存()ThisWorkbook.SaveA

6、s e:abc.xlsEnd Sub14、另存文件并保存密码 例：Sub 另存并加密()Activeworkbook.saveas e:yy.xls,password:=12345End sub15四、关闭工作簿的方法close、关闭所有工作簿Workbooks.close162、关闭指定工作薄workbooks(“工作薄的名称).close173、关闭前是否保存.3.1对指定工作薄workbooks(“工作薄的名称”).closesavechanges:=true/false3.2对当前工作薄Activeworkbook.closesavechanges:=true/false规则：true

7、保存；false不保存18五、工作薄常用事件应用注意：事件是在事件菜单中选择的，不允许修改例如：禁止打印本文件内容Private Sub Workbook_BeforePrint(Cancel As Boolean)Cancel = TrueMsgBox 不能打印本文件内容！End Sub19打开文件时弹出提示Private Sub Workbook_Open()MsgBox 当前日期： & Date & ,当前时间： & TimeEnd Sub20提示性讲解：禁止修改本档Dim MMPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)MM = ActiveCell.ValueEnd Sub21Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)MsgBox 本文档不能修改Applicatio