Sub 工作簿合并()
Dim FileSet
Dim i As Integer
Dim bookName As String
On Error GoTo 0
Application.ScreenUpdating = False
bookName = ActiveWorkbook.Name
FileSet = Application.GetOpenFilename(FileFilter:="Microsoft Excel Files, *.xls*", _
MultiSelect:=True, Title:="选择要合并的文件")
If TypeName(FileSet) = "Boolean" Then
MsgBox "没有文件被选中!"
Exit Sub
End If
For Each Filename In FileSet
Workbooks.Open Filename
' Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Sheets().Move After:=Workbooks(bookName).Sheets(Workbooks(bookName).Sheets.Count)
Next
ExitSub:
Application.ScreenUpdating = True
End Sub