vba word 指定的表格_Excel自动写入数据到Word中,VBA轻松实现

上篇文章我们介绍了如果在Excel中利用VBA技术访问Word文档,今天我们就说说如何在Excel中利用VBA写入/提取Word文档中的数据。

fe5b48cab1658503a58673879407d2b6.png

写入Word文档

当前文件夹中存在一个test的Word文档,文档中仅有一张六列三行的空表格,现在我们在Excel中利用VBA向此Word文档中写入内容。

8aed007a26fed5f90f3021d066f7219b.png

当前文件夹,打开一个Excel,打开Visual Basic视图,输入以下代码:

79404658205590616e6e5137e915bbca.png

点击运行按钮,即可发现,Word文档中的表格1,已经被填充数字。

最终结果如下图所示:

89737827575905d9a6e645d0aeb80d7f.png

代码解释

wdapp.Documents.Open Filename:=ThisWorkbook.Path & "est.docx"

打开当前文件夹下名字为test的Word文档;

wdapp.Visible = True

打开之后,使文档处于可视的状态;

wdapp.Documents(1).Tables(1).Range

Word文档表格1(Tables(1))的范围,这里表格共三行六列,所以range等于18;

.Cells(i).Range = i

这里将Word表格1中写入对应的数字;

完整代码如下所示:

Sub 数据写入word中()Dim wdapp As Word.ApplicationDim wddoc As DocumentSet wdapp = New Word.Applicationwdapp.Documents.Open Filename:=ThisWorkbook.Path & "est.docx"wdapp.Visible = TrueWith wdapp.Documents(1).Tables(1).RangeFor i = 1 To .Cells.Count.Cells(i).Range = iNextEnd WithEnd Sub

读取Word中的数据

下图中,Word中存在一张表 表1,里面存储着不同的数据,现在我们需要把纯数据项提取出来 ,并汇总到Excel单元格中。

ddf990d006640722bc7f116fa3299ba4.png

打开Visual Basic视图,输入以下代码:

688ec707f0dcf854f190c6fb6e877f7d.png

点击运行按钮,完成数据的提取,结果如下图所示:

e6e45cfb8e542ba20d9185471043e610.png

代码说明:

Left(.Cells(i).Range, Len(.Cells(i).Range) - 2):

.Cells(i).Range为当前Word单元格中的内容,如第一个单元格内容是【18】,但提取出来的并不是单纯的18,在VBA本地窗口中可以发现,它是一个【18 】,18+空格+一个正方形;但是我们只要数字18,后面的空格和正方形是不需要的,这里用一个left函数,去除后两位,提取数字;

IsNumeric(u):

判断u是否为数字,如果是则进入下一步,如果不是则结束。

程序运行完一定要关闭Word哦,wdapp.Quit,切记!

明细代码如下图所示:

Sub 提取数据()On Error Resume NextDim wdapp As Word.ApplicationDim wddoc As DocumentSet wdapp = New Word.Applicationwdapp.Documents.Open Filename:=ThisWorkbook.Path & "est.docx"wdapp.Visible = Falsen = 1With wdapp.Documents(1).Tables(1).RangeFor i = 1 To .Cells.Countu = Left(.Cells(i).Range, Len(.Cells(i).Range) - 2)If IsNumeric(u) Thenn = n + 1Cells(n, 1) = uEnd IfNextEnd WithCells(1, 1) = "提取数字"wdapp.QuitEnd Sub

小结

以上就是关于Excel中利用VBA操作Word的相关介绍,如果觉得有用,欢迎关注我,定期分享数据小技巧!

已标记关键词 清除标记
表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
相关推荐
©️2020 CSDN 皮肤主题: 游动-白 设计师:白松林 返回首页