Sub main() Dim wk As Workbook Dim wb As Workbook Dim i As Long With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .Filters.Clear .Filters.Add "Excel表格", "*.xls*" If .Show = -1 Then Set wb = Workbooks.Add For i = 1 To .SelectedItems.Count Set wk = Workbooks.Open(.SelectedItems(i)) wk.Worksheets(1).Copy after:=wb.Worksheets(wb.Worksheets.Count) wk.Close False Next i End If End With End Sub