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

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

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