vba_excel工作表代码总结

《vba_excel工作表代码总结》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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).Delete6、删除当前工作表ActiveWindow.Selected

2、Sheets.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、获取工作表i的名称ActiveWorkbo

3、ok.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目录ExcelSheet.

4、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 = Fal

5、se    Application.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)'将当前工作表移至工作表

6、的最后文件(夹)操作26、建立文件夹的方法MkDir"D:Music"27、打开文件夹的方法ActiveWorkbook.FollowHyperlinkAddress:="D:Music",NewWindow:=True28、删除一个文件kill"c:1.txt"29、退出EXCELApplication.Quit保护工作表30、保护工作表使其不至被修改。Sheets(“工作表名”).Protect(Password)31、撤销工作表保护使其被修改。Sheets(“工作表名”).Unprotect(Passwor

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

8、lse35、工作表加密Worksheets（″基础数据表″）.ProtectPassword:="1234"36、保护工作簿ActiveSheet.Protect37、取消保护工作簿ActiveSheet.Unprotect其他属性38、获取活动工作薄中工作表数ActiveWorkbook.Sheets.Count39、当前工作表