多工作簿合并成一个工作簿 多个EXCEL文件合并成一个EXCEL
工作中经常会遇到从各级经销商或者店铺收回来一堆报表，一个个的文件可能有非常多，我们需要将他们都存到一个文件里面，如果一个个操作那非常影响效率，这里提供一个宏可以将，手动的步骤合并成自动化操作
Sub 多表多文件合并为多表一文件()
Dim FileArrayDim 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
顶(3)
踩(0)
- 最新评论