ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

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

  [复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-15 17:28 | 显示全部楼层
yaogan 发表于 2019-6-30 01:20
楼主您好,我这边遇到这么一个问题,打开word文档,提示“受保护的视图 office已检测到此文件存在的问题。 ...

先手动打开那些文档,启用编辑,再保存。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-15 17:29 | 显示全部楼层
xinyestudent 发表于 2019-7-15 17:15
感觉用起来总是出错啊,而且很慢

一般来说是文档的问题或者你的模版中不需要导入的格子没有清空,至于速度,确实不是闪电般的瞬间完成,但肯定比手工快多了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-15 17:30 | 显示全部楼层
预告:近期可能会有一个功能更新,拭目以待吧。

TA的精华主题

TA的得分主题

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

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

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-7-17 10:56 | 显示全部楼层
xinyestudent 发表于 2019-7-17 09:43
模板里面用姓名那个测试时没问题的,但是用一个文档对应一条记录示例数据抓取有点问题。

我们公司有很 ...

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

TA的精华主题

TA的得分主题

发表于 2019-7-29 14:51 | 显示全部楼层
Moneky 发表于 2019-7-15 17:30
预告:近期可能会有一个功能更新,拭目以待吧。

猜中有奖不?

TA的精华主题

TA的得分主题

发表于 2019-7-30 10:49 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
你好,麻烦你看一下这种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 | 显示全部楼层
本帖最后由 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
复制代码


您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-5-4 08:14 , Processed in 0.045595 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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