求助老师，如何用邮件合并处理同一档案下多项培训记录的生成？

lilyzl5

每一个人的档案是word版本的一张表格，具体需要名字，部门，职务，性别，年龄，入单位时间，培训经历等。
我用一个excel表先把花名册信息录入，另外，每个部门在一个sheet表内，录入姓名，部门，培训时间，培训项目，培训类型（内部培训/外部培训），培训日期（几号到几号），时间段（几点到几点），培训小时数（这能否通过时间段和培训日期自动计算），每个培训都为一条记录，同一人可能有多条记录，不同的部门在不同的sheet表。

最后，我使用word邮件合并功能，将固定的名字，部门，职务，性别，入单位时间自动显示到word的个人培训档案中，但是每个人的多条培训记录，怎么按照培训时间的顺序分别显示到培训经历里呢？

请教老师。 培训1.rar (18.4 KB, 下载次数: 15)

2018-8-29 21:43 上传

点击文件名下载附件

sunya_0529

非要用邮件合并的话，你要把数据源处理到一个工作表上，即把多次培训记录追加到花名册上，培训时间1、培训项目1、培训类型1、……

gonggulangyue

请楼主将相关word文件，Excel文件发上来。

lilyzl5

gonggulangyue 发表于 2018-8-29 15:17
请楼主将相关word文件，Excel文件发上来。

已经上传了。如文字描述，有多项sheet表，要合到一个word表格，每张表格一人一表，1人可能不止几条培训记录，有人多，有人少。

gonggulangyue

可参考： http://club.excelhome.net/thread-1433229-1-1.html

leeqihero123

我做了一个

leeqihero123

这个是具体的,在vba中看代码

1. Sub 生成文档()
   
2.     nnn = 1
   
3.     n = 2
   
4.     kk = 8
   
5.     For x = 2 To 4
   
6.    
   
7.         Sheet3.[a3] = "NO:" & Sheet1.Cells(x, 1)
   
8.         Sheet3.[b4] = Sheet1.Cells(x, 2)
   
9.         Sheet3.[d5] = Sheet1.Cells(x, 3)
   
10.         Sheet3.[d4] = Sheet1.Cells(x, 4)
    
11.         Sheet3.[h4] = Sheet1.Cells(x, 5)
    
12.         Sheet3.[b6] = Sheet1.Cells(x, 6)
    
13.         Sheet3.[b5] = Sheet1.Cells(x, 7)
    
14.         Sheet3.[d6] = Sheet1.Cells(x, 8)
    
15.         Do
    
16.             Sheet3.Cells(kk, 1) = Sheet2.Cells(n, 2)
    
17.             Sheet3.Cells(kk, 2) = Sheet2.Cells(n, 4)
    
18.             Sheet3.Cells(kk, 3) = Sheet2.Cells(n, 5)
    
19.             Sheet3.Cells(kk, 4) = Sheet2.Cells(n, 6)
    
20.             Sheet3.Cells(kk, 5) = Sheet2.Cells(n, 7)
    
21.             Sheet3.Cells(kk, 6) = Sheet2.Cells(n, 8)
    
22.             Sheet3.Cells(kk, 7) = Sheet2.Cells(n, 9)
    
23.             n = n + 1
    
24.             kk = kk + 1
    
25.         Loop While (Sheet1.Cells(x, 1) = Sheet2.Cells(n, 1)) And n < 8
    
26.         kk = 8
    
27.         Sheet3.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\万一\实验" & nnn & ".pdf", OpenAfterPublish:=False
    
28.         nnn = nnn + 1
    
29.         
    
30.     Next x
    
31. End Sub
    

复制代码

leeqihero123

                                                        JL-CX001       
员 工 培 训 档 案                                                               
NO:3                                                               
姓   名        张五        文化程度        本科                职  称                工程师       
部   门        C        出生日期        1988年11月02日                                       
职  务        技术员        进单位时间        2017年05月01日                                       
培训日期        培训内容        时   间        证书编号        培训部门                考核结果                备  注
2018/1/1到1月3日        计算机培训        9：00到11点，13点到15点        1111114        C部                通过考试               
2018年01月04日        沟通艺术        13点到16点        222224        沟通中心                口头               
2018年02月05日        心理学        9点到11点        12345        沟通中心                口头               
                                                               
                                                               
                                                               

leeqihero123

lilyzl5

leeqihero123 发表于 2018-9-2 09:25

是直接代码做进去吗？如果我源数据或者主文档要调整的话，比如增加一列，或者时间什么的改变等等情况，会自动识别吗？这个代码是添置在哪里的啊？谢谢。


我试了一下，点击运行，显示运行出错，1004.这个是什么意思啊？因为我不懂代码.除了代码可以用邮件合并功能完成吗？我知道代码如果学会很简单了，可是就是不会呀。