《excelvba宏精简二》word版

《excelvba宏精简二》word版

ID:30364861

大小:87.51 KB

页数:12页

时间:2018-12-29

《excelvba宏精简二》word版_第1页
《excelvba宏精简二》word版_第2页
《excelvba宏精简二》word版_第3页
《excelvba宏精简二》word版_第4页
《excelvba宏精简二》word版_第5页
资源描述:

《《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将提示您

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。