《多个工作簿合并到一个工作簿》由会员分享，可在线阅读，更多相关《多个工作簿合并到一个工作簿（1页珍藏版）》请在金锄头文库上搜索。
1、1. 新建一个工作薄，将其命名为你合并后的名字2. 打开此工作薄3. 工具控件查看代码，调出VBA编辑界面4. 在打开的VBA编辑窗口中粘贴以下代码：（根据需要修改xls或者xlsx）Sub 多表多文件合并为多表一文件()Dim FileArrayDim X As IntegerApplication.ScreenUpdating = FalseFileArray = Application.GetOpenFilename(FileFilter:=Microsoft Excel文件(*.xls),*.xls, MultiSelect:=True, Title:=合并工作薄)X = 1While
2、 X = UBound(FileArray)Workbooks.Open Filename:=FileArray(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler: MsgBox Err.DescriptionEnd Sub5. 关闭VBA编辑窗口6. 在Excel表格界面中，选择“工具-宏“,调出宏界面，选“多表多文件合并为多表一文件”,然后“执行”。选择“运行运行宏“或直接按F5调出宏界面。
