excel文件宏处理方法.doc

《excel文件宏处理方法.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、录制宏可以解决这个问题。准备工作：确保这些要处理的excel文件的名称是有规律的，比如Book1.xls；Book2.xls;Book3.xls；Book4.xls；Book5.xls；...新建一个excel文件Book0.xls单击菜单“工具”－“宏”－“录制新宏”单击“确定”按纽开始录制单击“文件”－“打开”，打开一个excel文件Book1.xls，把“ABCDGH”选中，用右键删除整列。关闭该文件，记得保存。停止录制。到这一步就录制好一个模版了，但这样没有批量处理功能，下面就来添加。单击菜单“工具”－“

2、宏”－“宏”这时你刚才录制的宏应该在其中，选中它，单击编辑按纽，现在的代码如下：'----------------Workbooks.OpenFilename:="D:excelBook1.xls"'作为示例的工作表的路径Range("A:A,B:B,C:C,D:D,G:G,H:H").Select'选中要删除的列Selection.DeleteShift:=xlToLeft'删除ActiveWorkbook.Save'保存ActiveWindow.Close'关闭'----------------下面加个循

3、环功能'----------------DimiColAsIntegerForiCol=1To100'根据自己的实际情况修改，这里表示文件的名称是从Book1.xls到Book100.xlsWorkbooks.OpenFilename:="D:excelBook"&CStr(iCol)&".xls"'关键，循环一次改变一次文件名Range("A:A,B:B,C:C,D:D,G:G,H:H").SelectSelection.DeleteShift:=xlToLeftActiveWorkbook.SaveAct

4、iveWindow.CloseNextiColEndSub'----------------如果文件名规律不对，可以用ACDSee之类可以批量重命名的软件修改一下。最后，保存修改好的宏，单击“运行子过程/用户窗体”按纽执行。执行前记得把原excel文件做个备份。%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%SubMacro1()''Macro1Macro'宏由雨林木风录制，时间:2010-9-3''DimiColAsIntegerForiCol=40To170'

5、循环条件Workbooks.OpenFilename:="D:csv"&CStr(iCol)&".csv"'打开文件，icol代表文件中的数字Columns("K:K").SelectSelection.CutColumns("A:A").SelectActiveSheet.PasteColumns("E:E").SelectSelection.CutColumns("B:B").SelectActiveSheet.PasteColumns("D:D").SelectSelection.CutColumns(

6、"C:C").SelectActiveSheet.PasteColumns("D:K").SelectSelection.ClearContentsActiveWorkbook.SaveActiveWindow.CloseNextiColEndSub