由于工作的需要，有时候我们需要将多个工作薄合并成为一个，但是EXCEL本身无此类功能，需要使用VBA才能完成，本文给出示例代码，希望对您有所帮助。

　　功能：合并多个Excel工作薄文件

　　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 "没有选定文件"
　　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:
　　End Sub