Excel-VBA常用技巧-第03章-Wordbook对象

VBA常用技巧代码解析1VBA常用技巧目录VBA常用技巧...................................................................................................................................1第3章Wordbook（工作簿）对象..............................................................................2技巧1工作簿的引用方法...................................................................................21-1使用工作簿的名称...................................................................................21-2使用工作簿的索引号...............................................................................21-3使用ThisWorkbook..................................................................................31-4使用ActiveWorkbook..............................................................................4技巧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返回窗口的可视区域地址.....................................................................29VBA常用技巧代码解析2第3章Wordbook（工作簿）对象技巧1工作簿的引用方法VBA中，在不同的工作簿之间转换需要指定引用的工作簿，通常有下面几种方法。1-1使用工作簿的名称工作簿名称是指Excel文件的文件名，可以使用Workbooks集合引用方式来引用工作簿，如下面的代码所示。#001SubWbPath()#002MsgBox名称为：&Workbooks(工作簿的引用方法.xls).Path#003EndSub代码解析：WbPath过程显示工作簿“工作簿的引用方法”的路径。应用于Workbook对象的Path属性将完整路径返回给应用程序，语法如下：expression.Path参数expression是必需的，一个有效的对象。运行WbPath过程结果如图1-1所示。图1-1返回工作簿完整路径1-2使用工作簿的索引号工作簿索引号是指工作簿打开的顺序，Excel根据工作簿打开的顺序以1开始进行编号。下面的代码显示应用程序打开的第一个工作簿的名称。VBA常用技巧代码解析3#001SubWbName()#002MsgBox第一个打开的工作簿名字为：&Workbooks(1).Name#003EndSub代码解析：WbName过程显示应用程序打开的第一个工作簿的名称。应用于Workbook对象的Name属性返回对象的名称，语法如下：expression.Name参数expression是必需的，一个有效的对象。运行WbName过程结果如图1-2所示。图1-2返回工作簿名称如果需要返回包含完整路径的工作簿名称则使用Workbook对象的FullName属性，如下面的代码所示。#001SubWbFullName()#002MsgBox包括完整路径的工作簿名称为：&Workbooks(1).FullName#003EndSubWbFullName过程显示应用程序打开的第一个工作簿的完整路径和名称。FullName属性返回对象的名称，包括其磁盘路径的字符串，此属性等价于在Path属性后加上当前文件系统的分隔符，然后加上Name属性。运行WbFullName过程结果如图1-3所示。图1-3返回包含完整路径的工作簿名称1-3使用ThisWorkbook使用ThisWorkbook代表当前宏代码运行的工作簿，如下面的代码所示。#001SubWbClose()#002ThisWorkbook.CloseSaveChanges:=FalseVBA常用技巧代码解析4#003EndSub代码解析：WbThis过程使用Close方法关闭当前宏代码运行的工作簿，不保存对工作簿的任何更改。关于应用于Workbook对象的Close方法请参阅技巧6-1。注意本属性仅可在MicrosoftExcel内使用。不能使用此属性访问任何其他应用程序的工作簿。1-4使用ActiveWorkbook使用ActiveWorkbook代表活动窗口（最上面的窗口）的工作簿，如下面的代码所示。#001SubWbActive()#002MsgBox当前活动工作簿名字为：&ActiveWorkbook.Name#003EndSub代码解析：WbActive过程显示活动工作簿的名称，ActiveWorkbook属性返回一个Workbook对象，该对象代表活动窗口（最上面的窗口）的工作簿。如果没有打开任何窗口或者活动窗口为信息窗口或剪贴板窗口，则返回Nothing。运行WbActive过程结果如图1-4所示。图1-4返回活动工作簿名称技巧2新建工作簿文件在VBA中使用Add方法新建工作簿，如下面的代码所示。#001SubAddNowbook()#002DimNowbookAsWorkbook#003DimShNameAsVariantVBA常用技巧代码解析5#004DimArrAsVariant#005DimiAsInteger#006DimmyNewWorkbookAsInteger#007myNewWorkbook=Application.SheetsInNewWorkbook#008ShName=Array(余额,单价,数量,金额)#009Arr=Array(01月,02月,03月,04月,05月,06月,07月,08月,09月,10月,11月,12月)#010Application.SheetsInNewWorkbook=4#011SetNowbook=Workbooks.Add#012WithNowbook#013Fori=1To4#014With.Sheets(i)#015.Name=ShName(i-1)#016.Range(B1).Resize(1,UBound(Arr)+1)=Arr#017.Range(A2)=品名#018EndWith#019Next#020.SaveAsFilename:=ThisWorkbook.Path&\&存货明细.xls#021.CloseSavechanges:=True#022EndWith#023SetNowboo