【VBA】合并多个excel文件

From http://www.zhihu.com/question/20366713

VBA代码如下：

 Sub 工作薄间工作表合并()

 Dim FileOpen
 Dim X As Integer
 Application.ScreenUpdating = False
 FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")
 X =
 While X <= UBound(FileOpen)
 Workbooks.Open Filename:=FileOpen(X)
 Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
 X = X +
 Wend
 ExitHandler:
 Application.ScreenUpdating = True
 Exit Sub

 errhadler:
 MsgBox Err.Description
 End Sub