从word中提取数据到EXCEL中代码单步运行结果没问题为什么一键运行结果却不对

更新时间2018-06-28 10:04:30

Sub e()

Dim app, wrddoc, mypath As String, stra As String, strb As String, n%, r%

mypath = "E:1入库数据1陆地水系第二次全国地名普查地名成果表.doc"

Set app = CreateObject("word.application")

app.Visible = True

Set wrddoc = app.documents.Open(mypath)

For n = 1 To 88 Step 2

r = (n + 1) / 2

stra = wrddoc.tables(n).cell(2, 4).Range.Text

strb = wrddoc.tables(n + 1).cell(1, 2).Range.Text

 

Sheets("sheet4").Range("b" & r).Value = stra

Sheets("sheet4").Range("a" & r).Value = strb

 

Next

wrddoc.Close

Set app = Nothing

 

End Sub

操作方法：1,首先将word中的表格全部选中后点击复制，2,打开新的excel表格确定粘贴位置，并将其格式设置为文本类型。3,点击编辑点击选择性粘贴，4，点击文本最后确定即可。

相关标签:word