利用Excel从Word中提取数据 | VBA实例教程

gblhp 2015-02-16

展开全文

除非注明，文章均为战战如疯原创，转载请保留链接: http://www./cat4/192.html，VBA交流群273624828。

昨天讲了怎么利用Excel将数据输出到Word的基本操作，今天我们来看一下怎样从Word中提取数据到Excel。假设我们有一个Word版的员工信息登记表，里面包括姓名、性别、身份证号、住址等信息，现在我要将这些信息提取到我们Excel表中。方便起见，我们这里只设一个Word。下面看代码

Sub GetWord()
Dim wApp, myfile, t
myfile = ThisWorkbook.Path & "\员工信息登记.docx"   '文件路径
Set wApp = CreateObject("word.application")         '打开word程序
With wApp
.Visible = False
.Documents.Open myfile                          '打开文档
With .ActiveDocument.Tables(1)                  '对Word中的表格进行操作
Range("A2") = .cell(1, 2).Range.Text       'cell(1,2).Range.Text表示word中相应单元格
Range("B2") = .cell(2, 2).Range.Text
Range("C2") = .cell(3, 2).Range.Text
Range("D2") = .cell(4, 2).Range.Text
End With
.Quit
End With
End Sub

看过Excel操作Word的基本操作的朋友应该都知道了我们要用到一个word.application对象来作为Excel和Word沟通的桥梁，这里也是同样。打开一个Word文档用的是Documents.Open方法，打开之后该文档就是当前活动文档ActiveDocument。ActiveDocument.Tables(1)顾名思义就是指当前文档中索引号为1的表格，而ActiveDocument.Tables(1).cell(1, 2).Range.Text 就是当前活动文档中索引号为1的表格的1行2列所在的单元格中的值，不难理解吧。将这些值依次赋值给相应的Excel相应的单元格就可以了。最后不要忘记用Quit命令关闭word。
本节示例文件下载地址：http://pan.baidu.com/s/1pJySmz5。

您可能也喜欢：