(1) Option Explicit ‘强制对模块内所有变量进行声明
(2) Option Base 1 ‘指定数组的第一个下标为1
(3) On Error Resume Next ‘忽略错误继续执行VBA代码,避免出现错误消息
(4) On Error GoTo 100 ‘当错误发生时跳转到过程中的某个位置
(5) On Error GoTo 0 ‘恢复正常的错误提示
(6) Application.DisplayAlerts=False ‘在程序执行过程中使出现的警告框不显示
(7) Application.DisplayAlerts=True ‘在程序执行过程中恢复显示警告框
(8) Application.ScreenUpdating=False ‘关闭屏幕刷新
(9) Application.ScreenUpdating = True ‘打开屏幕刷新
(10) Workbooks.Add() ‘创建一个新的工作簿
(11) Workbooks(“book1.xls”).Activate ‘激活名为book1的工作簿
(12) ThisWorkbook.Save ‘保存工作簿
(13) ThisWorkbook.close ‘关闭当前工作簿
(14) ActiveWorkbook.Sheets.Count ‘获取活动工作薄中工作表数
(15) ActiveWorkbook.name ‘返回活动工作薄的名称
(16) ThisWorkbook.Name ‘返回当前工作簿名称
(17) ThisWorkbook.FullName ‘返回当前工作簿路径和名
(18) ActiveSheet.UsedRange.Rows.Count ‘当前工作表中已使用的行数
(19) Rows.Count ‘获取工作表的行数(注:考虑兼容性)
(20) Sheets(Sheet1).Name= “Sum” ‘将Sheet1命名为Sum
(21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) ‘添加一个新工作表在第一工作表前
(22) ActiveSheet.Move After:=ActiveWorkboo