[已解决]4*40个word附表1-4进行汇总？

gwfzh

4*40个word附表1-4进行汇总？

            各位老师：因工作需要，每天要定时汇总几十个单位报来的如附表1-4等相同的word报表，表格的样式固定，怎样用excel或word将这各单位报来的4*40个word表格（附表1-4）进行汇总，请各位老师帮忙了，谢谢!!!
日报表汇总.zip (29.25 KB, 下载次数: 13)

2015-4-17 21:25 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2015-4-18 21:40

代码要前期引用，或者改为后期引用

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Dim wd, mypath$, wj$
   
4. Set wd = CreateObject("Word.Application")
   
5. mypath = ThisWorkbook.Path & ""
   
6. Application.ScreenUpdating = False
   
7. wj = Dir(mypath & "*.doc"): s = 1
   
8. Do While wj <> ""
   
9.     s = s + 1
   
10.     With wd.Documents.Open(mypath & wj)
    
11.         h = .Tables(1).Rows.Count
    
12.         Cells(s, 1) = Split(Trim(Split(.Paragraphs(4).Range, "填报单位：")(1)))(0)
    
13.         For i = 2 To h
    
14.             Cells(s, i) = .Tables(1).Cell(i, 2).Range
    
15.         Next
    
16.         .Close False
    
17.     End With
    
18.     wj = Dir
    
19. Loop
    
20. wd.Quit
    
21. ActiveSheet.UsedRange.Replace "", ""
    
22. Application.ScreenUpdating = True
    
23. End Sub

复制代码

跳转到最佳答案楼层

gwfzh

{:041:}{:041:}

dsmch

gwfzh 发表于 2015-4-18 00:50

模拟结果，建议重新编辑附件。

gwfzh

dsmch 发表于 2015-4-18 15:04
模拟结果，建议重新编辑附件。

  4*40个word附表1-4进行汇总？

           谢谢dsmch老师：   由于数据量大，现将附件中的5个文档（A区中心卫先院、B区卫先院、C区中心卫先院、D区卫先院、E区中心卫先院）的取数示例如表中， 如：
            1、“附表1”取word文档中第一个表的数据，其中，[A9:A29]取第一张表的单位，[B9:J9]是word文档中第一个表第2行至第9行的数据；

             2、 如“附表3”取word文档中第3个表的数据，由于该表有的单位为空，有的单位报有数据，因此取数时需与A列该单位的数据同行，以便核对。

              3、 如“附表2”取word文档中第2个表的数据，只要word文档第2表中有数据，就顺序取内容，不需要与A列该单位的数据同行；

             H7N9日报表.zip (91.54 KB, 下载次数: 2)

2015-4-18 16:48 上传

点击文件名下载附件

dsmch

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Dim wd As New Word.Application, mypath$, wj$
   
4. mypath = ThisWorkbook.Path & ""
   
5. Application.ScreenUpdating = False
   
6. wj = Dir(mypath & "*.doc"): s = 1
   
7. Do While wj <> ""
   
8.     s = s + 1
   
9.     With wd.Documents.Open(mypath & wj)
   
10.         h = .Tables(1).Rows.Count
    
11.         Cells(s, 1) = Split(Trim(Split(.Paragraphs(4).Range, "填报单位：")(1)))(0)
    
12.         For i = 2 To h
    
13.             Cells(s, i) = .Tables(1).Cell(i, 2).Range
    
14.         Next
    
15.         .Close False
    
16.     End With
    
17.     wj = Dir
    
18. Loop
    
19. wd.Quit
    
20. ActiveSheet.UsedRange.Replace "", ""
    
21. Application.ScreenUpdating = True
    
22. End Sub

复制代码

dsmch

以表1为例……

gwfzh

dsmch 发表于 2015-4-18 19:07
以表1为例……

怎么运行后，什么都值都没有？

dsmch

代码要前期引用，或者改为后期引用

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Dim wd, mypath$, wj$
   
4. Set wd = CreateObject("Word.Application")
   
5. mypath = ThisWorkbook.Path & ""
   
6. Application.ScreenUpdating = False
   
7. wj = Dir(mypath & "*.doc"): s = 1
   
8. Do While wj <> ""
   
9.     s = s + 1
   
10.     With wd.Documents.Open(mypath & wj)
    
11.         h = .Tables(1).Rows.Count
    
12.         Cells(s, 1) = Split(Trim(Split(.Paragraphs(4).Range, "填报单位：")(1)))(0)
    
13.         For i = 2 To h
    
14.             Cells(s, i) = .Tables(1).Cell(i, 2).Range
    
15.         Next
    
16.         .Close False
    
17.     End With
    
18.     wj = Dir
    
19. Loop
    
20. wd.Quit
    
21. ActiveSheet.UsedRange.Replace "", ""
    
22. Application.ScreenUpdating = True
    
23. End Sub

复制代码

gwfzh

dsmch 发表于 2015-4-18 21:40
代码要前期引用，或者改为后期引用

谢谢dsmch老师，怎么取的数据，均不能用公式统计？如=SUM(J2:J6)统计的结果为0，
另，由于各单位传过来的文档不统一，当文档格式是wps时，WPS文档被遗漏取数了，该问题怎样解决，也请老师帮忙了