excelvba抓取网页数据(Sub提取word表格()()表格当中图)

　　excelvba抓取网页数据(Sub提取word表格()()表格当中图)

　　今天的例子来自公众号的一位粉丝，如下图：

　　有几个word文档形式相同但内容不同。要求是：将word中表格的所有内容汇总成一个excel表格，如下图：

　　是的，你也可以在word中使用vba代码。

　　思路也很简单：遍历读取每个word文档，将指定的表格内容提取到excel表格中。源码如下。

　　子提取词表()

　　mypath=ThisWorkbook.Path&"\"

　　myname=Dir(mypath&"*.docx")

　　m=1

　　DoWhilemyname""

　　Setmydoc=GetObject(mypath&myname)

　　用我的文档

　　m=m+1

　　With.Tables(1)

　　单元格(m,1)=m-1'Number

　　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,"","")

　　结束

　　.CloseFalse

　　结束

　　我的名字=Dir()

　　循环

　　Setmydoc=Nothing

　　MsgBox "提取完成"

　　结束子

　　看效果：

　　是不是很神奇？

　　如果您在操作过程中有任何问题，欢迎交流。源文件准备好，如有需要，可以后台回复“word form”。