Word表格转Excel后提取列数据

aman1516 · 发表于 2015-3-13 10:48

说明：
将WORD文档中的的表格读入到EXCEL之后（此项已实现），表格非常零乱不规范：
1）每个工作表的表头内容（本表A3：F3对应的内容）不在固定的列；
2）所需的数据（编号、工序名称、工序内容等），会跨不同的“表格”，多工序的会有几个表头隔开，不连续，而且有的是对应不同的合并单元格或不同行；

想通过处理获得“主文件”中的结果，以便重新建立规范的数据库，但上述情况无法方便的获取各工作表中的数据，不知如何通过关键字搜索还是通过数组实现，无从下手，请老师帮忙或给个方法。

或者，能否一步到位，在原来的代码中修改一下，直接在WORD中提取相关的数据（不需复制到EXCEL之后再提取数据了）。谢谢！

详见附件：

Word表格转Excel后提取列数据.rar (113.15 KB, 下载次数: 83)

aman1516 · 发表于 2015-3-13 13:04

补充一下：WORD里的表格格式基本一致的，但复制到EXCEL后偏差较多了

aman1516 · 发表于 2015-3-26 12:27

悬而未决的问题，看下能否直接从WORD中提取所需数据？

liu-aguang · 发表于 2015-3-27 21:50

Sub test() '直接提取数据至Execl
Dim arr(1 To 3000, 1 To 9), ar, fso, fp, wd, n%, subp, f, i%, s$, k$, k1$, br, cr, m%
ar = [{1,3;2,3;3,3;1,5;2,5;3,5}]
Set fso = CreateObject("scripting.filesystemobject")
Set fp = fso.getfolder(ThisWorkbook.Path)
Set wd = CreateObject("word.application")
'wd.Visible = True
n = 1
For Each subp In fp.subfolders
For Each f In subp.Files
If f Like "*.doc*" Then
With wd.documents.Open(f & "")
For i = 1 To UBound(ar)
arr(n, i) = Application.Clean(.tables(1).cell(ar(i, 1), ar(i, 2)))
Next
For Each tabe In .tables
s = Application.Clean(tabe.cell(5, 1)): m = 5
Do While IsNumeric(s)
arr(n, 7) = s
k = tabe.cell(m, 2): k = Left(k, Len(k) - 2)
k1 = tabe.cell(m, 3): k1 = Left(k1, Len(k1) - 2)
br = Split(k, vbCr): cr = Split(k1, vbCr)
If UBound(br) = UBound(cr) Then
For i = 0 To UBound(br)
arr(n, 8) = br(i): arr(n, 9) = cr(i)
n = n + 1
Next
Else
arr(n, 8) = k: arr(n, 9) = k1: n = n + 1
End If
m = m + 1
If tabe.Rows.Count = m Then Exit Do
s = Application.Clean(tabe.cell(m, 1))
Loop
Next
.Close False
End With
End If
Next
Next
wd.Quit: Set fso = Nothing
Sheets("主文件").Range("a4").Resize(n, 9) = arr
End Sub

复制代码

liu-aguang · 发表于 2015-3-27 21:53

Word表格转Excel后提取列数据.rar (101.41 KB, 下载次数: 154)

aman1516 · 发表于 2015-3-27 23:12

liu-aguang 发表于 2015-3-27 21:53

非常利害，终于搞掂，太感谢了。
真的需要研究一下，好好学习，天天向上。

aman1516 · 发表于 2015-3-28 19:34

实际测试时，遇到有两个文件夹内的某个文件，运行时提示文档被计算机（如admini）锁定，只能以只读方式打开，点击确定，后面程序就出错了。
但我单独打开该文档，是完全无密码及可编辑的，后来查看隐藏文件，发现原来有临时文件，但删除后，然后无法读取该文档的内容，仍提示为锁定，只读打开，继续执行则出错。
请问能否通过VBA处理，在打开WORD或EXCEL文档时，不管文档是锁定状态还是共享已打开的只可只读状态时，都可以忽略，并继续执行获取数据的操作呢？

aman1516 · 发表于 2015-3-28 19:40

而我用来复制旧WORD到工作表的代码，对同样的文档却不会出现此问题，点解？

aman1516 · 发表于 2015-3-28 20:39

liu-aguang 发表于 2015-3-27 21:53

象这种情况会出错：

成品机.rar (1.17 MB, 下载次数: 15)

象这种情况取不到数据：

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

请老师帮忙再看下

aman1516 · 发表于 2015-3-28 21:38

另外，有的文件夹下还有多级子文件夹，能否改为历遍所有子文件夹

		自动登录	找回密码
密码			免费注册

[求助] Word表格转Excel后提取列数据