[已解决]从WORD表中提取内容到EXCEL

爱疯

1. 
   
2. Sub main()
   
3.     Dim doc As Object
   
4.     Dim p As String, f As String
   
5.     Dim i As Integer
   
6.     Dim arr(1 To 9999, 1 To 6) As String
   
7.     Application.ScreenUpdating = False
   
8.     Range("a2:f65536").ClearContents
   
9.    
   
10.     p = ThisWorkbook.Path & ""
    
11.     f = Dir(p & "*.doc")
    
12.     '查找每个doc
    
13.     Do While f <> ""
    
14.         i = i + 1
    
15.         Set doc = GetObject(p & f)
    
16.         '对文档中第一个表格
    
17.         With doc.Tables(1)
    
18.             arr(i, 1) = Left(.cell(2, 2), Len(.cell(2, 2)) - 1)
    
19.             arr(i, 2) = Left(.cell(3, 2), Len(.cell(3, 2)) - 1)
    
20.             arr(i, 3) = Left(.cell(8, 2), Len(.cell(8, 2)) - 1)
    
21.             arr(i, 4) = Left(.cell(8, 4), Len(.cell(8, 4)) - 1)
    
22.             arr(i, 5) = Left(.cell(12, 4), Len(.cell(12, 4)) - 1)
    
23.             arr(i, 6) = pd(.cell(17, 2))
    
24.         End With
    
25.         f = Dir()
    
26.     Loop
    
27.     [a2].Resize(i, 6) = arr
    
28. End Sub
    
29. 
    
30. '判断
    
31. Function pd(Str As String) As String
    
32.     With CreateObject("vbscript.regexp")
    
33.         .Global = True
    
34.         .MultiLine = True
    
35.         .Pattern = "(\d+\.){3}\d+"
    
36.         If .Execute(Str).Count > 1 Then
    
37.             pd = .Execute(Str)(0) & "/" & .Execute(Str)(1)
    
38.         End If
    
39.     End With
    
40. End Function

复制代码

新建文件夹.rar (34.06 KB, 下载次数: 224)

2012-1-14 14:00 上传

点击文件名下载附件

爱疯

jrtzxjh 发表于 2012-1-10 12:39
版主我是一个门外汉看到这个帖子很激动，但是你上面的代码怎么用呢，是写程序还是用txt还是写在excel里呢， ...

应该感谢上清和liuts两位高手给我们的指点！

通过在"结果.xls"用VBA编写代码，如果代码正确，电脑会自动完成指定操作，实现我们的目的。

因为这是以VBA为基础的，所以当理解了每句代码的含义就能清楚了。如果有不清楚的地方，你就来VBA提问发帖和大家一起来学习吧。

ldl3309

liuts 发表于 2011-11-22 11:45
本帖最后由 liuts 于 2011-11-22 11:49 编辑

Sub aa()&nbsp;&nbsp;&nbsp; On Error Resume Next&nbsp; ...

很深奥，这个论坛的都是大师级啊，

jrtzxjh

爱疯版主请教一个问题，如果一个word模板想自动命名文件名不用VBA的话有没有什么办法啊，如一个模板我想用表格中的人名+病历号作为文件名的话可以吗，或只用人名做文件名即可

爱疯

jrtzxjh 发表于 2012-1-12 19:58
爱疯版主请教一个问题，如果一个word模板想自动命名文件名不用VBA的话有没有什么办法啊，如一个模板我想用表 ...

我也是跟着在学，有很多不清楚的问题。

你是希望将"模板1.dot"更名，是吗？比如，更名为abc.dot 。那么这个新名字"abc"是从哪儿来的呢？

建议来  『Excel VBA程序开发』 发帖提问，一定有很多高手来关注的。注意，要把题意说清楚啊。

jrtzxjh

爱疯版主帮忙看一下这一个，怎么弄，好吗

jrtzxjh

爱疯版主帮忙看一下吧

jrtzxjh

爱疯版主这是另一种情况啊，不是哪一个，你下载看一下就知道了，这是从word导入excel中的内容

jrtzxjh

爱疯老大有qq号码

maoer8783

学习了   谢谢