ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

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

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2013-6-23 21:43 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 Moneky 于 2013-7-3 13:07 编辑

之前帮几个坛友解决过一些Word表格导入问题,每次都是在之前的代码上稍微改改,虽说不太麻烦,但总有不便,因此就在之前的代码基础上做了些修改,让代码自动适应几乎所有可能的word表格导入需求。
说明:

1、本工具导入word表格需要先自己手动根据表格创建一个模板,模板的创建还是很简单的,只需要创建一个与要导入表格结构相同的表格(可以复制原表格),并在表格中需要导入的单元格中填上需要将那个单元格内容导入到Excel中的哪一列的列标即可,然后把文件保存作为模板。(详细示例见附件中的帮助说明)

2、本工具会将数据导入到当前活动工作表中(ActiveSheet),所以导入前,先激活相应的工作表。
3、本工具就是一个 .xls 工作簿,打开即可使用,主要为了方便不会使用加载宏的朋友就没有做成加载宏。
4、我的Excel是2010版,所以其它版本的朋友,可能需要手动设定引用(后面可能会更新使其自动引用合适的版本)
5、本工具可能会持续更新      20130626:更新了用于2013的文件,测试Win7 64位,Office 2013 32位正常


界面预览:
2013-06-23_213121.png


说明图示:
2013-06-23_212920.png


2013-06-23_213051.png






该贴已经同步到 Moneky的微博


补充内容 (2013-7-22 21:23):
20130722 更新 在31楼 http://club.excelhome.net/thread-1029709-4-1.html
目前可以自动修复不同版本导致的引用错误,也优化了读取模板时过多的警告信息。

补充内容 (2013-7-23 00:58):
请下载31楼的最新版本,可以自动引用

补充内容 (2013-7-23 11:03):
昨天没有仔细测试,导致优化提示功能有bug,更新了附件,依旧放在了31楼,需要的朋友可以重新下载

补充内容 (2013-7-29 19:12):
20130729 更新,支持表格在文本框中的文档导入。最新附件在35楼  http://club.excelhome.net/thread-1029709-4-1.html

补充内容 (2013-7-30 09:33):
20130730 更新,添加了忽略所有错误强制导入的选项,用以屏弃特殊数据造成的错误。最新附件依然 在35楼,29日附件已删除

补充内容 (2013-8-11 10:50):
20130811 更新,现在应该能够正常的自动添加引用了。最新附件依然放在35楼http://club.excelhome.net/forum. ... p;page=4#pid7095819

补充内容 (2013-8-18 16:52):
20130818更新:现在可以保留Word文档中的分段信息了。 最新附件在43楼 http://club.excelhome.net/forum.php?mod=viewthread&tid=1029709&page=5#pid7138995

补充内容 (2016-5-30 00:12):
20160530 不会自己添加引用的朋友请看124楼的动画演示

补充内容 (2016-5-30 00:14):
添加word引用的动画演示 http://club.excelhome.net/forum. ... ;page=13#pid8687426

补充内容 (2017-3-18 00:38):
最新更新请看楼下http://club.excelhome.net/forum. ... ;page=17#pid9029073

补充内容 (2017-3-30 08:22):
20170330 重要更新 见楼下或166楼 http://club.excelhome.net/forum. ... ;page=17#pid9044649

补充内容 (2021-10-28 15:29):
本工具欢迎扩散传播,但请不要删除其中版权信息及其他内容当成自己的工具,并用以获利!

esDoc2Xls.rar

292.61 KB, 下载次数: 3716

esDoc2Xls

esDoc2Xls_2013.rar

297.65 KB, 下载次数: 4742

适用2013

评分

19

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-3-30 03:44 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 Moneky 于 2017-4-11 03:05 编辑

20170330  重要更新
        改进: 导入超多文件时不假死。
                   去除不可见字符逻辑更新。
                   调整了界面,添加了个人软件信息与赞助途径,并展示了之前赞助过的朋友。
        添加:可以自由设定是否需要导入文件名,请注意:设置文件名所在列时不要和导入的数据所在列重复,如果重复,将会被覆盖。
        修正:如果word文档中需要导入的信息在窗体控件中,现在将会正常导入,而不会丢失最后一个字符。



20170411  更新        改进:讨饭信息更新

        技术备忘录:Office2013 窗体控件鼠标指针可以设置为一些比较大的图标,但在低版本的Office中会出现严重错,表现为 :
                              VBE 崩溃,超出内存 Out of memory ,在代码视图中选择代码时弹出致命错误提示!!!




doc2xls.jpg






补充内容 (2017-8-26 11:43):
64位Excle环境请在www.eersoft.com下载最新版

补充内容 (2021-10-28 15:29):
本工具欢迎扩散传播,但请不要删除其中版权信息及其他内容当成自己的工具,并用以获利!

esDoc2Xls.zip

335.33 KB, 下载次数: 4979

评分

6

查看全部评分

TA的精华主题

TA的得分主题

发表于 2013-6-23 21:48 | 显示全部楼层
收藏了。不错,蛮有意思的

TA的精华主题

TA的得分主题

发表于 2013-6-25 17:04 | 显示全部楼层
这么辛苦出品的好东西,怎能不收藏呢?

TA的精华主题

TA的得分主题

发表于 2013-6-26 13:35 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-6-26 16:34 | 显示全部楼层
请教大虾,2013用不了,每次运行到软件尝试打开word的时候就提示自动化错误,该怎么处理?

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-6-26 17:10 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
suhongyu000 发表于 2013-6-26 16:34
请教大虾,2013用不了,每次运行到软件尝试打开word的时候就提示自动化错误,该怎么处理?

可能是版本问题,你可以打开引用对话框,去掉原来引用的word,重新应用2013的word试试。

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2013-6-26 21:26 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-6-27 00:07 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
么辛苦出品的好东西,怎能不收藏呢?

TA的精华主题

TA的得分主题

发表于 2013-7-12 09:27 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
需要 仔细的看看怎么用。
谢谢~

TA的精华主题

TA的得分主题

发表于 2013-7-18 10:40 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-12-26 19:47 , Processed in 0.056789 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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