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

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

阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/yunyunyx/article/details/80344508
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭