快捷搜索:   服务器  PHP  安全  IIS  linux 安全

多工作簿合并成一个工作簿 多个EXCEL文件合并成一个EXCEL

工作中经常会遇到从各级经销商或者店铺收回来一堆报表,一个个的文件可能有非常多,我们需要将他们都存到一个文件里面,如果一个个操作那非常影响效率,这里提供一个宏可以将,手动的步骤合并成自动化操作


Sub 多表多文件合并为多表一文件()

Dim FileArray
Dim X As Integer
Application.ScreenUpdating = False
FileArray = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileArray)
Workbooks.Open Filename:=FileArray(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
  MsgBox Err.Description
End Sub


您可能还会对下面的文章感兴趣: