多個excel文件合並成一個excel文件里的多個sheet

新建一個工作表，命名后保存到和與合並的N個文件同一個文件文件夾，按 alt + f11,雙擊工程資源管理器里面的sheet1(sheet1),在右側的代碼區粘貼如下代碼。運行。等候一會就OK了。

宏：多個文件表合到一個文件表的多個SHEET中

Sub CombineWorkbooks()
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