-
VBA提取文件夹内所有word文档中的表格数据
2015-04-03 20:14:51VBA提取文件夹内所有word文档中的表格数据。 -
使用VBA提取文件夹内所有word文档中的表格数据
2014-03-27 11:40:50使用VBA提取文件夹内所有word文档中的表格数据 -
如何用VBA提取网上的表格数据进Excel
2012-07-31 20:50:47如何用VBA提取网上的表格数据进Excel 跪求这里的高人帮忙写一个vba,不然超过一万个网页一个一个copy & paste 进 excel 会死人的。小弟已这样一个一个copy 2个月了。 在 [url=... -
vba word 指定的表格_Excel VBA 实例(23) 一键批量提取word表格内容
2020-12-14 17:12:12需求是:将所有的word里面表格的内容全部汇总到一个excel表格当中,如下图:没错,word里面同样也是可以用vba代码的。思路也是很简单:遍历读取每个word文档,提取指定的表格内容到excel表中即可,源代码如下,大...将永恒君的百宝箱设为星标 精品文章第一时间读
今天的这个实例来自公号的一位粉丝,如下图:
这里有若干份同样表格,但是不同内容的word文档。需求是:将所有的word里面表格的内容全部汇总到一个excel表格当中,如下图:
没错,word里面同样也是可以用vba代码的。
思路也是很简单:遍历读取每个word文档,提取指定的表格内容到excel表中即可,源代码如下,大部分网上都有现成的,永恒君做了一些修改而言。
Sub 提取word表格()
mypath = ThisWorkbook.Path & "\"
myname = Dir(mypath & "*.docx")
m = 1
Do While myname <> ""
Set mydoc = GetObject(mypath & myname)
With mydoc
m = m + 1
With .Tables(1)
Cells(m, 1) = m - 1 '序号
Range("A1:F1") = Array("序号", "姓名", "性别", "身份证号", "住址", "联系方式")
Cells(m, 2) = Replace(.cell(1, 2).Range.Text, "", "")
Cells(m, 3) = Replace(.cell(2, 2).Range.Text, "", "")
Cells(m, 4) = Replace(.cell(3, 2).Range.Text, "", "")
Cells(m, 5) = Replace(.cell(4, 2).Range.Text, "", "")
Cells(m, 6) = Replace(.cell(5, 2).Range.Text, "", "")
End With
.Close False
End With
myname = Dir()
Loop
Set mydoc = Nothing
MsgBox "提取完成"
End Sub看一下效果:
是不是很神奇?
如果你在操作过程中有疑问,欢迎来交流。源文件准备好,需要的话再后台回复「word表格」即可。
相关阅读:
Excel VBA 实例(22) - 一键筛选其他工作表或工作簿的数据
Excel vba 实例(21) - 如何快速准确录入数据
Excel vba 实例(20) - 一键填充每月员工拜访地区
欢迎加入我的知识星球,为您提供更多VBA、python等效率提升服务和资源!微信公众号:永恒君的百宝箱个人博客:www.yhjbox.com
-
vba根据内容调整word表格_Excel VBA 实例(26) 一键批量提取word文字内容
2020-11-25 10:07:31之前介绍过用vba批量提取word中表格的内容,今天来介绍一个提取word文字的实例,如下图:这里有n个word文档,每个的结构基本一致,只有一些信息不一样。需要提取图中红框的内容。思路和代码结构和之前提取word表格的...之前介绍过用vba批量提取word中表格的内容,今天来介绍一个提取word文字的实例,如下图:
这里有n个word文档,每个的结构基本一致,只有一些信息不一样。需要提取图中红框的内容。
思路和代码结构和之前提取word表格的差不多,核心代码如下图
关于文字的提取,因为表格结构基本一致,可以用到word中Paragraphs的这个对象,即文档中的整行。
Set WordD = .Documents.Open(filename)'打开文档
contents = WordD.Paragraphs(3).Range.Text '提取第三行,根据实际情况进行修改效果:
可以对提取的信息进一步处理,把只在客户栏中保留客户的姓名,其余的不要。只需要将原句修改为:
contents =Split(WordD.Paragraphs(3).Range.Text,":")(1)
效果:
以上就是关于这个实例的演示。
这个方法简单方便使用,适合于所有word文档都用同一个模板的时候。如果结构都不一样的话,就需要使用其他的诸如正则、查找等方式来进行操作。
感兴趣的可以在公号内回复「提取文字」自取试用,尽快吧。如果觉得实用,分享给更多的朋友吧~~~
相关阅读:
Excel VBA 实例(25) - 班级随机点名并播放Excel VBA 实例(24) - 新股(债)中签一键批量查询Excel VBA 实例(23) - 一键批量提取word表格内容Excel VBA 实例(22) - 一键筛选其他工作表或工作簿的数据
欢迎交流!微信公众号:永恒君的百宝箱个人博客:www.yhjbox.com
点个在看支持下永恒君吧!
-
用VBA从word的表格中提取数据到excel中
2019-12-06 23:45:30该VBA脚本可以实现从word文档的多个表中提取数据,每个表格的信息提取到一行。 Sub word2els() Set wdApp = CreateObject(“kwps.application”) path_ = ThisWorkbook.Path wdApp.Documents.Open (path_ & “”...该VBA脚本可以实现从word文档的多个表中提取数据,每个表格的信息提取到一行。
Sub word2els()
Set wdApp = CreateObject(“kwps.application”)
path_ = ThisWorkbook.Path
wdApp.Documents.Open (path_ & “” & “bbb.doc”)
wdApp.Visible = True
ThisWorkbook.Sheets(“sheet1”).Cells(1, 1) = “序号” ‘’’ 设置sheet1的第一行第一列单元格内容为“序号”
ThisWorkbook.Sheets(“sheet1”).Cells(1, 2) = “用例标识” ‘’’ 设置sheet1的第一行第一列单元格内容为“用例标识”
ThisWorkbook.Sheets(“sheet1”).Cells(1, 3) = “测试类型” ‘’’ 设置sheet1的第一行第一列单元格内容为“测试类型”n = wdApp.ActiveDocument.Tables.Count ‘’’'有多少个表格
excel_line_no = 2
For i = 1 To n
zhs = wdApp.ActiveDocument.Tables(i).cell(2, 2) ‘’'提取第i个表格的第二行第三列单元格的内容保存到变量zhs中
Version = wdApp.ActiveDocument.Tables(i).cell(3, 5) ‘’'提取第i个表格的第三行第五列单元格的内容保存到变量Version中
env = wdApp.ActiveDocument.Tables(i).cell(3, 7) ‘’'提取第i个表格的第三行第七列单元格的内容保存到变量env中
ThisWorkbook.Sheets(“Sheet1”).Cells(excel_line_no, 1) = zhs ‘’'将变量zhs的值写入到excel的sheet1的第’excel_line_no 行第1列
ThisWorkbook.Sheets(“Sheet1”).Cells(excel_line_no, 2) = Version ‘’'将变量Version的值写入到excel的sheet1的第’excel_line_no 行第2列
ThisWorkbook.Sheets(“Sheet1”).Cells(excel_line_no, 3) = env ‘’'将变量env的值写入到excel的sheet1的第’excel_line_no 行第3列
excel_line_no = excel_line_no + 1
Next
wdApp.Application.Quit '关闭word文档
Set wdApp = Nothing '释放对象变量的内存End Sub
word文档如下:
提取结果如下:
-
vba根据内容调整word表格_Excel VBA 实例(26) – 一键批量提取word文字内容
2020-11-25 10:07:25之前介绍过用vba批量提取word中表格的内容,今天来介绍一个提取word文字的实例,如下图:这里有n个word文档,每个的结构基本一致,只有一些信息不一样。需要提取图中红框的内容。思路和代码结构和之前提取word表格的...之前介绍过用vba批量提取word中表格的内容,今天来介绍一个提取word文字的实例,如下图:
这里有n个word文档,每个的结构基本一致,只有一些信息不一样。需要提取图中红框的内容。
思路和代码结构和之前提取word表格的差不多,核心代码如下图
关于文字的提取,因为表格结构基本一致,可以用到word中Paragraphs的这个对象,即文档中的整行。
Set WordD = .Documents.Open(filename)'打开文档contents = WordD.Paragraphs(3).Range.Text '提取第三行,根据实际情况进行修改
效果:
可以对提取的信息进一步处理,把只在客户栏中保留客户的姓名,其余的不要。只需要将原句修改为:
contents =Split(WordD.Paragraphs(3).Range.Text,":")(1)
效果:
以上就是关于这个实例的演示。
这个方法简单方便使用,适合于所有word文档都用同一个模板的时候。如果结构都不一样的话,就需要使用其他的诸如正则、查找等方式来进行操作。
感兴趣的可以在公号内回复「提取文字」自取试用,尽快吧。
如果觉得实用,分享给更多的朋友吧~~~
相关阅读:
Excel VBA 实例(25) - 班级随机点名并播放
Excel VBA 实例(24) - 新股(债)中签一键批量查询
Excel VBA 实例(23) - 一键批量提取word表格内容
Excel VBA 实例(22) - 一键筛选其他工作表或工作簿的数据
欢迎交流! -
vba如何提取数据最大值返回到表格
2016-02-26 10:38:50另外还想问问如果我是字符开头的如何提取最大值 比如F1.....F200000 用select max(编号)from 表 提取的最大值就是 F9999 并不能提取出真正的最大值如何能提取出这个最大值呢。最好去掉前面的F。思路是去掉F然后... -
VBA操作提取出sql
2016-07-28 09:05:31VBA 读取表格生成sql -
vba6.3提取自WPS2012专业增强版 带教程
2018-06-11 22:09:20vba6.3提取自WPS2012专业增强版(带教程),需要表格红插件就下载这个 -
word变量中没有documents对象_ExcelVBA_033 Excel从Word表格提取数据
2020-12-11 13:06:20一、需求说明有时我们需要从Word文档的表格里提取数据,比如word文档中的简历信息,需要将姓名、性别、籍贯等信息提取到Excel工作表中,每个文档仅有一个人的简历。1.word文档截图2.excel工作表截图二、实现思路使用... -
vba word 指定的表格_Excel自动写入数据到Word中,VBA轻松实现
2020-12-12 19:47:02上篇文章我们介绍了如果在Excel中利用VBA技术访问Word文档,今天我们就说说如何在Excel中利用VBA写入/提取Word文档中的数据。写入Word文档当前文件夹中存在一个test的Word文档,文档中仅有一张六列三行的空表格,... -
【文字识别】腾讯云API:提取表格数据并生成Excel文件
2020-12-22 00:10:01一、使用工具及python包介绍 腾讯云API 国内大型互联网公司都提供云服务,如阿里、百度、腾讯等。本文选择腾讯云服务,是因为提供的API说明比较详细,看一遍就能用。...xlwings 用来与Excel进行交互,几乎可以取代VBA, -
qtablewidget修改单元格内容_Excel中如何使用VBA批量提取单元格的批注内容
2020-12-06 07:08:25下面就介绍一下如何使用VBA将批注提取出来。现在有这样一个表格,里面的单元格都有对应的批注。现在就要将批注提取出来,然后放到B列的单元格中。VBA代码如下:Sub GetComment() For Each cell In... -
vba随机抽取人名不重复_Excel (求助)用VBA自动提取不重复姓名
2021-01-13 22:30:15例如有表格5261如图:要求将A列姓名4102取出后去1653除重复值,然后输出到C列。版第一步:点击开发权工具-visual basic。选择sheet1,输入代码如下:Sub 姓名去重()Dim jgArr(1 To 100)zz = 0Sheets("sheet1").... -
debug信息关闭 tp6_ExcelVBA 039 批量提取word文档信息
2020-12-11 13:06:18word文档内容格式:Excel表格格式:二、实现思路利用ExcelVBA和Word进行交互操作,根据段落进行初步的内容定位,再利用正则表达式提取段落中的有效信息。三、实现代码Public Sub ExcelVba正则提取... -
excel不同文件表格批量加表头vba_整理超全的,给Excel单元格数据批量增加、删除、提取批注!...
2020-12-31 13:23:05Excel情报局生产搬运分享Excel基础技能OFFICE知识文艺青年用1%的Excel基础搞定99%的日常工作做一个有文艺范...批量提取批注。如下图所示:A列数据是带有批注的数据。右击工作表,点击查看代码,自动弹出VBA窗口,选... -
python从word中提取信息导入excel_使用python模块win32com提取word表格到excel
2020-11-30 21:01:18由于工作的要求,需要将word文档里的表格提取出来放到excel里面。表格结构比较复杂,且一篇word里面有多个表格。对于一个word文档来说提取很简单,只要选中表格,然后复制黏贴到excel里面就可以了。但是word文档有上... -
java获取word书签表格数据_Excel提取Word表格数据(二)「收藏备用」
2020-12-01 06:17:39Excel数据和Word数据交互,很多时候就是和Word内部的表格内容进行交互读取:一、了解Word VBA表格的表示方法■知识点一:创建表格在Word中插入2行3列的表格,录制宏得到下面的代码:2行3列的表格Sub 宏1() ... -
excel vba 自定义函数 使用正则表达式提取字符串
2017-06-19 17:14:00数据清洗的时候往往需要从表格中提取特定的字符串,而少量数据用Excel就能完成。 下面Excel VBA自定义函数来提取 字符串中符合正则表达式的字符串 先上效果图: 以下从一个单元格字符串中提取出连续出现的数字... -
layui当前表格第一行_Excel表格利用VBA代码制作出入库库存表
2020-12-14 16:27:51今天和朋友们分享一个由VBA代码制作的出入库库存表,话不多少让我们直接开始吧。入库库存表获取:链接: https://pan.baidu.com/s/1isZTMFmSIo0V72FCXLRA4w 提取码: qb6u用法及功能介绍:一.库存不足设定件数时提示... -
word vba 判断当前光标是否在页面第一行_Excel如何读写Word表格中的数据?VBA轻松搞定...
2020-12-12 17:55:31上篇文章我们介绍了如果在Excel中利用VBA技术访问Word文档,今天我们就说说如何在Excel中利用VBA写入/提取Word文档中的数据。写入Word文档当前文件夹中存在一个test的Word文档,文档中仅有一张六列三行的空表格,... -
pdfminer3k在pdf中提取文本_ExcelVBA_034 Excel从Word文本中提取信息
2020-12-14 17:12:34一、需求说明现有word文档若干,每个文档内有不同项目的计划,如图所示为了能够更直观地在Excel表格中能够一览所有项目的信息,需要把项目计划信息提取到excel表格中。最终结果如图所示二、实现思路 由于word文档中... -
vba单元格批量赋值_Excel●VBA●如何把批注中的信息批量提取到单元格?
2021-01-14 14:37:20然而,由于不当的使用习惯,我们也经常碰到一些表格,制表人将极其复杂的备注信息写入到批注而非单元格中,导致后期想提取批注时非常麻烦。如上图,A列“系统单号”中每个单元格都带有批注,所批注信息为系统单号... -
vba cad 读取宏的路径_VBA解决跨工作簿复制表格,宏和按钮不需从新绑定,直接可用...
2020-12-11 13:40:50这几天,在“开发”一个简单的表格数据提取,然后输出为新表格的VBA代码。这个过程中,有个需求,就是需要跨工作簿复制带按钮元素的表格到新工作簿,需要按钮对应的宏在新工作簿不需要绑定,直接可以运行。上面的... -
vba for wps 7.0_两表数据核对,WPS表格真香
2020-11-09 22:29:23小伙伴们好啊,前两天咱们分享了关于数据对比的两期内容,分别是VBA法和Power Query法(点击蓝色文字可查看具体内容)。实话实说,这些方法的使用过程确实有些复杂。相比之下,WPS的数据对比功能就很人性化了。接下来... -
idea修改目录后返回_excel制作目录超链接,VBA批量提取修改工作表名称,制作"返回"键...
2021-01-15 10:12:17打开工作簿发现工作表数量太多了...① 工作表太多,有好几百张,一个一个手动输入工作表名称太麻烦,通过复制粘贴简单的VBA代码就可以自动批量提取工作表名称。如图1:有表1、表2、表3等12张工作表,我们先在“表1”... -
qtcreator中如何读写硬件_Excel如何读写Word表格中的数据?VBA轻松搞定
2021-01-24 18:27:07上篇文章我们介绍了如果在Excel中利用VBA技术访问Word文档,今天我们就说说如何在Excel中利用VBA写入/提取Word文档中的数据。写入Word文档当前文件夹中存在一个test的Word文档,文档中仅有一张六列三行的空表格,... -
excel一次滚动太多_excel制作目录超链接,VBA批量提取修改工作表名称,制作"返回"键...
2020-11-30 05:26:40打开工作簿发现工作表数量太多了...① 工作表太多,有好几百张,一个一个手动输入工作表名称太麻烦,通过复制粘贴简单的VBA代码就可以自动批量提取工作表名称。如图1:有表1、表2、表3等12张工作表,我们先在“表1”... -
20170706xlVBA批量提取word表格中的自我评分
2017-07-06 00:11:00单位里普遍存在各种低效率的办公行为,比如每年的自我评分。评分细目表为word文档,每行一个项目,每个项目要填写得分事项和分值,组长审核...于是写了一段VBA来处理,在此保留备份。 Sub 汇总个人评分() D...