工作表
增加工作表
1
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 
或
7、vba排序函数sort用法删除工作表1    Sheets(“sheet1”).Delete或 Sheets(1).Delete
显示隐藏工作表
8、隐藏SHEET1这张工作表  　sheets("sheet1").Visible=False
9、显示SHEET1这张工作表  sheets("sheet1").Visible=True
10、isible = 2
11、显示工作表  Sheet1.Visible = -1
工作表名字/命名
12、获取工作表i的名称 s(i).Name
13、当前工作表命名    ActiveSheet.Name = "www"
14、Sheets(Sheet1).Name= “Sum” '将Sheet1命名为Sum
15、返回活动工作表的名称    Application.ActiveSheet.Name
16、返回活动窗口的标题    Application.ActiveWindow.Caption
17、
关闭/保存工作表
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语句
 = False         
选择工作表
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、wHyperlink Address:="D:\Music", NewWindow:=True
28、删除一个文件  kill "c:\1.txt"
29
保护工作表
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.CommandBars.FindControl(ID:=889).Enabled = False
35、工作表加密  Worksheets（″基础数据表″）.Protect Password:="1234"
36、保护工作簿  ActiveSheet.Protect
37
其他属性
38、获取活动工作薄中工作表数ActiveWorkbook.Sheets.Count
39、当前工作表中已使用的行数 ActiveSheet.UsedRange.Rows.Count
40、获取工作表的行数(注：考虑向前兼容性)Rows.Count ‘
41、取消工作表标签      ActiveWindow.DisplayWorkbookTabs = False
42、切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮
ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines
43、切换工作表中的行列边框显示
ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings
44、删除当前工作表中所有的条件式
45、将页面设置更改为横向 ActiveSheet.PageSetup.Orientation=xlLandscape
或ActiveSheet.PageSetup.Orientation=2
32、在页面设置的表尾中输入文件路径
ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName
33、将用户名放置在活动工作表的页脚
ActiveSheet.PageSetup.LeftFooter=Application.UserName
34、两个关键字排序，相邻两列，B列为主关键字，A列为次关键字，升序排列ActiveSheet.Range("A:B").Sort Key1:=Columns("B"), Key2:=Columns("A"), _  Header:=xlYes
35、开启数据记录单    ActiveS heet.ShowDataForm

工作簿
1、增加一个工作簿  Workbook
2、删除当前工作簿  A
3
4、打开一个工作簿  Workbooks.Open FileName:="C:\My Documents\Book2.xls"
                    Workbooks.Open "路径 \" & "文件名 .xls
5、保存工作簿  ThisWorkbook.Save
ActiveWorkbook.name
ThisWorkbook.Name
8、返回当前工作簿路径和名称ThisWorkbook.FullName
9、返回当前工作簿的路径(注:若未保存,则为空)  ThisWorkbook.Path ActiveWorkbook.Path
8、给当前工作簿改名为 "liu"  ActiveSheet.Name = "liu"
9、以某一单元格中的值为文件名保存 
      ActiveWorkbook.SaveCopyAs Str(Range("Sheet1!A1")) + ".xls"
10、禁止调整活动工作簿的大小  ActiveWindow.EnableResize=False
11、将工作簿以平铺方式排列 Application.Window.Arrange xlArrangeStyleTiled ‘
12、将当前工作簿最大化 ActiveWorkbook.WindowState=xlMaximized ‘
13、以本工作表名称另存文件到当前目录
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xls"
14、定制自己的状态栏  Application.StatusBar = "现在时刻: " & Time
15、恢复自己的状态栏    Application.StatusBar = false
16、关闭屏幕更新  Application.ScreenUpdate=False
17、打开屏幕刷新    Application.ScreenUpdating=True
18、将文本写到状态栏  Application.StatusBar=”请等待……”
19、更新状态栏文本，以变量Percent代表完成的百分比  Application.StatusBar=”请等待……” & Percent & “% Completed”
20、Excel程序的关闭  Application.Quit 
21、关闭Excel的警告提示。  　Application.DisplayAlerts = False
22、全屏显示    Application.DisplayFullScreen = True
23、将状态栏重新设置成正常状态 
  Application.StatusBar=False
24、去掉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"

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。