最新VBAExcel工作表代码总结.doc

《最新VBAExcel工作表代码总结.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、__________________________________________________工作表增加工作表1、添加工作表Sheets.Add2、在最后工作表后添加新工作表　　Sheets.Addafter:=Sheets(Sheets.Count)3、在第1工作表前添加新工作表Sheets.Addbefore:=Sheets(1)4、在第五个工作表之后添加三个Worksheets.Addafter:=Worksheets(5),Count:=3删除工作表5、删除工作表1Sheets(“sheet1”).Delete或Sheets(1).D

2、elete6、删除当前工作表ActiveWindow.SelectedSheets.Delete或ActiveSheet.Delete7、删除工作表1Sheets(“sheet1”).Delete或Sheets(1).Delete显示隐藏工作表8、隐藏SHEET1这张工作表　sheets("sheet1").Visible=False9、显示SHEET1这张工作表　　sheets("sheet1").Visible=True10、深度隐藏工作表Sheet1.Visible=211、显示工作表Sheet1.Visible=-1工作表名字/命名12、获

3、取工作表i的名称ActiveWorkbook.Sheets(i).Name13、当前工作表命名ActiveSheet.Name="www"14、Sheets(Sheet1).Name=“Sum”'将Sheet1命名为Sum15、返回活动工作表的名称Application.ActiveSheet.Name16、返回活动窗口的标题Application.ActiveWindow.Caption17、返回活动工作簿的名称Application.ActiveWorkbook.Name关闭/保存工作表18、将该表格保存到C:test.xls目录ExcelS

4、heet.SaveAs"C:TEST.XLS"19、关闭同时保存Workbooks("filename.xls").Closesavechanges:=True20、关闭同时不保存Workbooks("filename.xls").Closesavechanges:=False21、不保存直接关闭当前的工作簿Workbooks("BOOK1.XLS").Close SaveChanges:=False22、不保存直接关闭EXCEL窗口(关闭所有的工作簿)的VBA语句Application.DisplayAlerts = False    Appl

5、ication.Quit选择工作表23、同时选择工作表1和工作表2Worksheets(Array(“sheet1”,”sheet2”)).Select24、选定下（上）一个工作表sheets(activesheet.index-1).selectsheets(activesheet.index+1).select移动工作表25、ActiveSheet.MoveAfter:=ActiveWorkbook._ Sheets(ActiveWorkbook.Sheets.Count)'将当前工作表移至工作表的最后文件(夹)操作26、建立文件夹的方法MkD

6、ir"D:Music"27、打开文件夹的方法ActiveWorkbook.FollowHyperlinkAddress:="D:Music",NewWindow:=True收集于网络，如有侵权请联系管理员删除__________________________________________________28、删除一个文件kill"c:1.txt"29、退出EXCELApplication.Quit保护工作表30、保护工作表使其不至被修改。Sheets(“工作表名”).Protect(Password)31、撤销工作表保护使其被修改。She

7、ets(“工作表名”).Unprotect(Password)示例：Sheets(“sheet1”).Protect“123456”Sheets(“sheet1”).Unprotect“123456”32、格式＿工作表不能重命名  Application.CommandBars("Sheet").Controls(1).Enabled=False33、取消工作表标签 ActiveWindow.DisplayWorkbookTabs=False34、右键菜单不能重命名 Application.CommandBars.FindControl(ID:=8

8、89).Enabled=False35、工作表加密Worksheets（″基础数据表″）.ProtectPassword: