VBA_Excel工作表代码总结.docVIP

工作表 增加工作表 1、添加工作表 Sheets.Add 2、在最后工作表后添加新工作表　　Sheets.Add after:=Sheets(Sheets.Count) 3、在第1工作表前添加新工作表 Sheets.Add before:=Sheets(1) 4、在第五个工作表之后添加三个 Worksheets.Add after:=Worksheets(5), Count:=3 删除工作表 5、删除工作表1 Sheets(“sheet1”).Delete或 Sheets(1).Delete 6、删除当前工作表 ActiveWindow.Selected Sheets.Delete 或ActiveSheet.Delete 7、删除工作表1 Sheets(“sheet1”).Delete或 Sheets(1).Delete 显示隐藏工作表 8、隐藏SHEET1这张工作表 　sheets("sheet1").Visible=False 9、显示SHEET1这张工作表　　sheets("sheet1").Visible=True 10、深度隐藏工作表 Sheet1.Visible = 2 11、显示工作表 Sheet1.Visible = -1 工作表名字/命名 12、获取工作表i的名称 ActiveWorkbook.Sheets(i).Name 13、当前工作表命名 ActiveSheet.Name = "www" 14、Sheets(Sheet1).Name= “Sum” '将Sheet1命名为Sum 15、返回活动工作表的名称 Application.ActiveSheet.Name 16、返回活动窗口的标题 Application.ActiveWindow.Caption 17、返回活动工作簿的名称 Application.ActiveWorkbook.Name 关闭/保存工作表 18、将该表格保存到C:\test.xls 目录 ExcelSheet.SaveAs "C:\TEST.XLS" 19、关闭同时保存 Workbooks("filename.xls").Close savechanges:=True 20、关闭同时不保存 Workbooks("filename.xls").Close savechanges:=False 21、不保存直接关闭当前的工作簿 Workbooks("BOOK1.XLS").Close?SaveChanges:=False 22、不保存直接关闭EXCEL窗口(关闭所有的工作簿)的VBA语句 Application.DisplayAlerts?=?False ????Application.Quit 选择工作表 23、同时选择工作表1和工作表2 Worksheets(Array(“sheet1”,”sheet2”)).Select 24、选定下（上）一个工作表 sheets(activesheet.index-1).select sheets(activesheet.index+1).select 移动工作表 25、ActiveSheet.Move After:=ActiveWorkbook. _Sheets(ActiveWorkbook.Sheets.Count) '将当前工作表移至工作表的最后 文件(夹)操作 26、建立文件夹的方法 MkDir "D:\Music" 27、打开文件夹的方法 ActiveWorkbook.FollowHyperlink Address:="D:\Music", NewWindow:=True 28、删除一个文件 kill "c:\1.txt" 29、退出EXCEL Application.Quit 保护工作表 30、保护工作表使其不至被修改。 Sheets(“工作表名 ”).Protect (Password) 31、撤销工作表保护使其被修改。Sheets(“工作表名 ”).Unprotect (Password) 示例： Sheets(“sheet1”).Protect “123456” Sheets(“sheet1”).Unprotect “123456” 32、格式＿工作表不能重命名? ?Application.CommandBars("Sheet").Controls(1).Enabled= False 33、取消工作表标签 ?ActiveWindow.DisplayWorkbookTabs = False 34、右键菜单不能重命名? Application.Comman