将格式相同的多个WORD表格转化成EXCEL表单

lhdcxz · 发表于 2012-3-12 09:45

在日常工作中，经常看见一些单位使用WORD形式的表格，用作信息填写等。但是我们知道，WORD表格在分析数据方面不如EXCEL。现在，我写了3个“将格式相同的多个WORD表格转化成EXCEL表单”的代码，分别适用于“横式”（WORD表格的奇数列是“字段名”，数据在偶数列）、“竖式”（WORD表格的奇数行是“字段名”，数据在偶数行）和“混合式”（“字段名”和数据位置不限）；将本文件夹下格式相同的多个WORD文档中这3种形式的第一张WORD表格读入EXCEL，并形成EXCEL表单（“表单”是指EXCEL工作表里面一块独立的区域，它的首行是“字段名”，下面各行是各个字段名的数据即记录）。
因为是VBA代码，所以必须“启用宏”。
下载附件后，请先保存，然后再解压到一个文件夹里面，文件夹里面除了这个EXCEL工作簿只能有准备读入的WORD文档而不能有其他WORD文档，否则会出现错误。

读WORD文档表格（竖式）形成EXCEL表单.rar (17.36 KB, 下载次数: 1775)

读WORD文档表格（混合式）形成EXCEL表单.rar (13.57 KB, 下载次数: 1708)

读WORD文档表格（横式）形成EXCEL表单.rar (17.4 KB, 下载次数: 1466)

补充内容 (2014-1-10 12:48):
对于不是二维表（一个字段名对应一个记录值）的形式的WORD表，要变通一下。
例子见55楼。

补充内容 (2015-2-5 13:50):
对于“一个WORD文档里面有多个独立的WORD表格”，请参考65楼

补充内容 (2015-2-6 09:02):
重要更新与补充：更新了使用说明、更新了适应DOCX格式；增加了图片示例；改正了“重新输入字段名后程序误删除输入的字段名”的BUG。见65楼附件。

njlinjun · 发表于 2012-3-12 21:30

留个记号，用的时候来！

史努比的新粉丝 · 发表于 2012-3-19 19:42

学习了，谢谢楼主

许明辉 · 发表于 2012-4-28 17:39

真是好东西，几百张简历需要一会儿就提取出关键信息。谢谢了！

fzh2618182 · 发表于 2012-4-29 08:34

下载备用，或许用得着，谢谢楼主！

许明辉 · 发表于 2012-4-30 02:11

请问楼主，能否完善一下：如果文件夹中有一部分word表格不一致，能否剔除出来；信息在一个word文档的第二张表怎么提取？

sunny_8848 · 发表于 2012-4-30 08:50

学习了，谢谢楼主

niufox · 发表于 2012-5-31 15:50

太好了~学习了！致敬~

rifl · 发表于 2012-8-7 15:15

学习了，有用

goldowl2011 · 发表于 2012-8-7 16:29

Useful.Thanks a lot.

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

[分享] 将格式相同的多个WORD表格转化成EXCEL表单

评分