资源描述:
《《excelvba宏精简二》word版》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、ExcelVBA宏精简二ExcelVBA(宏)精简(二)2010-05-2111:11文件的操作一.新建Workbooks.Add二.打开Workbooks.Open"路径"&"文件名.xls"三.文件打开对话框的使用Application.GetOpenFilename(fileFilter:="Excelfiles(*.xls),*.xls,Allfiles(*.*),*.*")示例:flag=FalseDoWhileNotflag'对话框打开已有Excel文件fm=Application.GetOpenFilen
2、ame(fileFilter:="Excelfiles(*.xls),*.xls,Allfiles(*.*),*.*")IffmFalseThenWorkbooks.OpenfmSetbb=ActiveWorkbook'把bb变量设为当前活动工作簿对象,打开一工作簿时,该工作簿自动为当前活动工作簿flag=TrueEndIfLoop1.2保存与关闭一.保存Workbooks("文件.xls").Save二.另存对话框的使用Application.GetSaveAsFilename(fileFilter:="Excelf
3、iles(*.xls),*.xls,Allfiles(*.*),*.*")示例:flag=FalseDoWhileNotflag'循环要求必须输入文件名或选择文件名fm=Application.GetSaveAsFilename(fileFilter:="Excelfiles(*.xls),*.xls,Allfiles(*.*),*.*")IffmFalseThenactiveworkbook.SaveAsfm'当前活动工作簿另存flag=TrueEndIfLoop三.关闭1.单个文件关闭Workbooks("file
4、name.xls").Close2.所有该Excel程序打开的文件都关闭Workbooks.Close如果文件使用中改动过内容,那么该命令使用时会弹出提示对话框,询问是否保存.如果要想不弹出提示对话框,可以使用第三或第四种文件关闭方法,或者如下示例.示例:关闭工作簿"Book1.xls",但不提示用户保存所作修订."Book1.xls"中的所有修订都不会保存.Application.DisplayAlerts=False'信息警告关闭Workbooks("BOOK1.XLS").CloseApplication.Dis
5、playAlerts=True'信息警告开启四.关闭同时保存Workbooks("filename.xls").Closesavechanges:=True五.关闭同时不保存Workbooks("filename.xls").Closesavechanges:=False六.Excel程序的关闭Application.Quit说明:使用本方法时,如果有未保存的工作簿处于打开状态,则MicrosoftExcel将弹出一个对话框,询问是否要保存所作修改.为防止这一情况出现,可在使用Quit方法前保存所有的工作簿或将Disp
6、layAlerts属性设置为False.如果该属性为False,则MicrosoftExcel退出时,即使存在未保存的工作簿退出,也不会显示对话框,而且不保存就退出.如果将一个工作簿的Saved属性设置为True,但是并没有将其保存到磁盘上,则MicrosoftExcel在退出时不会提示保存该工作簿.七.工作簿的密码保护与撤销保护工作簿使其不至被修改.Workbooks("工作簿名").Protect(Password,Structure,Windows)PasswordVariant类型,可选.为一个字符串,该字符串
7、为工作表或工作簿指定区分大小写的密码.如果省略本参数,不用密码就可以取消对该工作表或工作簿的保护.否则,必须指定密码,通过密码来取消对该工作表或工作簿的保护.如果忘记了密码,就无法取消对该工作表或工作簿的保护.最好在安全的地方保存一份密码及其对应文档名的列表.StructureVariant类型,可选.如果为True,则保护工作簿结构(工作表的相对位置).默认值为False.WindowsVariant类型,可选.如果为True,则保护工作簿窗口.如果省略本参数,则窗口不受保护如:Workbooks("学生档案").p
8、rotect"1234"Workbooks("学生档案").Unprotect(Password)PasswordVariant类型,可选.指定用于解除工作表或工作簿的保护的密码,此密码是区分大小写的.如果工作表或工作簿不设密码保护则忽略本参数.如果对工作表省略此参数,而该工作表又设有密码保护,MicrosoftExcel将提示您