ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: Moneky

[原创] 通用Word表格导入工具_Doc2Xls

  [复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-15 17:30 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
预告:近期可能会有一个功能更新,拭目以待吧。

TA的精华主题

TA的得分主题

发表于 2019-7-17 09:43 | 显示全部楼层
Moneky 发表于 2019-7-15 17:29
一般来说是文档的问题或者你的模版中不需要导入的格子没有清空,至于速度,确实不是闪电般的瞬间完成,但 ...

模板里面用姓名那个测试时没问题的,但是用一个文档对应一条记录示例数据抓取有点问题。

我们公司有很多文件,现在想把这么多文件的关键字段提取到Excel,只是正文这些肯定不同嘛,这个该怎么办呢。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-17 10:56 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
xinyestudent 发表于 2019-7-17 09:43
模板里面用姓名那个测试时没问题的,但是用一个文档对应一条记录示例数据抓取有点问题。

我们公司有很 ...

具体问题具体分析,没有看到你的文档,什么也没法说。

TA的精华主题

TA的得分主题

发表于 2019-7-29 14:51 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
Moneky 发表于 2019-7-15 17:30
预告:近期可能会有一个功能更新,拭目以待吧。

猜中有奖不?

TA的精华主题

TA的得分主题

发表于 2019-7-30 10:49 | 显示全部楼层
你好,麻烦你看一下这种WORD版式,又该如何处理提取数据
你给的两种版式都没这种。,我尝试过只弄一行,或者一列下面全都标记相同字母,还是不行
WORD记录.jpg
模板样图.jpg
QQ截图20190730104615.jpg

如何提取分店数据.rar

15.56 KB, 下载次数: 10

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-30 11:13 | 显示全部楼层
阿诺斯瓦星呆 发表于 2019-7-30 10:49
你好,麻烦你看一下这种WORD版式,又该如何处理提取数据
你给的两种版式都没这种。,我尝试过只弄一行,或 ...

现在不支持这种表,只支持一个word表格对应Excel中一条记录的情况。你的这种表行数较多,虽然也可以在每一个格子中写入列标来导入,但导入后,需要在excel中再手动处理一下,还不如手动复制粘贴表格快。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-30 11:15 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 Moneky 于 2019-7-30 11:19 编辑
阿诺斯瓦星呆 发表于 2019-7-30 10:49
你好,麻烦你看一下这种WORD版式,又该如何处理提取数据
你给的两种版式都没这种。,我尝试过只弄一行,或 ...

不是很多的话,建议你手动复制粘贴。
如果比较多,可以用下面的代码在word中运行
  1. //删除,新的代码在楼下
复制代码


记得添加对excel的引用,如果你不知道我在说什么的话,当我没说[微笑.jpg]

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-30 11:18 | 显示全部楼层
阿诺斯瓦星呆 发表于 2019-7-30 10:49
你好,麻烦你看一下这种WORD版式,又该如何处理提取数据
你给的两种版式都没这种。,我尝试过只弄一行,或 ...

为了便于使用,我把代码改了一下,你可以把所有需要导入的word文档一次性打开,然后运行下面的程序——在word的vbe中写入代码运行,运行前,先添加对Excel库的引用。

  1. Sub CopyTableToExcel()
  2.     Dim exapp As Excel.Application
  3.     Dim wb As Workbook, sht As Worksheet
  4.     Set exapp = New Excel.Application
  5.     exapp.Visible = True
  6.     Set wb = exapp.Workbooks.Add
  7.     Set sht = wb.Worksheets(1)
  8.    
  9.     Dim doc As Document, vTab As Table
  10.     'Set doc = ActiveDocument
  11.     r = 1
  12.     DoEvents
  13.     For Each doc In Documents
  14.         For Each vTab In doc.Tables
  15.             vTab.Select
  16.             Selection.Copy
  17.             sht.Cells(r, 1).Select
  18.             Debug.Print r
  19.             sht.Paste
  20.             DoEvents
  21.             r = r + vTab.Rows.Count
  22.         Next
  23.     Next
  24. End Sub
复制代码


TA的精华主题

TA的得分主题

发表于 2019-10-2 11:03 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-10-8 17:16 | 显示全部楼层
这个工具非常方便。领导可能看到我工作效率太高,总觉得我没事干,把两千多个表给我,让我在每张表里复制粘贴提取相关信息做汇总,结果home里有朋友推荐了楼主的工具,实在太好用了,导入导出速度很快,太感谢楼主了,拯救了我复制粘贴抽筋的手,也要感谢那位叫阿诺斯瓦星呆的朋友,感谢这个好平台。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-28 02:14 , Processed in 0.044664 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表