Word中的表格数据怎么才能提取到Excel中呢？

cdcxzj

本人手上现有几百份WORD档《情况摸底表》（含相关信息，如姓名、性别、民族、电话、地址等等约30项），现拟整理一份Excel档的《汇总表》（将WORD版的30项信息，在Excel里面汇总，以方便统计等）， 能否有简便方法？


1.目前在用的傻瓜操作：纯人工，就是打开张三的WORD报名表，再一项项弄到Excel的汇总表中（对应“张三”行），一个个复制，想想工作量都不小（几百人*几十项）



2.后来在网上找了一段代码（见文件），但运行出现错误提示，请高手帮忙调试、修改。

fzxba

信息摸底表（明细、汇总）.rar (32.05 KB, 下载次数: 16)

2023-3-30 15:02 上传

点击文件名下载附件

3190496160

这种问题的帖子，回过的多了，自己搜搜看看吧，没必要如你这般复杂的

cdcxzj

fzxba 发表于 2023-3-30 15:02

谢谢您的帮忙，但代码看不太明白，
1.您这个是可以遍历当前目录下的所有WORD文档吗？
2.如果当前有其他WORD文档（表格格式不一样）有影响吗？（比如因为隐私，我略掉了部分字段）


另：我上面百度的代码中，单独导入的错误我已经修复（原来是后面表格位置不对，现已实现单个明细表的数据全部导入成功），但批量导入时的错误我还是找不到原因。

cdcxzj

3190496160 发表于 2023-3-30 15:07
这种问题的帖子，回过的多了，自己搜搜看看吧，没必要如你这般复杂的

谢谢您的回复，那我找找看，我是小白并且上的少，甚至还不知道应该搜寻什么关键字，并且其他贴子的样式，如果换了字段我不一定能套改成功

cdcxzj

fzxba 发表于 2023-3-30 15:02

大佬，能否帮我再看看遍历是哪里出错误了呢？ 我不想再改换方法了（比如您的代码更精减可是我看不懂，不会修改，而我现在这个代码大概已经清楚，比如单独文件提取数据出现的错误我已经排除） 现在只剩批量错误不会调试（出错的位置就在获取路径或者是批量获取文件名，后部分提取数据的代码已经参照单独文件的代码进行了修正）

cdcxzj

fzxba 发表于 2023-3-30 15:02

br = [{1,1,2;2,1,4;3,1,6;4,2,2;5,2,4;6,2,6;7,3,2;8,3,4;9,3,6;10,4,2;11,4,4;12,5,2;13,5,4;14,6,2;15,6,4;16,7,2}]

ar(k, br(i, 1)) = Replace(.Cell(br(i, 2), br(i, 3)).Range.Text, Chr(7), "")

这2句我的语法没搞明白，比如第一个的数组（3个一组，其中前面是1-16是指Excel字段吗？后面2个分别 代表什么呢？）另外在我实际数据中直接套用您的这个，用F8按句执行时，在第上面的第二个命令中断退出，是因为上下标溢出的原因吗？
我Excel实际有22个字段，分别对应WORD的:2行2/4/6；3行2/4/6；4行2/4；5行2/4；6行2/4/6；7行2/4；8行2/4；9行2/4；10行2；11行2
恳请大佬释疑呀

cdcxzj

fzxba 发表于 2023-3-30 15:02

大佬在吗？弄明白了一点点，那个数组原来对应的是Excel列，WORD行，WORD列；（已经修改成功）
但是只能提取2个文档，多的就出错，是为什么呢？（就是说当前目录下有2个WORD文档能成功，如果有3个，就报错，一个都提取不了）
strFilename = Dir(strPath & "*.doc*")
  While Len(strFilename)
    k = k + 1
    Set wdDoc = wdApp.Documents.Open(strPath & strFilename)     （3个文件时，这里报错，中断退出，错误代码为“'错误462:远程服务器不存在'的错误,”）