excel-vba常用技巧-第03章-wordbook对象

1、VBA常用技巧代码解析 VBA常用技巧目录VBA常用技巧1第3章Wordbook（工作簿）对象2技巧1工作簿的引用方法21-1使用工作簿的名称21-2使用工作簿的索引号21-3使用ThisWorkbook31-4使用ActiveWorkbook4技巧2新建工作簿文件4技巧3打开指定的工作簿6技巧4判断指定工作簿是否打开94-1遍历Workbooks集合方法94-2错误处理方法10技巧5禁用宏则关闭工作簿10技巧6关闭工作簿不显示保存对话框146-1使用Close方法关闭工作簿146-2单击工作簿关闭按钮关闭工作簿16技巧7禁用工作簿的关闭按钮16技巧8保存工作簿的方法188-1使用Save方法188-2直接保存为另一文件名188-3保存工作簿副本18技巧9保存指定工作表为工作簿文件19技巧10打印预览时不触发事件21技巧11设置工作簿文档属性信息23技巧12不打开工作簿取得其他工作簿数据2412-1使用公式2412-2使用GetObject函数2512-3隐藏Application对象2612-4使用ExecuteExcel4Macro方法2712-5使用SQL连接28技巧13返回窗口

2、的可视区域地址29第3章 Wordbook（工作簿）对象技巧1 工作簿的引用方法VBA中，在不同的工作簿之间转换需要指定引用的工作簿，通常有下面几种方法。1-1 使用工作簿的名称工作簿名称是指Excel文件的文件名，可以使用Workbooks集合引用方式来引用工作簿，如下面的代码所示。#001 Sub WbPath ()#002 MsgBox 名称为： & Workbooks(工作簿的引用方法.xls).Path#003 End Sub代码解析：WbPath过程显示工作簿“工作簿的引用方法”的路径。应用于Workbook对象的Path属性将完整路径返回给应用程序，语法如下：expression.Path参数expression是必需的，一个有效的对象。运行WbPath过程结果如图 401所示。图 11返回工作簿完整路径1-2 使用工作簿的索引号工作簿索引号是指工作簿打开的顺序，Excel根据工作簿打开的顺序以1开始进行编号。下面的代码显示应用程序打开的第一个工作簿的名称。#001 Sub WbName()#002 MsgBox 第一个打开的工作簿名字为： & Workbooks(1).

3、Name#003 End Sub代码解析：WbName过程显示应用程序打开的第一个工作簿的名称。应用于Workbook对象的Name属性返回对象的名称，语法如下：expression.Name参数expression是必需的，一个有效的对象。运行WbName过程结果如图 402所示。图 12返回工作簿名称如果需要返回包含完整路径的工作簿名称则使用Workbook对象的FullName属性，如下面的代码所示。#001 Sub WbFullName()#002 MsgBox 包括完整路径的工作簿名称为： & Workbooks(1).FullName#003 End SubWbFullName过程显示应用程序打开的第一个工作簿的完整路径和名称。FullName属性返回对象的名称，包括其磁盘路径的字符串，此属性等价于在Path属性后加上当前文件系统的分隔符，然后加上Name属性。运行WbFullName过程结果如图 403所示。图 13返回包含完整路径的工作簿名称1-3 使用ThisWorkbook使用ThisWorkbook代表当前宏代码运行的工作簿，如下面的代码所示。#001 Sub W

4、bClose()#002 ThisWorkbook.Close SaveChanges:=False#003 End Sub代码解析：WbThis过程使用Close方法关闭当前宏代码运行的工作簿，不保存对工作簿的任何更改。关于应用于Workbook对象的Close方法请参阅技巧6-1。注意 本属性仅可在 Microsoft Excel内使用。不能使用此属性访问任何其他应用程序的工作簿。1-4 使用ActiveWorkbook使用ActiveWorkbook代表活动窗口（最上面的窗口）的工作簿，如下面的代码所示。#001 Sub WbActive()#002 MsgBox 当前活动工作簿名字为： & ActiveWorkbook.Name#003 End Sub代码解析：WbActive过程显示活动工作簿的名称，ActiveWorkbook属性返回一个Workbook对象，该对象代表活动窗口（最上面的窗口）的工作簿。如果没有打开任何窗口或者活动窗口为信息窗口或剪贴板窗口，则返回 Nothing。运行WbActive过程结果如图 404所示。图 14返回活动工作簿名称技巧2 新建工作簿文件

5、在VBA中使用Add方法新建工作簿，如下面的代码所示。#001 Sub AddNowbook()#002 Dim Nowbook As Workbook#003 Dim ShName As Variant#004 Dim Arr As Variant#005 Dim i As Integer#006 Dim myNewWorkbook As Integer#007 myNewWorkbook = Application.SheetsInNewWorkbook#008 ShName = Array(余额, 单价, 数量, 金额)#009 Arr = Array(01月, 02月, 03月, 04月, 05月, 06月, 07月, 08月, 09月, 10月, 11月, 12月)#010 Application.SheetsInNewWorkbook = 4#011 Set Nowbook = Workbooks.Add#012 With Nowbook#013 For i = 1 To 4#014 With .Sheets(i)#015 .Name = ShName(i - 1)#016

6、 .Range(B1).Resize(1, UBound(Arr) + 1) = Arr#017 .Range(A2) = 品名#018 End With#019 Next#020 .SaveAs Filename:=ThisWorkbook.Path & & 存货明细.xls#021 .Close Savechanges:=True#022 End With#023 Set Nowbook = Nothing#024 Application.SheetsInNewWorkbook = myNewWorkbook#025 End Sub代码解析：AddNowbook过程使用Add方法建立新的工作簿并对新建工作簿进行操作。第2行到第6行代码声明变量类型。第7行代码保存Excel自动插入到新工作簿中的工作表数目。第8、9行代码将数组元素赋值给变量。第10行代码将Application对象的SheetsInNewWorkbook属性设置为4，在新建工作簿时插入4张工作表。第11行代码使用Add方法建立新的工作簿，应用于Workbooks对象的Add方法新建工作簿，新建的工作簿将成为活动工作簿

7、。第12行到第22行代码操作新建工作簿。其中第15行到第17行代码将新建工作簿的工作表进行重命名并给单元格赋值。第20行代码使用SaveAs方法将新建工作簿重命名为“存货明细.xls”保存在同一目录中。关于SaveAs方法请参阅技巧8-2。第21行代码使用Close方法关闭工作簿。关于Close方法请参阅技巧6-1。第24行代码恢复工作簿的默认设置。运行AddNowbook过程将在工作簿同一目录中新建“存货明细.xls”工作簿，新建工作簿格式如图 411所示。图 21新建“存货明细.xls”工作簿格式注意 本例中没有考虑工作簿同名因素，如果目录中已有“存货明细.xls”工作簿，运行时会显示如图 412所示的对话框，选择“是”即可，否则将会出错。图 22同名提示技巧3 打开指定的工作簿VBA中使用Open方法打开一个工作簿，如下面的代码所示。#001 Sub Openfile()#002 Dim x As Integer#003 For x = 1 To Workbooks.Count#004 If Workbooks(x).Name = 123.xls Then#005 MsgBox

8、123工作簿已经打开!#006 Exit Sub#007 End If#008 Next#009 Workbooks.Open ThisWorkbook.Path & 123.xls#010 End Sub代码解析：Openfile过程打开同一目录中的“123”工作簿。第3行代码利用Workbook对象的Count属性取得打开工作簿的数目，使用For.Next 语句遍历所有打开的工作簿。遍历工作簿除了使用For.Next 语句外还可以使用For.Each.Next语句来遍历Workbook对象集合中的所有元素。第4行到第8行代码遍历所有打开的工作簿，如果Workbook对象集合中存在“123”工作簿，说明“123”工作簿已打开，则显示一条如图 421所示的提示信息。图 31工作簿已打开提示第9行代码如果“123”工作簿没有被打开则使用Open方法打开“123”工作簿。Open方法应用于Workbooks 对象时打开一个工作簿，语法如下：expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)参数expression是必需的，返回一个Workbooks对象参数FileName是必需的，要打开的工作簿的文件名。参数UpdateLinks是可选的，指定文件中链接的更新方式。如果省略本参数，则提示用户选择链

《excel-vba常用技巧-第03章-wordbook对象》由会员suns****4568分享，可在线阅读，更多相关《excel-vba常用技巧-第03章-wordbook对象》请在金锄头文库上搜索。