[已解决]根excel汇总表，将每人的部分信息汇总到word表格中。

1261181315a

现在需要根据excel汇总表，将每个人的部分信息汇总到word表格中。请各位老师帮忙看看，谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2016-3-24 13:13

用excel操作word

1. Sub Macro1()
   
2. Dim wd, arr, i&, j%
   
3. Set wd = CreateObject("word.application")
   
4. arr = Range("a1").CurrentRegion
   
5. With wd.Documents.Open(ThisWorkbook.Path & "\汇总数据.doc")
   
6.    Set b = .Tables(1)
   
7.    r = b.Rows.Count
   
8.    For i = 2 To r
   
9.         b.Cell(i, 11).Range = arr(i, 6)
   
10.         b.Cell(i, 13).Range = arr(i, 7)
    
11.         For j = 1 To 5
    
12.             b.Cell(i, j).Range = arr(i, j)
    
13.         Next
    
14.    Next
    
15.     .Close True
    
16. End With
    
17. wd.Quit
    
18. End Sub

复制代码

跳转到最佳答案楼层

dsmch

用excel操作word

1. Sub Macro1()
   
2. Dim wd, arr, i&, j%
   
3. Set wd = CreateObject("word.application")
   
4. arr = Range("a1").CurrentRegion
   
5. With wd.Documents.Open(ThisWorkbook.Path & "\汇总数据.doc")
   
6.    Set b = .Tables(1)
   
7.    r = b.Rows.Count
   
8.    For i = 2 To r
   
9.         b.Cell(i, 11).Range = arr(i, 6)
   
10.         b.Cell(i, 13).Range = arr(i, 7)
    
11.         For j = 1 To 5
    
12.             b.Cell(i, j).Range = arr(i, j)
    
13.         Next
    
14.    Next
    
15.     .Close True
    
16. End With
    
17. wd.Quit
    
18. End Sub

复制代码

1261181315a

dsmch 发表于 2016-3-24 13:13
用excel操作word

大师威武！！！！！！！