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