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

2024年6月7日 58次阅读 来源: yunyunyx

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

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

    原文作者：yunyunyx
    原文地址: https://blog.csdn.net/yunyunyx/article/details/80344508
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞