多个工作簿合并到一个工作簿.doc

《多个工作簿合并到一个工作簿.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1.新建一个工作薄，将其命名为你合并后的名字2.打开此工作薄3.工具—控件—查看代码，调出VBA编辑界面4.在打开的VBA编辑窗口中粘贴以下代码：（根据需要修改xls或者xlsx）Sub多表多文件合并为多表一文件()DimFileArrayDimXAsIntegerApplication.ScreenUpdating=FalseFileArray=Application.GetOpenFilename(FileFilter:="MicrosoftExcel文件(*.xls),*.xls",MultiSelect:=True,Title:="合并工作薄")X=1WhileX<=UBo

2、und(FileArray)Workbooks.OpenFilename:=FileArray(X)Sheets().MoveAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X=X+1WendExitHandler:Application.ScreenUpdating=TrueExitSuberrhadler:  MsgBoxErr.DescriptionEndSub5.关闭VBA编辑窗口6.在Excel表格界面中，选择“工具--宏“,调出宏界面，选“多表多文件合并为多表一文件”,然后“执行”。选择“运行—运行宏“或直接按F

3、5调出宏界面。