工作表增加工作表1、添加工作表 Sheets.Add2、在最后工作表后添加新工作表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).Delete6、删除当前工作表 ActiveWindow.Selected Sheets.Delete或ActiveSheet.Delete7、删除工作表1 Sheets(“sheet1”).Delete或 Sheets(1).Delete显示隐藏工作表8、隐藏SHEET1这张工作表sheets("sheet1").Visible=False9、显示SHEET1这张工作表sheets("sheet1").Visible=True10、深度隐藏工作表 Sheet1.Visible = 211、显示工作表 Sheet1.Visible = -1工作表名字/命名12、获取工作表i的名称 ActiveWorkbook.Sheets(i).Name13、当前工作表命名 = "www"14、Sheets(Sheet1).Name= “Sum” '将Sheet1命名为Sum15、返回活动工作表的名称 16、返回活动窗口的标题 Application.ActiveWindow.Caption17、返回活动工作簿的名称 关闭/保存工作表18、将该表格保存到C:\test.xls 目录 ExcelSheet.SaveAs "C:\TEST.XLS"19、关闭同时保存 Workbooks("filename.xls").Close savechanges:=True20、关闭同时不保存 Workbooks("filename.xls").Close savechanges:=False21、不保存直接关闭当前的工作簿Workbooks("BOOK1.XLS").Close SaveChanges:=False22、不保存直接关闭EXCEL窗口(关闭所有的工作簿)的VBA语句Application.DisplayAlerts = False Application.Quit选择工作表23、同时选择工作表1和工作表2 Worksheets(Array(“sheet1”,”sheet2”)).Select24、选定下（上）一个工作表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:=True28、删除一个文件 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、格式＿工作表不能重命名mandBars("Sheet").Controls(1).Enabled= False33、取消工作表标签ActiveWindow.DisplayWorkbookTabs = False34、右键菜单不能重命名mandBars.FindControl(ID:=889).Enabled = False35、工作表加密 Worksheets（″基础数据表″）.Protect Password:="1234"36、保护工作簿 ActiveSheet.Protect37、取消保护工作簿 ActiveSheet.Unprotect其他属性38、获取活动工作薄中工作表数ActiveWorkbook.Sheets.Count39、当前工作表中已使用的行数 edRange.Rows.Count40、获取工作表的行数(注：考虑向前兼容性)Rows.Count ‘41、取消工作表标签 ActiveWindow.DisplayWorkbookTabs = False42、切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines43、切换工作表中的行列边框显示ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings44、删除当前工作表中所有的条件式edRange.FormatConditions.Delete45、将页面设置更改为横向 ActiveSheet.PageSetup.Orientation=xlLandscape或ActiveSheet.PageSetup.Orientation=232、在页面设置的表尾中输入文件路径ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName33、将用户名放置在活动工作表的页脚ActiveSheet.PageSetup.LeftFooter=erName34、两个关键字排序，相邻两列，B列为主关键字，A列为次关键字，升序排列ActiveSheet.Range("A:B").Sort Key1:=Columns("B"), Key2:=Columns("A"), _ Header:=xlYes35、开启数据记录单 ActiveS heet.ShowDataForm工作簿1、增加一个工作簿Workbooks.Add2、删除当前工作簿Activesheet.delete3、关闭当前工作簿ActiveWindow.Close4、打开一个工作簿Workbooks.Open FileName:="C:\My Documents\Book2.xls"Workbooks.Open "路径\" & "文件名.xls5、保存工作簿ThisWorkbook.Save6、返回当前工作簿的名称7、返回工作簿代码的名称ActiveWorkbook.CodeName ThisWorkbook.CodeName8、返回当前工作簿路径和名称ThisWorkbook.FullName9、返回当前工作簿的路径(注:若未保存,则为空) ThisWorkbook.Path ActiveWorkbook.Path8、给当前工作簿改名为"liu" = "liu"9、以某一单元格中的值为文件名保存ActiveWorkbook.SaveCopyAs Str(Range("Sheet1!A1")) + ".xls"10、禁止调整活动工作簿的大小ActiveWindow.EnableResize=False11、将工作簿以平铺方式排列Application.Window.Arrange xlArrangeStyleTiled ‘12、将当前工作簿最大化ActiveWorkbook.WindowState=xlMaximized ‘13、以本工作表名称另存文件到当前目录ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & & ".xls"14、定制自己的状态栏Application.StatusBar = "现在时刻: " & Time15、恢复自己的状态栏Application.StatusBar = false16、关闭屏幕更新Application.ScreenUpdate=False17、打开屏幕刷新Application.ScreenUpdating=True18、将文本写到状态栏Application.StatusBar=”请等待……”19、更新状态栏文本，以变量Percent代表完成的百分比Application.StatusBar=”请等待……”& Percent & “% Completed”20、Excel程序的关闭Application.Quit21、关闭Excel的警告提示。

Application.DisplayAlerts = False22、全屏显示Application.DisplayFullScreen = True23、将状态栏重新设置成正常状态Application.StatusBar=False24、去掉XLS文件头上菜单栏的“MIcrosoft EXCEL ”字样Application.Caption = "专用表格"25、设置15 秒后运行my_Procedure 过程，从现在开始计时。

Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"26、设定my_Procedure 这个宏在下午5 点开始执行。

Application.OnTime TimeValue("17:00:00"), "my_Procedure"。