vb6将word文件转化字符串_VB：成功打开word文件并提取信息

Sub 提取信息表数据()

Dim wrdapp As Object

Dim wrddoc As Object

Dim mypath

Dim myfile As String

Dim i As Integer

i = 1

mypath = "F:\国四车型产品对照表\新产品信息表汇总三"

Set wrdapp = CreateObject("word.application")

myfile = Dir(mypath & "\*.doc")

Do While myfile &lt&gt ""

Set wrddoc = wrdapp.Documents.Open(mypath & "\" & myfile)

ActiveWorkbook.Sheets(1).Cells(i, 1) = wrddoc.tables(1).cell(7, 2)

ActiveWorkbook.Sheets(1).Cells(i, 2) = wrddoc.tables(1).cell(5, 4)

ActiveWorkbook.Sheets(1).Cells(i, 3) = wrddoc.tables(1).cell(5, 6)

ActiveWorkbook.Sheets(1).Cells(i, 4) = wrddoc.tables(1).cell(6, 2)

ActiveWorkbook.Sheets(1).Cells(i, 5) = wrddoc.tables(1).cell(8, 2)

ActiveWorkbook.Sheets(1).Cells(i, 6) = wrddoc.tables(1).cell(9, 2)