[已解决]excel怎么引用word表格中的内容啊？

kingdows

我这里有一百多份格式相同的word表格，现在要提取表格中部分单元格内的内容做成excel的工作表。这个要怎么处理啊。求各位高手们指教！每份表格中的数据都提取到同一个工作薄中。

help.rar (19.97 KB, 下载次数: 22)

2016-5-20 13:02 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2016-5-20 15:37

1. Sub Macro1()
   
2. Dim wd As New Word.Application
   
3. mypath = ThisWorkbook.Path & ""
   
4. wj = Dir(mypath & "*.doc")
   
5. n = 1
   
6. Do While wj <> ""
   
7.     n = n + 1
   
8.     With wd.Documents.Open(mypath & wj)
   
9.         Cells(n, 1) = Application.Clean(.Tables(1).Cell(8, 2).Range)
   
10.         Cells(n, 2) = Application.Clean(.Tables(1).Cell(8, 4).Range)
    
11.         Cells(n, 3) = Application.Clean(.Tables(1).Cell(8, 5).Range)
    
12.         Cells(n, 4) = Application.Clean(.Tables(1).Cell(15, 3).Range)
    
13.         Cells(n, 5) = Application.Clean(.Tables(1).Cell(15, 5).Range)
    
14.         .Close False
    
15.     End With
    
16.     wj = Dir
    
17. Loop
    
18. wd.Quit
    
19. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim wd As New Word.Application
   
3. mypath = ThisWorkbook.Path & ""
   
4. wj = Dir(mypath & "*.doc")
   
5. n = 1
   
6. Do While wj <> ""
   
7.     n = n + 1
   
8.     With wd.Documents.Open(mypath & wj)
   
9.         Cells(n, 1) = Application.Clean(.Tables(1).Cell(8, 2).Range)
   
10.         Cells(n, 2) = Application.Clean(.Tables(1).Cell(8, 4).Range)
    
11.         Cells(n, 3) = Application.Clean(.Tables(1).Cell(8, 5).Range)
    
12.         Cells(n, 4) = Application.Clean(.Tables(1).Cell(15, 3).Range)
    
13.         Cells(n, 5) = Application.Clean(.Tables(1).Cell(15, 5).Range)
    
14.         .Close False
    
15.     End With
    
16.     wj = Dir
    
17. Loop
    
18. wd.Quit
    
19. End Sub

复制代码

kingdows

谢谢啦，老师。我先看看哦

kingdows

dsmch 发表于 2016-5-20 15:37

谢谢你了。老师。如果我excel表格中不是按顺序排列的这些数据要怎么办呢。就比如。a1是姓名 隔了两列D1才是身份证号要是这样的这个vba要怎么写啊？

gzbccy

我运行了，怎么没有任何数据呢？奇怪

小雨饰品

我运行了，也没有任何数据呢？请教是为什么呀？