使用VBA将Excel单元格内容复制到对应的word文档上，word文档有表格，求帮忙

majiechi · 发表于 2020-1-10 14:58

使用VBA将Excel单元格内容复制到对应的word文档上，word文档有表格
里面有5个地方需要复制的，知道段落复制，不知道word表格怎么复制，代码写了一半，后面不会写，求帮忙

孙旭白 · 发表于 2020-1-10 15:29

根据热浪版友的代码修改得出，请试一下，用查找替换方式解决

蓝桥玄霜 · 发表于 2020-1-10 15:39

违约单明细表的表头字段需要改一下：如附图一，字段不能相同

majiechi · 发表于 2020-1-10 17:40

孙旭白发表于 2020-1-10 15:29
根据热浪版友的代码修改得出，请试一下，用查找替换方式解决

基本上搞定了，但是导出来的文件名称没有按J列上的文件命名啊

孙旭白 · 发表于 2020-1-10 17:49

导出路径文件名 = 当前路径 & "\" & 导出文件名 & "(" & Sheets("仓库明细").Range("b" & i) & ").doc"中的b改为j即可

孙旭白 · 发表于 2020-1-10 18:18

蓝桥玄霜发表于 2020-1-10 15:39
违约单明细表的表头字段需要改一下：如附图一，字段不能相同

蓝版，你的代码我敲了一下，其中bookmarks怎么在word表里设置啊，要不我运行不成功，可否给个学习连接，或发个完整的啊。我的代码太冗余了，想学会你的这个办法。谢谢啦

孙旭白 · 发表于 2020-1-10 18:41

蓝桥玄霜发表于 2020-1-10 15:39
违约单明细表的表头字段需要改一下：如附图一，字段不能相同

我找出问题了，蓝版的代码中exit for 需要去掉才能添加完所有的项目。不知的这句在这里起到怎样一个作用

孙旭白 · 发表于 2020-1-10 18:42

蓝桥玄霜发表于 2020-1-10 15:39
违约单明细表的表头字段需要改一下：如附图一，字段不能相同

还有为什么程序执行完，word程序关不干净啊

蓝桥玄霜 · 发表于 2020-1-11 08:47

孙旭白发表于 2020-1-10 18:18
蓝版，你的代码我敲了一下，其中bookmarks怎么在word表里设置啊，要不我运行不成功，可否给个学习连接， ...

书签添加步骤：

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

[求助] 使用VBA将Excel单元格内容复制到对应的word文档上，word文档有表格，求帮忙