合并多个 EXCEL文件到同一 EXCEL文件不同工作表文件添加以下宏代码Sub 合并多个 EXCEL()Dim FilesToOpen, ftDim x As IntegerApplication.ScreenUpdating = FalseOn Error GoTo errhandlerFilesToOpen = Application.GetOpenFilename _(FileFilter:=“Micrsofe Excel 文件(*.xls), *.xls“, _MultiSelect:=True, Title:=“要合并的文件“)If TypeName(FilesToOpen) = “boolean“ ThenMsgBox “没有选定文件“GoTo errhandlerEnd Ifx = 1While x = UBound(FilesToOpen)Set wk = Workbooks.Open(Filename:=FilesToOpen(x)wk.Sheets().Move after:=ThisWorkbook.Sheets _(ThisWorkbook.Sheets.Count)x = x + 1WendMsgBox “合并成功完成！“errhandler:MsgBox Err.DescriptionResume errhandlerEnd Sub
