VBA代码解决方案第147讲：如何实现多个文档的合并

点击上面蓝色字体关注公众号

大家好，我们今日继续讲解VBA代码解决方案的第147讲内容：如何实现多个文档的合并。这一讲是VBA代码解决方案的最后一讲内容了，其实关于WORD中利用VBA的内容还很多，余下的内容就不再这里讲了。这套方案基本上覆盖了整个VBA相关内容的大多数的知识点，VBA作为一种寄生的语言毕竟有着自己的局限性，如果能熟练掌握本套方案的内容，对于工作中遇到的问题基本上能做到得心应手，余下的就是自己提高的过程了。好了，还是回到我们这讲的内容，如果合并多个文档。
日常办公中，合并文档是经常需要处理的，当文件数量较少、文件体积较小时可以轻松应对，但当文件数量较多、文件体积较大时，操作起来就要花费大量的时间和精力，而且很容易出错。比如，每年年末，公司所有员工都要交工作总结，人事部门需要将某部门的总结汇总到一个文件里，以便向总经理汇报。这时就可以借助VBA实现文件的批量操作，大大提高办公效率和准确性。
那么如何利用VBA进行文档的合并呢？首先，我们把所有需要合并的文件都在同一个文件夹中；所有需要合并文件的文件名要有一定的规律，最好是连续的数字。当然如果不是连续的数字也是可以处理的，这个问题朋友们可以自己去考虑，这里我讲的是基本的操作。
我这里有几个文件，放在桌面的一个名为“新建文件夹”的文件夹下面，里面有3个文档，还有一个文档是用来放合并后的文档的,如图：

这个时候的程序该如何写呢?看我下面的代码：
Sub mynzHB()
filedir ="C:\Users\nl\Desktop\新建文件夹" '指定文件存放路径
Application.ScreenUpdating =False '关闭屏幕刷新提高速度
Dim filenum As Integer '要合并的文件数
Dim a As Integer '定义数字变量
Dim FileName1 As String '合并后的文件名
Dim FileName2 As String '定义要合并的文件名变量
filenum = 3
FileName1 = "合并.docx"
a = 1
Do While a

VBA代码解决方案第147讲：如何实现多个文档的合并

浏览过的版块