应用Excel VBA批量提取Word表格中的数据--《电脑编程技巧与维护》2018年05期
应用Excel VBA批量提取Word表格中的数据
【摘要】：由于现在办公报表的多样化、复杂化和变化性,单靠人工填写完表格后再逐一录入汇总到Excel表中,造成工作量大,且当表格数量巨大时,还容易造成录入错误,快速便捷地实现报表文件的自动提取与汇总就显得尤为关键。结合实际办公中遇到的困难,根据Excel VBA程序开发的特点,精心设计开发出了这款报表自动提取汇总程序。实际工作中,将这套程序应用在当年学术研究课题上报计划中,取得了很好的应用效果,数百份文件在很短的时间内提取汇总完毕,效率惊人。该程序如果进行适当改变的话,还可以用在职称评审材料上报汇总、学术研究计划上报、年终经费预算申请以及学生档案信息统计等,可极大地节约工作量,且准确可靠,自动化程度高。
【作者单位】：
【分类号】：TP391.13
欢迎：、、)
支持CAJ、PDF文件格式，仅支持PDF格式
【相似文献】
中国期刊全文数据库
二中分·谢老师;;[J];电脑爱好者(普及版);2009年07期
周琴;[J];安徽电子信息职业技术学院学报;2004年Z1期
,何洁;[J];微型机与应用;2004年09期
张磊;刘媛媛;贾晓强;季友玉;;[J];地下水;2007年05期
尼春宇;[J];电脑爱好者;2001年04期
马章进;安海峰;;[J];工程地质计算机应用;2005年01期
闫海燕;;[J];时代经贸(下旬刊);2008年04期
刘玲;;[J];纺织器材;2010年02期
廖丽嵘;;[J];现代计算机(专业版);2012年23期
王占福;;[J];山西经济管理干部学院学报;2011年01期
中国重要会议论文全文数据库
郭晟辰;朱赛根;郭勤生;;[A];江西省煤炭工业协会、江西省煤炭学会2007年工作暨学术年会学术论文集[C];2007年
尹洪岩;;[A];河南省地质调查与研究通报2007年卷（下册）[C];2007年
费金华;蒋银芬;陆琦华;;[A];全国手术室护理学术交流暨专题讲座会议论文汇编[C];2003年
鄢召民;;[A];山东省石油学会油田电力、通信及自动化技术研讨会优秀工程技术论文集[C];2009年
中国重要报纸全文数据库
王霞;[N];中国电脑教育报;2004年
吴新年;[N];江苏经济报;2003年
李中宏;[N];江苏经济报;2004年
;[N];电脑报;2003年
中国硕士学位论文全文数据库
恽磊;[D];中国地质大学(北京);2017年
&快捷付款方式
&订购知网充值卡
400-819-9993Excel VBA 批量读取 Word表格内容和段落-开发-任务易推荐给您
￥100.00元
Excel VBA 批量读取 Word表格内容和段落
通过任务易推广注册的用户，完成该任务后可以获得 1元(10K币)的返利，
具体要求：已经筛选好的同目录任意名称多个Word文件，将每个文件的指定表格内容批量复制到Excel对应多个sheet，并且excel第一格以word文件名命名。以下表格全部内容Scope&of&the&Calculation&（每个文件格式完全相同，复制即可）Pipe&Characteristics&（每个文件格式完全相同，复制即可）RCC-M&Class&2&Analysis（每个文件格式不同，有可能没有此表格，数据对应需要Equation和Limits完全匹配，没有对应数据反馈-）EN13480&Class&3&Analysis（每个文件格式不同，有可能没有此表格，数据对应需要Equation和Limits完全匹配，没有对应数据反馈-）Function&Capability&Class&2（每个文件格式不同，有可能没有此表格，数据对应需要Equation和Limits完全匹配，没有对应数据反馈-）Function&Capability&Class&3（每个文件格式不同，有可能没有此表格，数据对应需要Equation和Limits完全匹配，没有对应数据反馈-）OPEN&POINTS段落（复制全部内容到一个单元格即可）可以看附件结果示例
任务易所有内容均为威客和外包行业网站提供或收集于互联网公开的信息，目的是给在网络上工作的威客和兼职人员收集更多的免费工作信息，以帮助更多的人自主就业。如果有内容触及您的权益，请给我们发邮件（）并附上具体网址和说明，核实后我们将立即删除！对免责声明的解释、修改及更新权均属于任务易所有。
你觉得这个任务肿么样？
评分:3.5分
猪八戒网是全国最大的在线服务交易平台，由原《重庆晚报》首席记者朱明跃创办于2006年，服务交易品类涵盖创意设计、软件开发、网站建设、网络营销、文案策划、生活服务等多种行业。2011年猪八戒网获得IDG千万级美金投资，并被评选为中国2011年度“最佳商业模式十强”企业。2012年猪八戒还获得了国家文化产业示范基地称号。
你可能也对这些任务感兴趣
日内的任务怎么是用VBA批量提取word文档指定内容到Excel
我的图书馆
怎么是用VBA批量提取word文档指定内容到Excel
怎么是用VBA批量提取word文档指定内容到Excel?
问题比较复杂，我慢慢说：我现有一百多个word文档，每个文档内有一到两个标签，标签名为aa和bb，我需要把所有标签提取到一个Excel中，现在遇到的问题是：一，假设d文件夹内三个word文档335、336、337，怎么做到批量读取word，并逐一提取？二，每个word内标签不一定，有的有aa和bb，有的只有aa或者bb其中一个，怎么做到有就提取，没有就返回“无”？不知道我的描述是否清楚。我之前问过如何提取word标签，地址为大神的代码很好，但不能批量提取，遇到只有一个标签时会报错。希望能有人再做解答，万分感谢。
扫描二维码下载
下载知道APP10分钟有问必答!
建议：可使用微信的“扫一扫”功能扫描下载
提问者采纳
Sub abc()Dim App, WrdDoc, MyPath, MyFile, BM, StrMypath = "文件实际路径\*.doc" '请修改实际储存路径！Set App = CreateObject("Word.Application") '用Set关键字创建Word应用成序对象！MyFile = Dir(Mypath) ' 获得第一个WORD文档do while MyFile && "" ' Mypath下面的所有WORD文档App.Visible = TrueSet WrdDoc = App.Documents.Open(MyFile) '打开这个Word文件！for each BM in WrdDoc.Bookmarks ' 文档中的所有书签Str = BM.Range ' 读取书签内容next BMWrdDoc.Close ' 关闭文件MyFile = Dir ' 下一个WORD文档LoopSet App = NothingEnd Sub
为什么会在“Set WrdDoc = App.Documents.Open(MyFile) ”这一步报错，提示找不到该文件呀？在本地窗口看到已经找到文档了。
抱歉，没有实际调试代码DIR函数只返回文件名，不包含完整路径所以请重新修改为以下代码：Sub abc()Dim App, WrdDoc, MyPath, MyFile, BM, StrMypath = "文件实际路径"
'请修改实际储存路径！Set App = CreateObject("Word.Application")
'用Set关键字创建Word应用成序对象！MyFile = Dir(Mypath & "\*.doc")
' 获得第一个WORD文档do while MyFile && ""
' 遍历Mypath下面的所有WORD文档
App.Visible = True
Set WrdDoc = App.Documents.Open(Mypath & "\" & MyFile)
'打开这个Word文件！
for each BM in WrdDoc.Bookmarks
' 遍历文档中的所有书签
Str = BM.Range
' 读取书签内容
WrdDoc.Close
' 关闭文件
MyFile = Dir
' 下一个WORD文档LoopSet App = NothingEnd Sub
这次在“MyFile = Dir(Mypath & "\*.doc")”报错了，提示文件名或文件号错误。
我测试过，没有问题啊？请看一下你实际的Mypath，结尾不能有"\"，否则在DIR中和"\*.doc"合并就成了"...\\*.doc"
提问者评价
不好意思，最后是我自己的问题。非常感谢你！
喜欢该文的人也喜欢怎么批量把word中的文字提取到excel中对应位置
按时间排序
按照下面的步骤来就能达到你的效果了。把excel中的名字批量导入到word文件中的同一位置:1、打开文字文档以后，先做好表格，接着找到文档中工具栏的“工具”按钮。2、点击之后，就会弹出一个命令菜单，在其中找到“邮件合并工具栏”，点击“邮件合并工具栏”以后就会出现一个工具栏了。3、在这个工具栏中找到图标，点击打开数据源。4、接着就会出现一个选择框，选择好需要导入的数据源excel文件，点击确定。5、接着鼠标点击要导入数据文档表格中的单元格，让光标在这个单元格总闪动，然后点击图标“插入合并域”。6、接着选择要输入的项目，点击确定，就能看到单元格里出现了《姓名》，出生日期和性别也可以用同样的方法输入。7、然后点击”合并到新文档“，在合并到新文档设置中选择要导入的数据起始行和结束行，点击确定。8、接着会发现excel中的数据全部导入到了文档的表格里。
可以将WORD文档转换成格形式，然后再复制、粘贴到EXCL里，这样就可以用EXCL统计分析啦
文件发过来，jsnt.
直接选择WORD表格中的数据 再粘贴到EXCEL中即可，而后可以设置数据格式、统计等
感谢您为社区的和谐贡献力量请选择举报类型
经过核实后将会做出处理感谢您为社区和谐做出贡献
确定要取消此次报名，退出该活动？
请输入私信内容：求大佬帮帮忙，怎么批量提取word中的表格信息【excel吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：170,302贴子：
求大佬帮帮忙，怎么批量提取word中的表格信息收藏
如图，word里面是这样的表格，有几千条，请问下，怎么提取成下面表格的样式
熊猫办公为您提供精品优质excel下载,各类excel下载即用,可以为人事/行政/运营/产品运营等大量提高工作效率,内容包括财务报表,销售报表,绩效考核等表格模板.
我没的函数，换做我的话 会先做个模板 就是简单 等于和VLOOKUP,因为你这是表格，所有复制出来 只要不是人为故意操作，都是一样的格式，然后
模板转换为提取的格式，最后全程复制粘贴，格式完全不变可以多设置几个表格模板，就可以批量的复制粘贴。如果怕失误，就几个几个来，，说白了就是复制粘贴 一个表2次，提取一个表所有数据，相对而言比一个一个粘贴，轻松很多！（题外话，为什么 我会这样说呢，因为 之前我提取航司数据，那个是讲究快狠准，数万的数据，就是做个模板
分分钟就处理一大堆！）
数据量多少?, 小的粘贴复制吧, 大的话找我给你写工具处理,邮箱:
把第一张表格的格式改了吧
会方便很多。
表格从新做一下，vlookup应该可以解决
登录百度帐号}