将excel表户信息填入word文档打印

glhdex

该excel表信息 按户填入wor
d文档 ，一户一张文档，每户人口1-6人不等，请求帮助！！ 问题求助.rar (85.99 KB, 下载次数: 19)

2019-2-26 12:26 上传

点击文件名下载附件

duquancai

WordVBA代码，SQL抓取Excel数据再结合字典按照“户编号”分类，循环写入Word模板。

ming0018

1. Sub main()
   
2.     Dim r&, c&, arr, i&, j%, d As Object
   
3.     r = Range("a65536").End(3).Row
   
4.     c = Range("iv1").End(1).Column
   
5.     arr = Range("a2").Resize(r - 1, c)
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     For i = 1 To UBound(arr)
   
8.         If d.exists(arr(i, 1)) Then
   
9.             MsgBox "表格数据有问题！"
   
10.         Else
    
11.             d(arr(i, 1)) = ""
    
12.             '新建一个word或者打开已有word
    
13.             For j = 0 To arr(i, 5) - 1
    
14.                 '这里面把数据填到word表中，自己写代码吧。
    
15.                 '我也不知道你是存在一个word表中，还是按户编号分表保存。
    
16.                 Debug.Print "1:" & arr(i + j, 1) & ", 2:" & arr(i + j, 2) & ", 3:" & arr(i + j, 3) & ", 4:" & arr(i + j, 4) & ", 5:" & arr(i + j, 5)
    
17.             Next j
    
18.             '保存word
    
19.         End If
    
20.         i = i + j - 1
    
21.     Next i
    
22. End Sub

复制代码