邮件合并如何设置同类的在一张邮件中？

daxiaotong

如题，我这有个伙食费统计表，最后上交时要形成一个队一个表（都是一个月每个队），而原始表里信息比较杂乱，能否用邮件合并实现？ 邮件合并（伙食费的问题）.zip (25.85 KB, 下载次数: 6)

2016-10-7 18:01 上传

点击文件名下载附件

附件已经上传，希望高手帮助解决，谢谢！！1

LMY123

改用VBA吧,参考
http://club.excelhome.net/thread-998913-1-1.html

daxiaotong

LMY123 发表于 2016-10-7 19:54
改用VBA吧,参考
http://club.excelhome.net/thread-998913-1-1.html

55555，不会啊，有没有简便的方法啊

daxiaotong

LMY123 发表于 2016-10-7 19:54
改用VBA吧,参考
http://club.excelhome.net/thread-998913-1-1.html

我看了一下那个帖子，在那个基础上我就加入一列日期就行了，然后每个队号生成一个word文档。试验半天啦，就是加不明白啊，请帮帮忙好吗

daxiaotong

LMY123 发表于 2016-10-7 19:54
改用VBA吧,参考
http://club.excelhome.net/thread-998913-1-1.html

插入时间列后整个程序都不对了，急求帮助，谢谢！

LMY123

daxiaotong 发表于 2016-10-8 08:57
插入时间列后整个程序都不对了，急求帮助，谢谢！

1. Sub 参考()
   
2. On Error Resume Next
   
3.     Dim A
   
4.     Dim arr, i As Integer, n As Integer, m As Integer, strarr As String
   
5.     Dim trow As Long
   
6.     Dim WordAppX As New Word.Application
   
7.     Dim WordDocX As Word.Document
   
8.     Dim WordTableX As Word.Table
   
9.     Dim WordRowX As Word.Row
   
10.     Dim vsrange As Word.Range
    
11.     Dim myPath As String, Fn$
    
12.     trow = Sheets("9月伙食费汇总表（原始表）").Range("A65536").End(xlUp).Row   '行数
    
13.     myPath = ThisWorkbook.Path
    
14.     Set WordAppX = New Word.Application
    
15.     WordAppX.Visible = False
    
16.     arr = Sheets("9月伙食费汇总表（原始表）").Range("a2:f" & trow)     '数组
    
17.     For m = 1 To trow - 1
    
18.         Set WordDocX = WordAppX.Documents.Add(myPath & "\模版.docx")
    
19.         If strarr <> arr(m, 1) Then
    
20.             strarr = arr(m, 1)
    
21.             For n = m To trow - 1
    
22.                  If strarr = arr(n, 1) Then
    
23.                     Set WordTableX = WordDocX.Tables(1)
    
24.                     i = i + 1
    
25.                     WordTableX.Rows.Add
    
26.                     WordTableX.Cell(i + 3, 2).Range.Text = arr(n, 3)
    
27.                     WordTableX.Cell(i + 3, 3).Range.Text = arr(n, 4)
    
28.                     WordTableX.Cell(i + 3, 4).Range.Text = arr(n, 5)
    
29.                     WordTableX.Cell(i + 3, 5).Range.Text = arr(n, 6)
    
30.                   End If
    
31.             Next n
    
32.             WordDocX.SaveAs myPath & "" & strarr & "队伙食汇总表" & ".docx"
    
33.             Set vsrange = Nothing
    
34.             Set WordTableX = Nothing
    
35.             WordDocX.Close
    
36.             i = 0
    
37.         End If
    
38.     Next m
    
39.     WordAppX.Quit
    
40.     Set WordDocX = Nothing
    
41.     Set WordAppX = Nothing
    
42. End Sub
    

复制代码

daxiaotong

LMY123 发表于 2016-10-8 09:28

效果出不来.zip (36.33 KB, 下载次数: 1)

2016-10-8 10:55 上传

点击文件名下载附件

弄了半天，也出不来结果，还请老师帮看看哪里出了问题，谢谢啊！

daxiaotong

点合同生成后没有生成的word文档

LMY123

daxiaotong 发表于 2016-10-8 11:02
点合同生成后没有生成的word文档

1008.rar (32.36 KB, 下载次数: 13)

2016-10-8 11:14 上传

点击文件名下载附件

daxiaotong

LMY123 发表于 2016-10-8 11:15

谢谢，可是运行中提示，找不到工程或库。我用的是office2010有没有影响？