多个Excel合并为一个Excel表

多个Excel合并为一个Excel表

使用方法记录：
1、新建一个Excel表格，另存为带宏的工作薄，后缀为xlsm，名为“汇总.xlsm”。
2、打开这个汇总文件，保留sheet1，删除sheet2和sheet3。
3、按“Alt + F11”快捷键，进入宏代码编辑界面，双击左侧sheet1，进入代码编辑窗口。
4、将以下VBA宏代码复制到代码编辑窗中。
注意：(*.xls),*.xls格式为所对应表格后缀格式，xls可以修改为其他格式，如xlsx。

VBA宏代码

合并多个EXCEL文件到一个EXCEL文件不同工作表文件。
把下列内容复制到宏,而后执行宏,选择所有需要合并的文件即可。下面为VBA宏代码：

Sub 合并多个EXCEL()
Dim filestoopen, ft
Dim x As Integer
Application.ScreenUpdating = False
On Error GoTo errhandler
filestoopen = Application.GetOpenFilename(filefilter:="micrsofe excel文件(*.xls),*.xls", MultiSelect:=True, Title:="要合并的文件")
If TypeName(filestoopen) = "boolean" Then
MsgBox "没有选定文件"
'goto errhandler
End If
x = 1
While x <= UBound(filestoopen)
Set wk = Workbooks.Open(Filename:=filestoopen(x))
wk.Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
MsgBox "合并成功完成!"
errhandler:
'msgbox err.description
'resume errhandler
End Sub

结束代码