用vba将表格数据自动邮件合并到模板

清风在侧 · 发表于 2022-10-4 20:22

论坛的各位大神：

初学vba，想处理一个工作上的需求：将照片插入到模板doc中，插入的位置固定，一张照片一个表格一页

我的思路是这样的：先遍历目标文件夹内所有jpg格式的文件，提取路径到excel中，再作为数据源邮件合并到模板doc中
遇到了2个问题：
一是邮件合并每次都需要选择工作簿，且很多同事不知道邮件合并这个东西，所以想通过vba代码实现，最后整合到按钮中
二是邮件合并后域没有自动更新，想让他能自动更新完成
三是照片有大有小，希望不改变长宽比例的前提下，对照片大小进行调整，确保表格不会扩张到下一页

希望各路大神慷慨解答！

smsn · 发表于 2022-10-6 00:42

本帖最后由 smsn 于 2022-10-7 20:28 编辑

你的电脑 office 版本告诉下，另外32还是64位，公司的也是一样吗？
给你段合并用代码参考，vba要写在word内

复制代码

清风在侧 · 发表于 2022-10-7 16:34

smsn 发表于 2022-10-6 00:42
你的电脑 office 版本告诉下，另外32还是64位，公司的也是一样吗？
给你段合并用代码参考，vba要写在word ...

感谢！office版本是WPS2019，64位的
这段代码运行了以下好像不行
有没有能写在excel里的，因为excel还要获取文件夹下的图片路径，能更方便一些

smsn · 发表于 2022-10-7 19:45

本帖最后由 smsn 于 2022-10-7 20:29 编辑

Office 365 上可以正常使用,
图片如果没有出来，Ctrl+A 再按 F9 更新

smsn · 发表于 2022-10-7 19:46

清风在侧发表于 2022-10-7 16:34
感谢！office版本是WPS2019，64位的
这段代码运行了以下好像不行
有没有能写在excel里的，因为excel还 ...

代码给你参考，需要修改才能用，直接肯定用不了。VBA不难，学下去。

清风在侧 · 发表于 2022-10-8 19:02

smsn 发表于 2022-10-7 19:46
代码给你参考，需要修改才能用，直接肯定用不了。VBA不难，学下去。

好的，感谢

smsn · 发表于 2022-10-13 14:39

优化了一下照片尺寸调整等。如果还需要的话可以下载。

清风在侧 · 发表于 2023-1-18 09:35

smsn 发表于 2022-10-13 14:39
优化了一下照片尺寸调整等。如果还需要的话可以下载。

最近很忙，刚看到，非常感谢

清风在侧 · 发表于 2023-1-18 13:43

smsn 发表于 2022-10-13 14:39
优化了一下照片尺寸调整等。如果还需要的话可以下载。

上手使用了以下，真的很厉害，所有方面都很完美，非常惭愧没能及时回复，祝你以后能够越来越好

清风在侧 · 发表于 2023-1-18 15:00

smsn 发表于 2022-10-13 14:39
优化了一下照片尺寸调整等。如果还需要的话可以下载。

还有个小问题就是，close过程只在保存的时候运行，但是一般关闭的时候都是选择不保存（为了确保文件还是原版，运行不会有问题），这样kill那个txt的代码就不会运行，有没有什么办法可以解决呀
不过是个小问题，已经特别特别完美了

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

[求助] 用vba将表格数据自动邮件合并到模板

评分