把当前文件夹的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

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