把当前文件夹的xlsx或xls文件合并到一个excel文件中的不同sheet中步骤如下：

• 把需要合并的文件放到同一个文件夹

• 在该文件夹中新建一个excel文件

• 打开新建的excel问价，把鼠标放到sheet那，右键鼠标，选择“查看代码”

• 在代码框输入下面的代码

Private Sub copy_csvfile_to_excel()Dim mPath$, mFile$, AK As Workbook   Application.ScreenUpdating = False   mPath = ThisWorkbook.Path & "\"   mFile = Dir(mPath & "*.xls")   Do While mFile <> ""      If mFile <> ThisWorkbook.Name Then         Set AK = Workbooks.Open(mPath & mFile)         AK.Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)         Workbooks(mFile).Close         End If      mFile = Dir      Set AK = Nothing    Loop   Application.ScreenUpdating = True   ActiveWorkbook.Save   MsgBox "汇总完成！", 64, "提示"End Sub

然后就等它自动汇总就可以啦！