从几千张word版的《准考证》中提取参加考核人员的信息。

王海海彭霞霞 · 发表于 2018-10-18 10:38

Moneky 发表于 2018-10-18 09:37
可以试试我的工具 doc2xls

工具在哪里？

Moneky · 发表于 2018-10-18 10:46

王海海彭霞霞发表于 2018-10-18 10:38
工具在哪里？

搜索doc2xls

ahnyt · 发表于 2018-10-18 11:17

试试我的这个，把这个文件拷贝到和准考证文档在一个文件夹下。测试，有问题 QQ109011640

ahnyt · 发表于 2018-10-18 22:37

测试结果如何

王海海彭霞霞 · 发表于 2018-10-18 22:48

changhong老师：在成绩汇总表中，使用vlookup始终不成功，原因是“用代码提取得人员信息”表中的字段用双引号，只是看不到。复制到Word或文本文档可以看到。

王海海彭霞霞 · 发表于 2018-10-18 22:49

王海海彭霞霞发表于 2018-10-18 22:48
changhong老师：在成绩汇总表中，使用vlookup始终不成功，原因是“用代码提取得人员信息”表中的字段用双引 ...

有双引号。

wshcw · 发表于 2018-10-19 15:32

王海海彭霞霞发表于 2018-10-18 22:48
changhong老师：在成绩汇总表中，使用vlookup始终不成功，原因是“用代码提取得人员信息”表中的字段用双引 ...

修改公式：

复制代码

opiona · 发表于 2018-10-19 21:46

核心代码：

Path = GetFileName("WORD文件,*.DOC;*.DOCX")
Set SHX = Worksheets("DATA")
SHX.Range("A2:Z1048576").ClearContents
Dim WordApp, Worddoc, MyTable
Set WordApp = CreateObject("word.application")
WordApp.Visible = False '关闭word文档的显示
Set Worddoc = WordApp.Documents.Open(Path)
ROWARR = Split("2,2,3,4,5,6,7,7,8,9,10,11", ",")
COLARR = Split("2,4,2,2,2,2,2,4,2,2,2,2", ",")
ICOUNT = Worddoc.Tables.Count
For I = 1 To ICOUNT
Rem 提示信息，在状态栏显示
Application.StatusBar = "表格总数：" & ICOUNT & " 当前是第：" & I & " 个"
DoEvents
Set MyTable = Worddoc.Tables(I) '指向第一张WORD表格
For X = 0 To UBound(ROWARR)
Set Cell = MyTable.Cell(ROWARR(X), COLARR(X))
If Not Cell Is Nothing Then '如果单元格存在
SHX.Cells(I + 1, X + 1).Value = "'" & Replace(Replace(Replace(Replace(Cell.Range.Text, Chr(7), ""), Chr(10), ""), Chr(13), ""), vbCrLf, "")
End If
Next
Next
WordApp.Visible = True '关闭word文档的显示
Worddoc.Close False
WordApp.Quit
Set Worddoc = Nothing

复制代码

opiona · 发表于 2018-10-19 21:47

本帖最后由 opiona 于 2018-10-19 21:49 编辑

完整代码见附件：

QQ14885553.rar (40.03 KB, 下载次数: 25)
代码还算是比较通用的，其他样式表哥，修改那两个数组即可：RowARR COLARR
效果：

EXCELLMY · 发表于 2019-12-15 09:15

If tablex.Rows.Count = 11 And tablex.Columns.Count = 6 Then

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

[求助] 从几千张word版的《准考证》中提取参加考核人员的信息。