今天遇到这么一个问题,需要将多个Excel表格中的数据汇总表,合并在一个Excel中,并且显示一致。
因此编写了以下代码来解决这个问题,
1.在Excel中按Alt+F11,快速调出命令控制台
2.工具栏选择插入——模块——将以下脚本代码复制进去,按F5立即运行,即可完成。
Sub 合并工作簿()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="", MultiSelect:=True, Title:="请选择需要合并的工作簿")
X = 1
If TypeName(FileOpen) = "Boolean" Then
MsgBox "未选择任何文件, 退出."
Exit Sub
End If
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
MsgBox "处理已完成"
Exit Sub
errhadler:
MsgBox Err.Description
End Sub