VBA代码:
Sub merge()
Dim FileSet
Dim i As Integer
Dim filename
On Error GoTo 0
Application.ScreenUpdating = False
FileSet = Application.GetOpenFilename(FileFilter:="Excel 2003(*.xls),*.xls,Excel 2007-2013(*.xlsx),*.xlsx", MultiSelect:=True, Title:="选择需要合并的文件")
If TypeName(FileSet) = "Boolean" Then
GoTo ExitSub
End If
For Each filename In FileSet
Workbooks.Open filename
Sheets().Move after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next
ExitSub:
Application.ScreenUpdating = True
End Sub