【Excel VBA 编程】自动化实现多个Excel表格数据合并输出到一个Excel文档中

文章目录

引言

问题的分析与设计

VBA打开关闭Excel文件

读取Excel文件内容

Excel文档之间复制粘贴数据

代码入口设计

代码实现

运行结果

回顾总结

引言

工作中为了方便查看和数据分析，我们经常会将很多Excel中的表格合并到一起，手动操作特别的麻烦，这个时候VBA就派上用场了，它可以帮助我们自动合并Excel内容

提前准备测试数据，有若干个待合并的Excel表格，存放路径：C:\Test\测试路径

每个Excel文档中内容不同，显示如下：

现在需要将它们合并后输出到C:\Test\汇总结果.xlsx文档中，来看一下要怎么实现吧

问题的分析与设计

整个功能实现设计到几个知识点，首先是利用VBA打开、关闭指定的Excel文件，其次是读取指定Excel数据，最后才是复制粘贴，内容有点多我们逐个介绍

VBA打开关闭Excel文件

使用Workbooks.Open方法即可，参考如下

Dim wbTarget As Object

Set wbTarget = Workbooks.Open("C:\Test\汇总结果.xlsx")

使用完后，True为保存关闭，False为不保存关闭，根据是情况选择

wbTarget.Close SaveChanges:=True

读取Excel文件内容

针对上一步打开的文档，即wbTarget变量指向新打开的Excel文档，可以通过wbTarget逐层获取该Excel文档对应的Sheet、Range、cells 。

如wbTarget.Sheets(1)，即指向的是第一个Sheet表单，当无法确定第一个Sheet表单的名字时，这种方法很方便，如果确定Sheet表单的名字，也可以使用wbTarget.Worksheets("Sheet1"),到这里是不是就很熟悉了呢？