将excel中的数据填入word模板中-VBA

最新推荐文章于 2024-07-21 20:44:36 发布

weixin_34162629

最新推荐文章于 2024-07-21 20:44:36 发布

阅读量8.1k

点赞数 10

文章标签： python

原文链接：http://www.cnblogs.com/zhubinglong/p/7446079.html

版权

通过在Word模板中设置独特的字符串标记，利用VBA根据Excel中的数据进行填充。文章展示了一个完成此操作的VBA代码示例，并提供了源数据和填充后的效果。

摘要由CSDN通过智能技术生成

首先将word模板中需要填写excel中数据的空白处用自己独特的字符串标记，比如数据001 什么的。如下图：

这样，就可以用vba搜寻这些自己独特的标记来根据excel内容填充word了。

第一个填好的如下图：

而excel中数据如下图：

然后代码如下：

 1  Sub 生成Word文件_Click()
 2   Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, i, j
 3    Dim Word表格行号, Word表格列号, Excel数据表列号
 4    Dim Str1, Str2
 5    当前路径 = ThisWorkbook.Path
 6     B = InputBox("请输入数据开始行", "提示")
 7   c = InputBox("请输入数据结束行