[已解决]如何将一个Excel中的一列中的数据逐个填充到多个同名Word中

robat · 发表于 2016-5-30 11:24

本帖最后由 robat 于 2016-5-30 13:58 编辑

如题，是不是有这个功能，或类似软件，
现在有个Excel文件，需要将里面的某列数据逐个填写到多个Word中的同一位置，Excel中有两列，一列是名称和这些Word的名称是对应的，另一列是数据需要填写到这些文档中的同一个单元格内。
请教：能实现？怎么实现？多谢。

Word.rar (164.69 KB, 下载次数: 8)

dsmch · 发表于 2016-5-30 11:28

在论坛搜索主题：邮件合并

robat · 发表于 2016-5-30 12:55

本帖最后由 robat 于 2016-5-30 13:58 编辑

dsmch 发表于 2016-5-30 11:28
在论坛搜索主题：邮件合并

貌似邮件无法实现吧？请高手指点，多谢。如下图：一个Excel文件中有两列数据，一列和Word的名称对应，一列是需要填写的数据，需要把这些数据填写到多个文档中的建筑占地面积那里。有很多的只是举例了4个，手动输入有点费时，能自动填写就好了。
QQ截图20160530123846.png

已上传附件，多谢
可以实现吗？多谢。

yhfasdf · 发表于 2016-5-30 13:22

两种方法（思路）：一种是利用VBA，分别打开对应的Word文件，然后在你指定的单元格位置填入指定的数据（不过貌似你用的是WPS，这个VBA貌似有困难）
另外一种是利用邮件合并，批量生成文档后，再对文档进行批量的改名（可利用命令提示符或批处理文件完成）
具体没有实例也很难给你操作。

robat · 发表于 2016-5-30 13:40

yhfasdf 发表于 2016-5-30 13:22
两种方法（思路）：一种是利用VBA，分别打开对应的Word文件，然后在你指定的单元格位置填入指定的数据（不过 ...

有offie的

robat · 发表于 2016-5-30 14:00

yhfasdf 发表于 2016-5-30 13:22
两种方法（思路）：一种是利用VBA，分别打开对应的Word文件，然后在你指定的单元格位置填入指定的数据（不过 ...

嗯，貌似使用VBA可以实现该功能，能具体指教吗？谢谢。

dsmch · 发表于 2016-5-30 14:56

第一列的名称有误

Sub Macro1()
Set wd = CreateObject("Word.Application")
mypath = ThisWorkbook.Path & "\Word"
arr = Range("a1").CurrentRegion
For i = 2 To UBound(arr)
With wd.Documents.Open(mypath & arr(i, 1) & ".docx")
.Tables(1).Cell(26, 6).Range = arr(i, 2)
.Close True
End With
Next
wd.Quit
End Sub

复制代码

robat · 发表于 2016-5-30 15:20

dsmch 发表于 2016-5-30 14:56
第一列的名称有误

那个是合并列得到的。

我使用office合并了一下，您看看还有问题吗？

工作簿2.rar (5.97 KB, 下载次数: 5)

robat · 发表于 2016-5-30 15:35

dsmch 发表于 2016-5-30 14:56
第一列的名称有误

高手！多谢，不过，填充的数据怎么不是保留两位小数的啊？

bgy.qdlh · 发表于 2019-9-28 11:11

请问问题解决了吗，我也遇到这个问题，没看懂大佬们说的

		自动登录	找回密码
密码			注册

[已解决]如何将一个Excel中的一列中的数据逐个填充到多个同名Word中

评分

相关帖子

点评

评分

点评