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

新建一个工作薄，将其命名为你合并后的名字 打开此工作薄 工具—控件—查看代码，调出VBA编辑界面 在打开的VBA编辑窗口中粘贴以下代码：（根据需要修改xls或者xlsx） Sub 多表多文件合并为多表一文件() Dim FileArray Dim X As Integer Application.ScreenUpdating = False FileArray = Application.GetOpenFilename(FileFilter:=Microsoft Excel文件(*.xls),*.xls, MultiSelect:=True, Title:=合并工作薄) X = 1 While X = UBound(FileArray) Workbooks.Open Filename:=FileArray(X) Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) X = X + 1 Wend ExitHandler: Application.ScreenUpdating = True Exit Sub errhadler: ? ?MsgBox Err.Description End Sub 关闭VBA编辑窗口 在Excel表格界面中，选择“工具--宏“,调出宏界面，选“多表多文件合并为多表一文件”,然后“执行”。 选择“运行—运行宏“或直接按F5调出宏界面。