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

有很多网友想明白这款EXCEL的软件相关教程，今天神奇下载软件教程频道编辑给大家送上VBA怎么编程序：[3]自动合并多个EXCEL文章，希望可以对大家有所帮助哦，一起来了解一下吧！

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

工具/原料

<p>&nbsp;EXCEL</p><p>VBA</p>

方法/步骤

例如：有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 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》软件教程全部内容了，希望能够帮到正在学习EXCEL的网友！想要了解更多EXCEL软件文章，尽在神奇下载!！

相关文章

excel怎么固定住表头_如何把excel表头固定不动

怎样在Excel中插入函数《IF函数002》

Excel2010创建迷你图(excel2010迷你图创建在哪里)

怎样在Excel中插入函数《ROUND函数》

使用Excel求两列的交集(excel两列数据不同)

Excel教程：如何在Excel中自动生成人民币大写

excel打印如何使用自定義的紙張(EXCEL如何自定义公式)

怎样在Excel中插入函数《SUM函数002》

Excel2010创建图表(excel2010创建图表时要打开)

EXCEL如何制作控件动态图表(excel制作条形码控件是哪一个)