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

来源：互联网 2023-02-20 19:37:53 497

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

工具/原料

 EXCEL/
VBA/

方法/步骤

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

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

新建一个汇总表如图：

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

打开VBA编辑器。

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

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

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 End If

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

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

End Sub

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