VBA快速上手-常用对象之使用.docVIP

VBA快速上手-常用对象之使用 VBA快速上手－常用对象之使用 第一节 文件的操作 1) Excel 文件 1.1 新建与打开 一.新建 Workbooks.Add 二.打开 Workbooks.Open 路径\ 文件名.xls 三.文件打开对话框的使用 Application.GetOpenFilename(fileFilter:=Excel files(*.xls),*.xls,All files (*.*),*.*) 示例: flag = False Do While Not flag 对话框打开已有Excel 文件 fm = Application.GetOpenFilename(fileFilter:=Excel files(*.xls),*.xls, All files (*.*),*.*) If fm False Then Workbooks.Open fm Set bb = ActiveWorkbook 把bb 变量设为当前活动工作簿对象,打开一工作簿时,该工作簿自动为当前活动工作簿 flag = True End If Loop 1.2 保存与关闭 一.保存 Workbooks(文件.xls).Save 二.另存对话框的使用 Application.GetSaveAsFilename(fileFilter:=Excel files (*.xls),*.xls,All files (*.*),*.*) 示例: flag = False Do While Not flag 循环要求必须输入文件名或选择文件名 fm = Application.GetSaveAsFilename(fileFilter:=Excel files (*.xls),*.xls,All files (*.*),*.*) If fm False Then activeworkbook.SaveAs fm 当前活动工作簿另存 flag = True End If Loop 三.关闭 1.单个文件关闭 Workbooks(filename.xls).Close 2.所有该Excel 程序打开的文件都关闭 Workbooks.Close 如果文件使用中改动过内容, 那么该命令使用时会弹出提示对话框, 询问是否保存. 如果要想不弹出提示对话框,可以使用第三或第四种文件关闭方法, 或者如下示例. 示例: 关闭工作簿“Book1.xls”，但不提示用户保存所作修订。“Book1.xls”中的所有修订都不 会保存。 Application.DisplayAlerts = False 信息警告关闭 Workbooks(BOOK1.XLS).Close Application.DisplayAlerts = True 信息警告开启 四.关闭同时保存 Workbooks(filename.xls).Close savechanges:=True 五.关闭同时不保存 Workbooks(filename.xls).Close savechanges:=False 六.Excel 程序的关闭 Application.Quit 说明: 使用本方法时，如果有未保存的工作簿处于打开状态，则 Microsoft Excel 将弹出一个对话 框，询问是否要保存所作修改。 为防止这一情况出现，可在使用 Quit 方法前保存所有的工作簿或将 DisplayAlerts 属性设 置为 False。如果该属性为 False，则 Microsoft Excel 退出时，即使存在未保存的工作簿 退出，也不会显示对话框，而且不保存就退出。如果将一个工作簿的 Saved 属性设置为 Tr ue，但是并没有将其保存到磁盘上，则 Microsoft Excel 在退出时不会提示保存该工作簿。 七.工作簿的密码保护与撤销 保护工作簿使其不至被修改。 Workbooks(“工作簿名”).Protect (Password, Structure, Windows) Password Variant 类型，可选。为一个字符串，该字符串为工作表或工作簿指定区分大小写的密码。如 果省略本参数，不用密码就可以取消对该工作表或工作簿的保护。否则，必须指定密码，通过密码来取消 对该工作表或工作簿的保护。如果忘记了密码，就无法取消对该工作表或工作簿的保护。最好在安全的地 方保存一份密码及其对应文档名的列表。 Structure Variant 类型，可选。如果为 True，则保护工作簿结构（工作表的相对位置）。默认值为 False。 Windows Variant 类型，可选