Excel_VBA常用技巧_第03章.Wordbook(工作薄)对象.docVIP

VBA常用技巧 目录 VBA常用技巧 1 第3章 Wordbook（工作簿）对象 2 技巧1 工作簿的引用方法 2 1-1 使用工作簿的名称 2 1-2 使用工作簿的索引号 2 1-3 使用ThisWorkbook 3 1-4 使用ActiveWorkbook 4 技巧2 新建工作簿文件 4 技巧3 打开指定的工作簿 6 技巧4 判断指定工作簿是否打开 9 4-1 遍历Workbooks集合方法 9 4-2 错误处理方法 10 技巧5 禁用宏则关闭工作簿 10 技巧6 关闭工作簿不显示保存对话框 14 6-1 使用Close方法关闭工作簿 14 6-2 单击工作簿关闭按钮关闭工作簿 16 技巧7 禁用工作簿的关闭按钮 16 技巧8 保存工作簿的方法 18 8-1 使用Save方法 18 8-2 直接保存为另一文件名 18 8-3 保存工作簿副本 18 技巧9 保存指定工作表为工作簿文件 19 技巧10 打印预览时不触发事件 21 技巧11 设置工作簿文档属性信息 23 技巧12 不打开工作簿取得其他工作簿数据 24 12-1 使用公式 24 12-2 使用GetObject函数 25 12-3 隐藏Application对象 26 12-4 使用ExecuteExcel4Macro方法 27 12-5 使用SQL连接 28 技巧13 返回窗口的可视区域地址 29 Wordbook（工作簿）对象 工作簿的引用方法 VBA中，在不同的工作簿之间转换需要指定引用的工作簿，通常有下面几种方法。 使用工作簿的名称 工作簿名称是指Excel文件的文件名，可以使用Workbooks集合引用方式来引用工作簿，如下面的代码所示。 #001 Sub WbPath () #002 MsgBox 名称为： Workbooks(工作簿的引用方法.xls).Path #003 End Sub 代码解析： WbPath过程显示工作簿“工作簿的引用方法”的路径。应用于Workbook对象的Path属性将完整路径返回给应用程序expression.Path 参数expression是必需的，一个有效的对象。 运行WbPath过程结果如图 401所示。 图 401 返回完整路径#001 Sub WbName() #002 MsgBox 第一个打开的工作簿名字为： Workbooks(1).Name #003 End Sub 代码解析： WbName过程显示应用程序打开的第一个工作簿的名称。应用于Workbook对象的Name属性返回对象的名称expression.Name 参数expression是必需的，一个有效的对象。 运行WbName过程结果如图 402所示。 图 402 返回Workbook对象的FullName属性，如下面的代码所示。 #001 Sub WbFullName() #002 MsgBox 包括完整路径的工作簿名称为： Workbooks(1).FullName #003 End Sub WbFullName过程显示应用程序打开的第一个工作簿的完整路径和名称。FullName属性返回对象的名称，包括其磁盘路径的字符串此属性等价于在Path属性后加上当前文件系统的分隔符，然后加上Name属性WbFullName过程结果如图 403所示。 图 403 返回包含完整路径的工作簿名称 使用ThisWorkbook 使用ThisWorkbook代表当前宏代码运行的工作簿#001 Sub WbClose() #002 ThisWorkbook.Close SaveChanges:=False #003 End Sub 代码解析： WbThis过程使用Close方法关闭当前宏代码运行的工作簿不保存对工作簿的任何更改Workbook对象的Close方法请参阅技巧45-1。 注意 本属性仅可在 Microsoft Excel内使用。不能使用此属性访问任何其他应用程序的工作簿ActiveWorkbook 使用ActiveWorkbook代表活动窗口（最上面的窗口）的工作簿#001 Sub WbActive() #002 MsgBox 当前活动工作簿名字为： ActiveWorkbook.Name #003 End Sub 代码解析： WbActive过程显示活动工作簿该对象代表活动窗口（最上面的窗口）的工作簿。如果没有打开任何窗口或者活动窗口为信息窗口或剪贴板窗口，则返回 Nothing。WbActive过程结果如图 404所示。 图 404 返回活动工作簿名称 新建工作簿文件 在VBA中使用Add方法新建工作簿，如下面的代码所示。 #001 Sub AddNowb