1、打开文件
Workbooks.Open (FilePath1) 'FilePath1为绝对路径加文件名
2、切换已经打开的文件
Windows(Filename).Activate 'Filename为文件名而已
3、选择当前excel文件的某个sheet
Sheets(sheetname).Select 'sheetname为工作蒲的名字
4、选择某一行
Rows("3:3").Select
5、把当前行设置为筛选
Selection.AutoFilter
6、取消隐藏
Cells.Select
Selection.EntireColumn.Hidden = False
7、删除一行
Rows("1:1").Select
Selection.Delete Shift:=xlUp
8、对指定行进行筛选
'筛选,除空白
ActiveSheet.Range("$A$2:$CH$183").AutoFilter Field:=i, Criteria1:="<>"
9、保存文件
ActiveWorkbook.SaveAs Filename:=FilePath2 & "2014年4月" & name & "绩效得分.xls"
10、插入一行
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove