VBA怎么编程序：[3]自动合并多个EXCEL-Excel教程

例如有两个或多个EXCEL文件，我们要把它们合并成一个文件，此文件含有多件工作表，就可以用VBA编个小程序来操作。

前期准备工作（包括相关工具或所使用的原料等）

EXCEL

VBA

详细的操作方法或具体步骤

例如：有5月和6月两个月的工资表，要放到一个EXCEL文件中去。

新建一个汇总表如图：

打开VBA编辑器。

插入一个模块，写入以下代码：

Sub MergeWorkbooks()

Dim FileSet '定义文件组 Dim i As Integer

On Error GoTo 0 Application.ScreenUpdating=False '屏蔽屏幕刷新,进而提高运行速度,但在结尾要重新开启的。

FileSet=Application.GetOpenFilename(FileFilter:="Excel 2003(*.xls),*.xls,Excel 2007(*.xlsx),*.xlsx", _ MultiSelect:=True, Title:="选择要合并的文件") '打开要合并的文件组

If TypeName(FileSet)="Boolean" Then GoTo ExitSub If

For Each Filename In FileSet Workbooks.Open Filename Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) '添加到本EXCEL文件的最后一个SHEET后面 Next

ExitSub: Application.ScreenUpdating=True '恢复屏幕刷新

Sub

执行宏，选择要合并的文件。合并完成

VBA怎么编程序(共6篇)上一篇：工资条批量加表头|下一篇：用宏删除空工作表经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本文系本人依照真实经历原创，未经许可，谢绝转载。